Salvar planilla excel como texto

Hola amigo,
tengo el siguiente problema, estoy tratando de salvar una planilla excel como texto
desde visual basic 6.0, cuando salvo como texto me da mensaje "fallo en el método saveas de la clase workbook".
si la salvo como .xls funciona bien.
¿Estaré pasando mal los parámetros del método SAVEAS o necesito aplicar algún parche para el excel 97?
El siguiente es el código que estoy usando.
Private Sub Form_Load()
Set vbaplexc = CreateObject("Excel.application")
vbaplexc.workbooks.Open ("c:\prueba.xls")
vbaplexc.workbooks("prueba.xls").Activate
'vbaplexc.Visible = True
vbaplexc.workbooks("prueba.xls").sheets("Hoja1").Activate
vbaplexc.range("A1").Select
vbaplexc.sheets(1).Select
vbaplexc.Visible = True
vbaplexc.ActiveWorkbook.SaveAs FileName:="C:\equipos.txt", Fileformat:=xlText,CreateBackup:=False
vbaplexc.quit
End Sub
De antemano gracias.

1 Respuesta

Respuesta
1
Yo lo haría de esta forma...
Private Sub Form_Load()
Dim objArchivo As Object
Const xlText As Integer = -4158
Set objArchivo = GetObject("D:\Temporal\Prueba.xls")
objArchivo.Parent.Windows(1).Visible = True
objArchivo.Sheets(2).Activate
objArchivo.SaveAs "D:\Temporal\Prueba.txt", xlText
Set objArchivo = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas