Excel - Como utilizar datos con SQL en hojas Excell

   
Vista:

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.

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Excel
- Código fuente de Excel
- Cursos de Excel
- Temas de Excel
- Chat de Excel
información
Códigos de Excel
- CARDEX
- Calculadora Científica
- Misceláneas Excel