Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MS-Querry Script in Textdatei auslesen

Forumthread: MS-Querry Script in Textdatei auslesen

MS-Querry Script in Textdatei auslesen
24.04.2006 15:18:58
Martin
Hallo Zusammen
Wieder einmal Ratlos stehe ich da und wende mich an Euch alle.
Wir haben einige Excels mit integrierten MS-Query Abfragen.
Nun wurde eine neue DB angelegt und die Querys sind nicht mehr lauffähig, es kann auch nicht der Edit Modus erreicht werden und der Script wurde nicht hinterlegt vom ersteller.
Darum meine Frage:
Kann man die Querys in eine Text Datei auslesen damit ich diese an die neue DB anpassen kann?
Gruss und unermesslichen Dank
Martin
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ergänzung zur Fragestellung
25.04.2006 08:46:25
MartinM
Hallo Zusammen
Damit ich Euch besser erklären kann was ich mit der Frage wollte:
For Each Wsh In ThisWorkbook.Worksheets
'Zählen wieviele Querys existieren
For Each qt In Wsh.QueryTables
Counter = Counter + 1
Next qt
If Counter &gt 0 then
'QueryTable in Textdatei oder Excelzelle
For Each qt In Wsh.QueryTables
'Nun fehlt mir der Script, hier müsste das SQL von jeder QueryTable in eine Zelle einer neuen Excel oder in eine Textdatei geschrieben werden
Next qt
End if
'Löschen der bestehenden QueryTables
For Each qt In Wsh.QueryTables
.QueryTable.Delete
Next qt
Next Wsh
VBA-Gruss Martin
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 10:35:31
EtoPHG
Hallo Martin,
Probiers mal so:

Sub QueriesAuslesen()
Dim qrt As QueryTable
Dim wsh As Worksheet
Dim bAddList As Boolean
Dim iQueryCnt As Integer
iQueryCnt = 0
bAddList = True
For Each wsh In ActiveWorkbook.Worksheets
If wsh.Name = "QueryList" Then
bAddList = False
Exit For
End If
Next
If bAddList Then
ActiveWorkbook.Sheets.Add Before:=ActiveWorkbook.Worksheets(1)
ActiveSheet.Name = "QueryList"
End If
Sheets("QueryList").Cells(1, 1).Value = "BlattName"
Sheets("QueryList").Cells(1, 2).Value = "QueryName"
Sheets("QueryList").Cells(1, 3).Value = "ConnectionString"
Sheets("QueryList").Cells(1, 4).Value = "SQLString"
For Each wsh In ActiveWorkbook.Worksheets
For Each qrt In wsh.QueryTables
iQueryCnt = iQueryCnt + 1
Sheets("QueryList").Cells(1 + iQueryCnt, 1) = wsh.Name
Sheets("QueryList").Cells(1 + iQueryCnt, 2) = qrt.Name
Sheets("QueryList").Cells(1 + iQueryCnt, 3) = qrt.Connection
Sheets("QueryList").Cells(1 + iQueryCnt, 4) = qrt.Sql
Next
Next
If iQueryCnt = 0 Then
MsgBox "Keine Queries in dieser Arbeitsmappe", vbExclamation
Else
MsgBox "Total " & iQueryCnt & " Queries in der Arbeitsmappe.", vbInformation
End If
End Sub

Gruss Hansueli
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 10:50:36
MartinM
Hallo Hansueli
DAS ist einfach GENIAL, DANKE!
Die richtige Lösung für mein Problem.
Hoffentlich kann jemand anderes ebenfalls davon einen Nutzen ziehen.
VBA-Gruss Martin
Der Weg ist das Ziel!
AW: Ergänzung zur Fragestellung
25.04.2006 11:00:16
EtoPHG
Hallo Martin,
Danke für die Rückmeldung.
P.S. Ich glaube nicht, dass du die Queries löschen muss, wenn du die Connection und SQL Zellen im ausgelesenen Tabellenblatt anpasst, kannst Du EASY eine Routine schreiben, die aus den Zellen wieder die QueryTable.Eigenschaften anpasst und Dein Excelsheet ist wieder up-to-date.
Gruss Hansueli
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 11:09:48
MartinM
Hallo Hansueli
Ich habe gedacht, dass die Abfragen neu erstellt werden müssten, desshalb habe ich gleich mit dem .delete die alten überflüssigen löschen wollen. Aber wenn das geht, dass man die Querys updaten kann, wie lautet denn da der Befehl? Wie kann ich verhindern, dass ich das falsche Werte Update?
In diesen Routinen habe ich noch nicht den notwendigen Durchblick, würde aber gerne auch diesen Bereich besser verstehen. Eventuell hilfst Du mir beim Erstellen dieser Routine.
Danke im Voraus
Gruss Martin
Mein Ziel ist wieder einmal der Weg!
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 11:52:24
EtoPHG
Hallo Martin,
Der folgende Code schreibt die Werte aus dem generierten Blatt in die Queries zurück.
Public 

