Convertir xls a txt mediante vba

chrisal
08 de Enero del 2004
Hola,

quiero convertir una hoja de cálculo a un fichero de texto plano, a través de código. Cómo puedo hacerlo??

Gracias y un saludo

sdemingo
08 de Enero del 2004

Dim fso As New FileSystemObject, txtfile, _
fil1 As File, ts As TextStream
fso.CreateTextFile "c:testfile.txt", True
MsgBox "Writing file"
' Write a line.
Set fil1 = fso.GetFile("d:prueba.txt")
Set ts = fil1.OpenAsTextStream(ForWriting)
ts.Write "Hello World" ' o el contenido de tu hoja xls
ts.Close
' Read the contents of the file.
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadLine
MsgBox s
ts.Close

Saludos
sdemingo