Ho un documento Word in cui ho inserito un form con un controllo ListBox che prende i dati da un foglio Excel.
Con la seguente routine funziona perfettamente: tuttavia il PROBLEMA è che non mi inserisce il titolo delle colonne del file EXCEL.
Come posso fare in modo che nella prima riga del listbox compaiano i titoli delle colonne?
Sub CaricaDatiInListBox
On Error Resume Next
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
Dim iCount As Integer
iCount = 1
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "50,50,50,50,50,50,50,50"
ListBox1.ColumnHeads = True
DBPath = "C:\Dati.xls"
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect
sSQLSting = "SELECT * From [DATA$]"
mrs.Open sSQLSting, Conn
For Each x In mrs.Fields
Do Until mrs.EOF
ListBox1.AddItem
ListBox1.List(iCount - 1, 0) = mrs.Fields("MESI").Value
ListBox1.List(iCount - 1, 1) = mrs.Fields("SETTORI").Value
ListBox1.List(iCount - 1, 2) = mrs.Fields("QUANTITA'").Value
ListBox1.List(iCount - 1, 3) = mrs.Fields("NAZIONI").Value
iCount = iCount + 1
mrs.MoveNext
Loop
Next
End sub