Problema di oggi.......
Con il codice sottostante ho sempre selezionato da una form una cartella di excel e caricato i nomi dei suoi fogli per poi successivamente selezionare quello da caricare ,dalla list box........ tutto ok sino ad oggi e non capisco come mai.....
Come posso individuare il problema ,e come risolverlo?
Codice errore "errore di run time...... la tabella esterna non è nel formato previsto............"
- Codice: Seleziona tutto
Private Sub btnBrowse1_Click()
Dim FName1 As Variant
FName1 = Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsx") ', Excel Files (*.xls),*.xls")
If FName1 = False Then
Exit Sub
End If
Me.tbxWorkbook1.Text = FName1
ListSheets1 CStr(FName1)
End Sub
Private Sub ListSheets1(WBName1 As String)
Dim CN As Object 'ADODB.Connection '<=======
Dim RS As Object ' ADODB.Recordset
Dim TableName1 As String
Set CN = CreateObject("ADODB.Connection")
With CN
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & WBName1 & ";" & _
"Extended Properties=""Excel 8.0;"""
.Open '<<<<<<<======= Debug in questo punto !!!!!!!!!!
Set RS = .OpenSchema(20) 'adSchemaTables
End With
Me.lbxSheets1.Clear
Do While Not RS.EOF
TableName1 = RS.Fields("table_name").Value
If Right$(TableName1, 1) = "$" Then
Me.lbxSheets1.AddItem Left(TableName1, Len(TableName1) - 1)
End If
RS.MoveNext
Loop
RS.Close
CN.Close
End Sub
Grazie a chi sarà utile...........