T
Tobias Köhler
Hallo, ich hoffe ihr könnt mir helfen:
Ich habe vor einiger Zeit eine Excelliste erstellt, die sich die Daten aus der Datenbank holt. Damals lief alles ohne Probleme. Heute nun soll ich diese Liste auch auf anderen Rechnern bereitstellen - und siehe da: nix geht mehr. Auf 2 Rechnern funktioniert es noch, aber die restlichen (inklusive meinem) haben damit ein Problem.
Und zwar handelt es sich hierbei um einen Laufzeitfehler 1004 - Allgemeiner ODBC-Fehler. Dieser wird in der Zeile .Refresh BackgroundQuery:=False ausgelöst. Irgendwelche Vorschläge Ich weiß nicht weiter :-(
Ich habe vor einiger Zeit eine Excelliste erstellt, die sich die Daten aus der Datenbank holt. Damals lief alles ohne Probleme. Heute nun soll ich diese Liste auch auf anderen Rechnern bereitstellen - und siehe da: nix geht mehr. Auf 2 Rechnern funktioniert es noch, aber die restlichen (inklusive meinem) haben damit ein Problem.
Und zwar handelt es sich hierbei um einen Laufzeitfehler 1004 - Allgemeiner ODBC-Fehler. Dieser wird in der Zeile .Refresh BackgroundQuery:=False ausgelöst. Irgendwelche Vorschläge Ich weiß nicht weiter :-(
Code:
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=*****;UID=*****;PWD=*****;DBQ=EURO_TNS ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NU" _
), Array("M=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;")), Destination _
:=Range("A1"))
.sql = sql
.Name = "Daten"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With