Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fertige SQL Abfrage in Excel

Fertige SQL Abfrage in Excel
Kai
Hallo,
ich habe ein fertige SQL Abfrage im Format "*.SQL" diese funktioniert auch wenn ich Sie über mein SQL Programm laufen lassen.
Wie kann ich das jedoch mit Excel machen, also ohne SQL PROG?
Habe da schon viel gegoogelt, aber leider nur was gefunden wo ich mein SQL Statement direkt in den VBA Code schreibe. Das geht aber nicht weil der Code zu lang ist :(
Hat Jemand ne Idee?
Am besten wäre varSQL = C:\ABFRAGE.SQL oder so?!?
Danke!
Gruß Kai

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
SQL Abfrage aus TEXT-Datei einlesen
25.08.2011 13:53:25
NoNet
Hallo Kai,
hier ein Beispiel :
Die Datei C:\Temp\QRY_Abteilung_X.sql (reines ASCII-Text-Format !) enthält z.B. folgende SQL-Anweisung :
Select * from dbQuelle
Where dbQuelle.Abteilung = "x";
Hier der passende VBA-Code zum Einlesen der SQL-Anweisung :
Sub SQL_Command_Per_FSO_Einlesen()
Const ForReading = 1, ForWriting = 2
Dim fso, objDatei As Object, strDateiname As String, strSQL As String
Set fso = CreateObject("Scripting.FileSystemObject")
strDateiname = "C:\temp\QRY_Abteilung_X.SQL" 'Hier den Dateinamen eingeben
Set objDatei = fso.OpenTextFile(strDateiname, ForReading)  'Datei zum Lesen öffnen
If objDatei.AtEndOfStream Then
strSQL = ""
Else
strSQL = objDatei.ReadAll 'kompletten Dateiinhalt einlesen (max. 64 kb !)
MsgBox "Datei : " & strDateiname & vbLf & vbLf & _
"SQL-Command : " & strSQL, vbOKOnly, "SQL-Anweisung aus Datei :"
'Hier noch weitere Verwendung des SQL-Commands einbauen...
End If
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Anzeige
AW: SQL Abfrage aus TEXT-Datei einlesen
25.08.2011 14:03:47
Kai
Hi NoNet,
Danke! Klappt. Hatte nur Angst dass er sich hier beißt:
With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
.CommandText = strSQL
.Name = "EXPORT"
.Refresh BackgroundQuery:=False
End With
Geht das auch eleganter? Also ohne das ".CommandText = strSQL
Gruß
Kai
.CommandText MUSS zwingend angegeben werden
25.08.2011 14:13:21
NoNet
Hallo Kai,
Geht das auch eleganter? Also ohne das ".CommandText = strSQL

Nein, ohne die Eigenschaft .CommandText kann die Abfrage natürlich nicht ausgeführt werden !
Man könnte das auch etwas anders schreiben - ist aber nicht wesentlich eleganter :
    Dim qry As QueryTable, strSQL As String, varConn
'strSQL einlesen wie oben beschrieben
'varConn entsprechen befüllen :
varConn = "ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
Set qry = ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
qry.CommandText = strSQL

Gruß, NoNet
Anzeige
AW: .CommandText MUSS zwingend angegeben werden
25.08.2011 14:21:37
Kai
Hallo NoNet,
alles klar. Naja eigentlich is es ja auch Egal =)
Jetzt lass ich das Teil per Workbook Open laufen, jeden Tag wenn keiner im Büro ist.
Danach mach Excel die Auswertung. PERFEKT! DANKE!

80 Forumthreads zu ähnlichen Themen

Daten aus verschiedene Zeilen nach Datenbank
Jessica