Sub QueriesEinlesen()
Dim qrt As QueryTable
Dim wsh As Worksheet
Dim bExistList As Boolean
Dim iQueryCnt As Integer
bExistList = False
For Each wsh In ActiveWorkbook.Worksheets
If wsh.Name = "QueryList" Then
bExistList = True
Exit For
End If
Next
If Not (bExistList) Then
MsgBox "QueryList existiert nicht !" & vbCrLf & _
"Keine Queries angepasst", vbCritical
Exit Sub
End If
For Each wsh In ActiveWorkbook.Worksheets
For Each qrt In wsh.QueryTables
iQueryCnt = 1
Do While Sheets("QueryList").Cells(1 + iQueryCnt, 1).Value <> ""
If wsh.Name = Sheets("QueryList").Cells(1 + iQueryCnt, 1).Value And _
qrt.Name = Sheets("QueryList").Cells(1 + iQueryCnt, 2) Then
qrt.Connection = Sheets("QueryList").Cells(1 + iQueryCnt, 3).Value
qrt.Sql = Sheets("QueryList").Cells(1 + iQueryCnt, 4).Value
MsgBox "Blatt:" & wsh.Name & vbCrLf & _
"Query:" & qrt.Name & " angepasst!", vbInformation
End If
iQueryCnt = iQueryCnt + 1
Loop
Next
Next
End Sub

D.h. was Du sicherstellen musst ist das RICHTIGE anpassen der C (Connection) und D (SQL) Spalten im QueryList Blatt.
Als Tipp: Mach mal eine neue einfache MS-Query auf die Neue Datebank, lass dann das Auslese-Makro laufen und vergleiche die Wert mit den alten. Dann findest Du vermutlich leichter raus, was Du an den alten anpassen und zurückschreiben musst.
Gruss Hansueli
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 12:38:00
MartinM
Hallo Hansueli
Danke für Deine Einlese Routine, die meinige hatte wohl ebenfalls funktioniert, aber ich denke bei mehreren Querys ist Deine Variante die Sichere.
Der Test war sehr gut verlaufen, die Dateien arbeiten wieder wie vorher, durch die Anpassung der connection.values wurde das Problem behoben.
Auf ein andermal.
Martin
Am Ziel
Anzeige
AW: Ergänzung zur Fragestellung
25.04.2006 11:40:03
MartinM
Hallo Hansueli
Habe die Lösung so Versucht, denke das sollte so funktionieren.
&ltpre&gt
Sub QuerysUpdaten()
Dim qrt As QueryTable
Dim wsh As Worksheet
Dim bAddList As Boolean
Dim iQueryCnt As Integer
iQueryCnt = 0
For Each wsh In ActiveWorkbook.Worksheets
For Each qrt In wsh.QueryTables
iQueryCnt = iQueryCnt + 1
Sheets(Sheets("QueryList").Cells(2, 1).Value).Select
If qrt.Name = Sheets("QueryList").Cells(1 + iQueryCnt, 2).Value Then
qrt.Connection = Sheets("QueryList").Cells(1 + iQueryCnt, 3).Value
qrt.Sql = Sheets("QueryList").Cells(1 + iQueryCnt, 4).Value
End If
Next
Next
If iQueryCnt = 0 Then
MsgBox "Keine Queries ", vbExclamation
Else
MsgBox "Total " & iQueryCnt & " Queries in der Arbeitsmappe UP TO DATE.", vbInformation
End If
End Sub&lt/pre&gt
VBA-Gruss MartinM
Der Weg ist das Ziel!
Anzeige
;

Forumthreads zu verwandten Themen

Textdatei auslesen
Henner

