Hallo Access Freunde,
ich kenne mich leider nicht mit dem automatischen Datenimport eines HTML-Dokument nach Access aus.
Manuell ist mir das gelungen. Auch die gewünschte Formatierung ist erreicht.
Ich möchte aus einem bestimmten Verzeichniss *.html Dateien importieren.
Kann man dies auch mit einem Button aus einem Formular automatisieren?
Freue mich über Antworten.
Gruß Norman
Hallo Norman,
klar das geht schon !!
Dazu bedient man sich am besten einer Schaltflaeche mit derer Click-Methode und ein Paar Zeilen VBA Code.
Sinnvollerweise erstellt man sich zuerst eine Importspezifikation.
In dem Dialog der manuellen Importfunktion gibt es einen Knopf „Weiter“, dahinter verbirgt sich die Definition der Importspezifikation. Dort kannst du die Datenfelder und Datentypen definieren und die Spezifikation unter einem Namen abspeichern.
Dann kannst du mit folgender VBA-Zeile deine HTML-Datei laden:
DoCmd.TransferText acImportHTML, „MeineImportSpec“, „MeinTblName“, „MeinDateiname“
Unter Umstaenden kann man davor noch einen Datei-Auswahldialog oeffnen und den Anwender die entsrechende Datei auswaaehlen lassen.
Hope this helps
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Norman,
Unter Umstaenden kann man davor noch einen Datei-Auswahldialog
oeffnen und den Anwender die entsrechende Datei auswaaehlen
lassen.
Ergänzend dazu: Du willst ja alle *.html-Dateien importieren. Dies machst Du mit dem Dir-Befehl. Das initiale Verzeichnis gibst Du fest vor oder lässt es per Dialog eingeben. Ganz wie es beliebt. Dann die Schleife (wie immer uncompiliert/ungetetstet):
Sub ImportVerzeichnis(pstrVerzeichnis as String)
dim strDatei as string
' in pstrVerzeichnis wird das zu durchsuchende Verzeichnis übergeben
strDatei=Dir(pstrVerzeichnis &"\*.HTML")
do while strDatei""
' das von Peter angepasst:
DoCmd.TransferText acImportHTML, "MeineImportSpec",
"MeinTblName", pstrVerzeichnis &"\" & strDatei
strDatei=Dir()
loop
End Sub
Gruß, Manfred
Danke Peter für die Antowort!
Die neue Tabelle wird angelegt. Spezifikation, Tabellenname und der Name der Datei stimmen, nur leider werden in die Felder keine Datensätze mit übernommen.
Einzig die Feldnamen werden angezeigt.
Ich werde es weiter probieren, freue mich aber weiterhin auf Ideen von euch.
Gruß Norman
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]