La Web del Programador: Comunidad de Programadores
 
    Pregunta:  17829 - CREAR ARCHIVO TXT DESDE EXCEL
Autor:  luis martinez
Hola amigos,
tengo el siguiente problema, estoy tratando de salvar una planilla excel como texto
desde visual basic 6.0, me funciona todo menos el tratar de salvar como texto. cuando salvo como
texto me da mensaje fallo en el metodo saveas.si salvo solo como .xls funciona bien.
estare panado mal los parametros del metodo SAVEAS. el siguiente es el codigo 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

  Respuesta:  Anibal Burgues
Hoal Luis:
Proba de esta forma, espero te sea de utilidad.-

xExcel.Workbook.SaveAs Filename:= _
"C:\MIS DOCUMENTOS\Archivo.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False

Saludos