Como utilizar datos con SQL en hojas Excell
Publicado por Toto (1 intervención) el 19/07/2013 16:12:09
Quiero que a traves de sentencias SQL acceder a datos de una hoja excell, y visualizarlos en otra hoja de resultados, pero me da un error la sentencia..
esta es la funcion que uso.
Me da un error al ejecutar la instruccion : fRequete.Range("mHReales").QueryTable.Connection = ChaineConnection
Necesito ayuda urgente,
Muchas Gracias
esta es la funcion que uso.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ConnectListe()
Dim Chemin As String
Dim Fichier As String
Dim NomPilote As String
Dim ChaineConnection As String
Chemin = ThisWorkbook.Path
Fichier = ThisWorkbook.Name
NomPilote = fRequete.Range("dConexion")
ChaineConnection = "ODBC;DSN=" & NomPilote & ";DBQ=" & Chemin & "\" & Fichier & ";DefaultDir=" & Chemin & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
fRequete.Range("mHReales").QueryTable.Connection = ChaineConnection
fRequete.Range("mHReales").QueryTable.CommandText = fRequete.Range("mHReales").Cells(1, 1).Offset(-2, 0)
fRequete.Range("mHReales").QueryTable.Refresh
fRequete.Range("mHTotales").QueryTable.Connection = ChaineConnection
fRequete.Range("mHTotales").QueryTable.CommandText = fRequete.Range("mHTotales").Cells(1, 1).Offset(-2, 0)
fRequete.Range("mHTotales").QueryTable.Refresh
End Sub
Me da un error al ejecutar la instruccion : fRequete.Range("mHReales").QueryTable.Connection = ChaineConnection
Necesito ayuda urgente,
Muchas Gracias
Valora esta pregunta
0