Office: Verbindung Excel per ODBC auf AS400

Hallo,

ich habe bisher diverse Abfragen in Excel per MS Query über die Standard ODBC-Verwaltung auf einer AS 400 programmiert.

Die Aktualisierung der Abfragen rufe ich per Makro über die Fuktion:
"Selection.QueryTable.Refresh BackgroundQuery:=False"
auf.

Wenn jedoch in einem Aktuallisierungsvorgang 3 Tabellen per Abfrage aktualisiert werden, wird auch 3x der Nutzer und das Password abgefragt.

Wie kann ich einbauen, das da Password nur 1x abgefragt wird (über ODBC Verwaltung geht das leider nicht, da Windows User und AS 400 User im Normalfall nicht das selbe Kennwort haben), oder das ich einen Standarduser und Kennwort fest in die Abfrage einbaue, so dass die Passwortabfrage nicht mehr erfolgt?

Vielen Dank für Eure Hilfe.

Gruß Andy

:)

 

Hallo,

if strPasswort = "" then strPasswort = inputbox("Passwort eingeben:")

 

Hallo Ralf,

klappt leider nicht. Passwortabfrage erfolgt trotzdem mehrfach.

Gruß Andy

 

ich sehe deinen Code nicht..

 

Hallo Ralf,

habe die Datei als ganzes mal hochgeladen.

Gruß Andy

 

Hallo Andy,

evtl. hilft das, wenn du das vor dem ersten Query auf True setzt?

Evtl. nach der letzten Abfrage auf False setzen.
Sonst: ich hab keine Ahnung von Queries.
Diese Hilfe erhälst du, wenn du im Code mit dem Cursor auf QueryTabel stehend F1 drückst.
Hangel dich da mal durch.

 

Hallo Ralf,

danke für deine Hilfe, leider funktioniert das nicht. Die Passwortabfrage kommt weiterhin.

ggf. muss ich ja statt der Verbindungseinstellung in der ODBC-Verwaltung die Verbindung direkt im Marko einstellen, ich hatte da in der Vergangenheit mal etwas, was aber auf ein anderes System bei meinem vorherigen AG ging. Ich bekomme das aber nicht mehr zusammen. Gibt's ggf. noch jemand im Forum, der Ahnung mit ODBC Verbindungen hat?

Gruß Andy

 

Hallo Andy,

Mein Tipp war, das per Makro einzubauen. Versuche das erstmal.

 

Hallo Ralf,

wenn ich nur wüsste wie das geht?

Grus Andy

 

Hallo Andy,

füge den roten Code deinem Code hinzu.

Code:

Das habe ich noch gefunden:
Ich denke, dass musst du bei den Pivot-Aktivierungen mit einbauen.
Wie? Kein Plan! Evtl. kann ein anderer weiter helfen.