|
Salve ragazzi! Sono un nuovo utente. Ho iniziato da pochi giorni a programmare con Vb6 e non riesco a importare da un file excel il contenuto di una cella; ovvero per ora riesco solo a prendere il contenuto da tutte le righe...però per intero!A me interessa poter prendere solo il contenuto di una cella...del tipo vorrei estrapolare il contenuto della cella C10. Mi potete aiutare in qualche modo?
Vi posto un po' di codice...
- inizio code -
Private Sub Command1_Click()
Dim NumFile As Integer
Dim sNomeFile As String
Dim Temp(1000) As String
Dim counter As Integer
NumFile = FreeFile()
Open "c:\file.xls" For Input As #NumFile
While Not EOF(NumFile)
counter = counter + 1
Input #NumFile, Temp(counter)
Wend
Close #NumFile
Combo1.AddItem Temp(1)
Combo1.AddItem Temp(2) & CrLf 'inserisce una cella di un file excel in una listbox
Combo1.AddItem Temp(3) & CrLf
Combo1.AddItem Temp(4) & CrLf
Combo1.AddItem Temp(5) & CrLf
Combo1.AddItem Temp(6) & CrLf
Combo1.AddItem Temp(7) & CrLf
Combo1.AddItem Temp(8) & CrLf
Combo1.AddItem Temp(9) & CrLf
Combo1.AddItem Temp(10) & CrLf
Combo1.AddItem Temp(11) & CrLf
Combo1.AddItem Temp(12) & CrLf
Combo1.AddItem Temp(13) & CrLf
Combo1.AddItem Temp(14) & CrLf
Combo1.AddItem Temp(15) & CrLf
Combo1.AddItem Temp(16) & CrLf
Combo1.AddItem Temp(17) & CrLf
End Sub
- fine code -
grazie!
| 