Hallo, liebe Excelfreunde,
irgendwie habe ich wieder einer solcher Tage, da komme ich nicht an die Lösung.
Ich möchte eine Datenbank aus den vorhandenen Daten machen.
Das Problem, die Daten stehen (in gleichmässigen Abständen) in verschiedenen Zeilen:
Spalte
D
Zeilen
...
08.09.2008 16:12:00
Thread-ID: 1008191
7 Beiträge
Anzeige
Daten aus "Datenbank"tabelle selektieren
AJ

Hallo zusammen,
ich habe ein Problem bei der Datenselektion aus einer Grundtabelle, die als "Datenbank" fungiert. Diese enthält alle VK-Artikel, Artikel-Kunde-Beziehungen sind unter dem Artikel in je 1 Zeile aufgeführt (d.h. 2 Suchkriterien). Wenn ich nun einer Teilmenge der VK-Artikel die...
13.01.2009 12:33:37
Thread-ID: 1039199
7 Beiträge
Daten aus Accessdatenbank holen: Variabel
Gordon

Moin moin,
ich habe eine Accessdatenbank, aus der ich mir per Makro Daten holen möchte. Habe daher mal per Recorder folgendes aufgezeichnet und etwas abgeändert:
With Worksheets("ZS").QueryTables.Add(Connection:=Array(Array( _ "ODBC;DSN=Microsoft Access-Datenbank;DBQ=D:\Dokumente und...
20.06.2009 09:46:23
Thread-ID: 1083060
4 Beiträge
Anzeige
Listbox mit Daten aus Datenbank füllen?
Nicole

Hi,ich habe ein grundsätzliches Problem. Ich möchte in Excel auf Daten aus einer Access Datenbank zugreifen. In diesem bestimmten Fall möchte ich in eine ListBox die Spalte aus einer Tabelle der Datenbank einbinden.
Kann mir jemand den VBA Code dazu geben? Die DAtenbank öffnen ist nicht das...
17.04.2002 11:37:52
Thread-ID: 114038
2 Beiträge
SQL-Abfrage funktioniert nur im Einzelschritt-Mode
Fritz

Hallo zusammen,
ich rufe mit einer SQL Abfrage einzelne Datensätze aus einer Access-Datenbank ab und brauche die Daten in einem Excel-Blatt.
Die Abfrage funktioniert auch, aber leider nur im Einzelschritt Mode. Wenn ich das Programm normal laufen lasse, kommen die Daten erst, wenn das Pro...
30.04.2002 11:27:59
Thread-ID: 117401
4 Beiträge
Daten aus Tabelle abfragen
Peter

Guten Abend
Folgende Beispieltabellen
A)Bereich mit 3 Spalten (A, B, C)
MUELLER 2005 AG 'Müller arbeitet ab Jahr 2005 in Abteilung AG (bis 2006)
MUELLER 2007 BS 'Müller arbeitet ab Jahr 2007 in Abteilung BS
SCHMID 2003 LI '...
MEYER 2004 TI...
18.08.2010 09:24:24
Thread-ID: 1172775
6 Beiträge
SQL-Abfragen per VBA ausführen
Joni

Hi,
ich setze mich erstmalig mit der Abfrage von Daten mittels Excel aus einer Oracledatenbank auseinander. Dazu habe ich folgende Frage. Ich habe eine Mappe mit 2 Tabellenblätter die jeweils eine Abfrage enthalten. Die Daten werden auch problemlos abgefragt. Jetzt sollte ich für beide Abfr...
06.12.2010 19:50:47
Thread-ID: 1190303
2 Beiträge
Sql Abfrage einer Listbox zuweisen
peter

Hallo
Ich lese mit folgendem Code Daten von einem SQL Server
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Cn.Provider = "SQLOLEDB.1"
Cn.Properties("Data Source") = "XXXX\XX"
Cn.Properties("Initial Catalog") = "YYYYY"
Cn.Prope...
20.09.2011 16:16:39
Thread-ID: 1230787
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
6
3
3
1
3
5
1
2
4
4
3
1
1
1
1
1
6
4
3
1
1
1
1