Hallo,
ich suche jetzt schon seit einiger Zeit das gesamt Forum und Netz durch und bin entweder blind oder es gibt tatsächlich keinen Hinweis zu meinem Fall. Ich möchte einfach nur den Inhalt einer bestimmten Textdatei (zB.: C:\test\test.txt) auslesen und in Tabelle1 in Zelle A1 anzeigen -...
06.09.2008 14:41:00
Thread-ID: 1007844
5 Beiträge
Textdatei auslesen
Urs

Hallo an alle,
ich möchte eine txt-Datei, in der die Daten zeilenweise aufgeführt sind, in Spaltenform nach Excel auslesen lassen (d.h. jede Zeile der txt-Datei soll eine Spalte in der XLS-Datei füllen).
Parallel dazu interessiert mich, ob es möglich ist, z. B. die ersten 25 Zeilen der...
10.09.2008 17:13:25
Thread-ID: 1008860
13 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Textdatei in Excel importieren und umgestalten.
Pascal

Hallo allerseits
Dank Diesem tollen Code hier unten, welchen ich übrigens hier im Forum erhalten hatte versuche ich eine komplizierte Textdatei im Excel umzugestalten.
Die Textdatei ist sehr gross und hat folgende Inhalte:
Aufteiler 0000265614 ,Position 00010
Bestellposition für...
18.09.2008 13:18:02
Thread-ID: 1010721
4 Beiträge
Textdatei erzeugen bringt Fehler
SteffenS

Hallo Zusammen,
ich verwende folgenden Code um eine Textdatei neu erzeugen und diese mit Werten zu füllen:
Open sZielDatei For Output As #55
sPrintString = "LIQUID;FILIALE;DATENART;JAHR;MONATE;WERT"
Print #55, sPrintString
Close #55
Bis Excel 2003 funktiioniert dies auch...
22.09.2008 20:29:00
Thread-ID: 1011567
5 Beiträge
Anzeige
Zeile fortlaufend nach Textdatei
Daniel

Hallo,
in einer Tabelle wird laufend ein Wert berechnet. Nun möche ich mit Worksheet_Calculate
ein Makro aufrufen, das diesen Wert, untereinander (zeilenweise) in eine Textdatei schreibt.
Das habe ich bisher, ich dachte \n bewirkt einen Zeilenumbruch...tut es aber nicht. Stattdess...
02.10.2008 10:12:00
Thread-ID: 1013799
4 Beiträge
Textdatei mit Tabs in Excel einlesen
TomTom

Hi,
wie kann ich eine Textdatei mit Tabs Trennzeichen per Makro in eine Excel Datei einlesen ? Ich brauche die Möglichkeit, dass das Makro den Öffnen-Dialog nuzt und ich die Textdatei vorher auswählen kann.
Hat vielleicht jemand ein Beispiel dazu, Wäre nett, danke
Tom
05.11.2008 11:54:00
Thread-ID: 1021827
7 Beiträge
Textdatei importieren in Excel
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden, dabei werden Suchwörter aus einer
Textdatei eingelesen. Es funktioniert auch, wenn das Suchwort am
Anfang der Zeile steht. Als Beispiel: Grafikchip;10.10.2008;1;2 wird die
ganze Zeile eingelesen, wenn aber das Suchwort G...
16.11.2008 15:18:27
Thread-ID: 1024910
8 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
Excel --> Textdatei --> Linux konform
Thorsten

Hallo,
mein Problem ist, dass ich eine TExt datei mit Excel erzeuge und unter linux einbinden muss.
Wenn ich die Datei per mail versende, kommt es , je nach mailanbieter, zu Zeilenumbrüchen, die unter linux nicht gelesen werden können.
(ich maile die Datei an einen Person, die von...
12.12.2008 15:53:45
Thread-ID: 1032450
5 Beiträge
Sehr schwierig: Textdatei auf Webserver erweitern
Martin

Hallo,
ich habe eine Textdatei auf einem Webserver, die durch ein Formular durch andere Personen erweitert wird. Schreibt jemand Daten in das Webformular, so wird der Textdatei (eine CSV-Datei) um eine Zeile erweitert. Manchmal müssen aber sehr viele Datensätze angelegt werden, was ein stän...
27.01.2009 11:46:00
Thread-ID: 1044147
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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