[VB6] Da Excel a file di testo

[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