Passwort Abfrage über Query automatisieren
11.11.2004 11:08:07
Christian
ich habe in Access einige Abfragen, die alle auf dieselbe Oracle Datenbank zugreifen. In Excel führe ich diese Abfragen über Query durch.
Allerdings muss ich mich bei jeder Query erneut an der Oracle Datenbank anmelden, was bei über zehn Abfragen ziemlich störend ist, vor allem, weil es sich immer um das gleiche Passwort handelt.
Meine Vorstellung wäre ein Makro welches alle Queries enthält, die Passwort Abfrage aber automatisch erledigt.
Die Queries sind ja kein Problem mit dem Makro Rekorder, aber vielleicht kann mir jemand bzgl. dem Passwort helfen.
Sub Abfrage_Query()
With ActiveSheet.QueryTables.Add(Connection:= "FINDER;C:\***.dqy" , Destination:=Range("X1"))
.Name = "ELDIW6_R1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Danke im Voraus
mfg
Christian