[VB6] Da Excel a file di testo

[ripsy85]

Salve qualcuno sa dirmi come aprire un file excel e leggere campi e record in esso contenuti?per poi scriverli in un file txt(questo lo sa fare)GRAZIE

[alka]

Hai già provato a fare una ricerca sul forum?

[ripsy85]

si ci ho già provato ma non ho trovato nulla

[ripsy85]

Nessuno saprebbe aiutarmi ne ho davvero bisogno GRAZIE

[maxmalici]

allora dovresti usare le librerie di Excel tra le references
la 10.0 se usi office XP

poi all'interno del codice ti dichiari :
Dim appExcel As Excel.Application
Dim worExcel As Excel.Workbook

e poi

Set appExcel = New Excel.Application
Set worExcel = appExcel.Workbooks.Open("PathMioFile")


poi per accedere alle varie celle basta .....

miaVariabile = worExcel.Sheets(1).Cells(1, 1)


e via dicendo.....
dimmi se ti va bene oppure hai bisogno di altro????'
Ciao max

[mgmg]

Puoi provare :

    Dim RSXls As New ADODB.Recordset 
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    PercorsoNome = "C:\mioxls.xls"
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & PercorsoNome & ";" & _
    "Extended Properties=Excel 8.0;"
        .Open
   End With
   RSXls.Open "SELECT * FROM [Foglio1$]", cn, adOpenStatic
   Do Until RSXls.EOF
       'qui istruzioni per leggere campi da RSXls(0) a ... RsXls(n)
       '...
       RSXls.MoveNext
   Loop
   RSXls.Close
   cn.Close

Ciao

[ripsy85]

GRAZIE MILLE MAX, ma ho un problema come devo fare per scorrere tutte le celle avevo pensato di fare un ciclo for o va meglio un doWhile not EOF????? grazie

[maxmalici]

allora per fermarti di solito io uso un ciclo

i = 1

DO WHILE trim(worExcel.Sheets(1).Cells(i, 1)) <> ""
[code]
i = i + 1
LOOP

ma se gia conosci a priori quante celle sono piene....

allora puoi utilizzare il FOR.......

ciaooooooooooooo

[ripsy85]

Mi sembra una buona idea ma non funziona mi da un errore di runtime 1004 ="Errore definito dall'applicazione o dall'oggetto" come lo risolvo???

[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