como pasar datos de un .txt a un archivo de excel
jorge daniel
22 de Agosto del 2003
quiero pasar datos de un archivo de texto a un archivo de excel,con visual basic, quien pueda hayudarme por favor que lo haga.
gracias
gracias
I?
22 de Agosto del 2003
Dim LIBRO As Excel.Workbook
Dim HOJA As Excel.Worksheet
Dim TXT as string
Dim i as integer
Open "C:temptexto.txt" For input As #1
Set LIBRO = GetObject("C:templibroexcel.xls")
Set HOJA = LIBRO.Worksheets(1)
i=0
do until EOF(1)
i=i+1
input #1, TXT
hoja.cells(i,1)=txt
loop
close #1
Dim HOJA As Excel.Worksheet
Dim TXT as string
Dim i as integer
Open "C:temptexto.txt" For input As #1
Set LIBRO = GetObject("C:templibroexcel.xls")
Set HOJA = LIBRO.Worksheets(1)
i=0
do until EOF(1)
i=i+1
input #1, TXT
hoja.cells(i,1)=txt
loop
close #1