Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - estrarre dati da 2 file csv
Forum - Visual Basic 6 - estrarre dati da 2 file csv

Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 17:20
Martedì, 24/04/2012
Salve,
ho la necessità di estrarre alcuni dati da un file .csv e copiarli in uno .xls.
Ho scritto la seguente routine

Codice sorgente - presumibilmente VB.NET

  1. Dim oRng2 As Object
  2. 'file di destinazione
  3. Set cartExcel_dest = Excel.Workbooks.Open("C:\Documents and            Settings\...xls")
  4.     Set foglio_dest = Excel.Worksheets.Item(1)
  5. 'file .xls
  6. Set cartExcel = Excel.Workbooks.Open("C:\Documents and Settings\....csv")
  7.     Set foglioExcel = Excel.Worksheets.Item(1)
  8.  
  9.     Dim i As Integer
  10.     Dim val_max As Integer
  11.     Dim dati As String
  12.     Dim Array_dati As Variant
  13.     Dim dato As String
  14.  
  15.    
  16.      i = 0
  17.      val_max = Val(valore_massimo) 'ricavato precedentemente
  18.      
  19.     For i = 0 To val_max
  20.            
  21.             oRng2 = foglioExcel.Cells(i + 280, 2) ' point x
  22.             dati = oRng2
  23.             Array_dati = Split(dati, ";")
  24.             dato = Array_dati(1)
  25.             foglio_dest.Cells(i + 55, 1).Value = dato
  26.  
  27.            
  28.      Next i
  29.      
  30.    
  31.  
  32.     cartExcel.Close False
  33.    
  34.     cartExcel_dest.Save
  35.     cartExcel_dest.Close False
  36.  
  37. appExcel.Quit
  38.  
  39. MsgBox "copia finita"




tutto funziona!!!
Il problema è il tempo! per copiare circa 1000 dati impiega 20 minuti!:_doubt:

Come posso velocizzare la scrittura?

PM Quote