escribir una serie de datos en excel

[Avellaneda]

Iniciado por ebu

igual no me he explicado bien. las ecuaciones las recojo del solidworks (un programa de CAD). el caso es q me vienen de esta forma:
"AL"=200
"D4@Croquis1"="AL"-156
yo lo q quiero es quitar todas las comillas (") y separar las ecuaciones por el igual (=) pero sin q me desaparezca el igual.
las ecuaciones ya las tengo pero las tengo q modificar para q me aparexcan en el excel como yo quiero.
sabes si hay alguna funcion para quitar las comillas? y para separa la ecuacion desde el = si quitarlo?

Hola ebu,
con la función Split no lo puedes hacer ya que no toma el carácter de separación.

Prueba así:

Código:

a = EqnMgr.equation(i)
' eliminar las comillas
a = Replace(a, Chr(34), "")

Dim iPos As Integer
' buscar la posición del caracter "="
iPos = InStr(1, a, "=")
k = k + 1
' parte izquierda del signo igual
Cells(k, 1) = Left(a, iPos - 1)
' signo igual mas el resto de la cadena
Cells(k, 2) = "'" & Chr(61) & Right(a, Len(a) - iPos)