[VB6] Da Excel a file di testo

[ripsy85]

HO RISOLTO L'ERRORE AVEVO OMESSO UN PASSAGGIO CHIEDO SCUSA, MAX PERO' IO DEVO STAMPARE TUTTO QUELLO CHE C'è NEL WORKSHEET, COSì SCORRO SULLE RIGHE MA DEVO SCORRERE ANCHE SULLE COLONNE ,TENENDO FEDE OVVIAMENTE ALLA "FORMATTAZIONE" CHE C'è NEL FILE EXCEL, CREANDO ALLA FINE UN FILE DI TESTO IDENTICO A QUELLO DI EXCEL SEPARANDO I I RECORD CON UN "|".

Public Sub LeggiDaExcel()
Dim AppExcel As Excel.Application
Dim worExcel As Excel.Workbook
Dim PathName As String
Dim i As Long
Dim j As Long
Dim z As Integer
z = FreeFile

PathName = "C:\Documents and Settings\g.russo\Desktop\CIAFFONI.xls"
Set AppExcel = New Excel.Application
Set worExcel = AppExcel.Workbooks.Open(PathName)

Open "C:\Documents and Settings\g.russo\Desktop\FileProva.txt" For Output Access Write As #z


i = 1

Do While Trim(worExcel.Sheets(1).Cells(i, 1)) <> ""

strPrint = worExcel.Sheets(1).Cells(i, 1) & "|"
i = i + 1
Write #z, strPrint
Loop



Set AppExcel = Nothing
Set worExcel = Nothing
End Sub