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.
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 de valedor
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
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
