Hi!
Ich habe die Makro Aufzeichnung genutzt waehrend ich in Excel den
SQL Server als Datenquelle hinzugefuegt habe. Die Daten wurden
erfolgreich importiert.
Aber wenn ich den aufgezeichneten Code in einer neuen Tabelle
ausfuehre, bekomme ich eine Fehlermeldung.
Hier der aufgezeichnete Code:
Sub Macro1()
With ActiveSheet.ListObjects.Add(SourceType:=0,
Source:=Array("OLEDB;Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=True;Data
Source=MEINPC\SQLEXPRESS;Use Procedure for Prepare=1;Auto
Translate=True;Packet Size=4096;Workstation ID=MEINPC;Use
Encryption for Data=False;Tag with column collation when
possible=False;Initial Catalog=MEINEDATENBANK"),
Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText =
Array("""MEINEDATENBANK"".""dbo"".""MEINETABELLE""")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Users\USER\Documents\My Data
Sources\MEINPC_SQLEXPRESS MEINEDATENBANK
MEINETABELLE.odc"
.ListObject.DisplayName =
"Table_MEINPC_SQLEXPRESS_MEINEDATENBANK_MEINETABEL
LE"
.Refresh BackgroundQuery:=False
End With
End Sub
Hier die Fehlermeldung die in der Zeile "With ..." auftritt:
Laufzeitfehler 13 ...
Warum funktioniert nicht einmal der aufgezeichnete Code?
Im naechsten Schritt wuerde ich natuerlich gerne Variablen
einfuegen damit mein Programm auch andere nutzen koennen.
Aber dafuer muss es erstmal so funktionieren.
Habt ihr Ideen woran es liegt?
Danke und beste Gruesse,
critchm.
P.S.: Entschuldigt bitte die umstaendlichen Umlaute, aber ich habe
hier nur ein englisches Tastaturlayout.