wer kann mir helfen (*schluchz*).
Ich möchte von einer aktuellen ACCESS97-Datenbank aus eine
Excel-Tabelle per VBA in eine andere Datenbank importieren.
Würde ich den Importvorgang für die aktuelle Datenbank
programmieren, würde ich dies mit dem DoCmd.TransferSpreadsheet-Befehl
machen. Für eine andere Datenbank funktioniert das nicht, oder ??
Gibt´s vielleicht eine Möglichkeit docmd-Befehle auf eine andere
Datenbank anzuwenden.
Gibt´s vielleicht eine Möglichkeit docmd-Befehle auf eine
andere
Datenbank anzuwenden.
Das habe ich noch nie versucht, aber Du kannst doch die Tabelle der zweiten MDB auf der ersten verbinden; dann kannst Du sie ganz normal als Tabelle betrachten - auch TransferSpreadsheet darauf anwenden. Damit landen die Daten auf der zweiten, wo Du sie auch haben willst.
Function StarteExcel(ByVal DateiName$) As Object
Dim XL1 As Object ’ Variable für Verweis auf Microsoft Excel.
On Error Resume Next
'Ist Excel bereits gestartet?
Set XL1 = GetObject(, „Excel.Application“)
'Fehler => nein! Neu starten…
If Err 0 Then Set XL1 = CreateObject(„Excel.Application“)
On Error GoTo 0
If Len(DateiName) > 0 Then XL1.Workbooks.Open DateiName
'Jetzt könnte man im Prinzip alles das machen,
'was man auch in Excel-Macros machen kann!
XL1.Visible = True
Set StarteExcel = XL1
Set XL1 = Nothing ’ Verweis auf Anwendung und Tabelle freigeben.
End Function
Das klappt übrigens auch mit z.B. Word - einfach „Excel.Application“ ersetzen durch „Word.Application“ (die Kunst ist eigentlich nur, den internen Namen der jeweiligen Applikation herauszufinden)!