aus Formular bestimmte Daten in eine externe Exceltabelle übertragen

[Radi1311]

hallo zusammen,
gerne möchte ich nochmal um eure Unterstützung bitten :-)

ich möchte aus einem Formular bestimmte Daten in eine externe Exceltabelle übertragen; also nicht über "Externe Daten", "Excel"
die externe Exceltabelle ist speziell formatiert, beinhaltet u.a. auch verformelte Zellen, die wiederum auf die Daten von Access zurückgreifen. die mit den Daten aus Access gefüllte externe Exceltabelle wird anschliessend extern weiter verwendet
geht das??

[DF6GL]

Hallo,

klar geht das.

Siehe hier (aus dbwiki.net):

http://www.dbwiki.net/images/3/3f/AccSampleAccessToExcel.zip

[Radi1311]

hallo DF6GL,

danke für deine rasche Unterstützung :-)
klappt aber noch nicht so recht.

wenn ich da drauf klicke "Excel-Datei - wenn vorhanden - öffnen, Arbeitsblatt suchen - wenn......." kommt die Fehlermeldung: "Datei nicht gefunden", klicke ich auf "ok", kommt "Laufzeitfehler 1004..." - "Excel kann auf die Datei ...... nicht zugreifen..."
der Debugger markiert diese Zeile "   .ActiveWorkbook.SaveAs Me!FName"

darf ich dich nochmal um deine Unterstützung bitten
was muss ich wo eintragen/ändern, dameit es funzt?

ich verwende Access 2007

[MaggieMay]

Hallo,

was hast du denn unter "FName" eingetragen??

[DF6GL]

Hallo,


die Datei ist nur als Beispiel zum Prinzip zu verstehen.  Du musst Dich sowieso mit VBA auseinander setzen und dabei gleich lernen, wie man mit solchen Fehlermeldungen umgeht, bzw. die abstellt (hier: in akt. Version konvertieren, Sicherheitsoptionen einstellen, Code debuggen, etc...)


Wenn Du unter "Excel-Datei" einen gültigen Pfad und eine xls-Datei angibst, sollte die Übertragung in diese Datei schon funktionieren.

[Radi1311]

hallo Ihr beiden,

danke für eure rasche antwort 
ich gebe zu, mich mit VBA nicht so wirklich gut auszukennen.

Ich hab's gefunden 
Da war n Schreibfehler unter "Excel-Datei"

Es funktioniert!!

* D * A * N * K * E *

Gerne möchte ich aber die Meldungen "Datei vorhanden" & "Blatt vorhanden" abstellen. Nur, wenn die Datei, bzw. das Blatt fehlt soll die Fehlermeldung kommen.
Könnt Ihr mir sagen, wie das geht?

[MaggieMay]

Hi,

im einfachsten Fall kannst du den jeweiligen MsgBox-Befehl durch ein vorangestelltes Hochkomma auskommentieren.

[Beaker s.a.]

Hallo,

@Maggie

im einfachsten Fall kannst du den jeweiligen MsgBox-Befehl durch ein vorangestelltes Hochkomma auskommentieren.

Hilft ihm aber nicht bei

Nur, wenn die Datei, bzw. das Blatt fehlt soll die Fehlermeldung kommen.

@radi
In dem Fall sollte doch ein Fehler ausgelöst werden. Auf den kannst Du
mit der MsgBox reagieren.

gruss ekkehard

[MaggieMay]

@ekkehard:

Hilft ihm aber nicht bei

wieso nicht?

Es könnten doch gezielt die Meldungen ausgeschaltet werden, die tatsächlich überflüssig sind.

Gerne möchte ich aber die Meldungen "Datei vorhanden" & "Blatt vorhanden" abstellen.

[Radi1311]

hallo ihr,

danke für eure Unterstützung.
die MsgBoxes mit "Datei vorhanden" & "Blatt vorhanden" habe ich durch ein Hochkomma abgestellt. funktioniert alles richtig gut, dank eurer Hilfe 

Jetzt aber tut sich ein anderes Problem auf 
Ich hab den Code der Schaltfläche aus der "Musterdatenbank" in meine Datenbank für die dafür vorgesehne Schaltfläche kopiert und alle Felder entsprechend angepasst.
beim Klick darauf bekomme ich diese Fehlermeldung: "Benutzerdefinierter Typ nicht definiert"
Das wird markiert:
Private Sub OpenExcel_Click()
Dim oExcel As Excel.Application, Tmp, oSheet As Excel.Worksheet, Er As Long

Könnt ihr mir nochmal helfen?

[MaggieMay]

Hi,

wenn du die Objekte explizit (-> Early Binding) deklarieren willst, so brauchst du einen Verweis auf die Excel-Objektbibliothek. Die Alternative (-> Late Binding) wäre, die Objekte mit "As Object" zu deklarieren.

[Beaker s.a.]

Hallo Maggie,
Hast ja recht. Da hat mir meine gefilterte Wahrnehmung mal wieder einen
Streich gespielt; - hatte "nicht vorhanden" gelesen 
gruss ekkehard

[Radi1311]

Ihr seit die  B E S T E N !!
Nochmals vielen, vielen D A N K !!

Ich hatte die Excel-Object Library nicht für meine Datenbank aktiviert