Daten aus Word auslesen
23.06.2008 09:13:00
Thomas3
ich habe mal mit Hilfe - ich glaube - dieses Forums ein Tool geschrieben, welches mir aus in einem Verzeichnis liegenden Wordformularen die Einträge ausliest.
ich bin mir nicht ganz sicher, aber bei Excel 2000 hat das noch wunderbar funktioniert, aber mit 2003 haut das irgendwie nicht mehr hin.
Zum einen läuft das nicht ganz rund ( Word kann anschließend nicht mehr arbeiten udn muß komplett neu gestartet werden ) und zum anderen erstellt Word ( auch die 2003er Version ) lauter wiederhergestellte Kopien.
Ich bin dankbar für jeden Hinweis, warum das Programm nicht sauber läuft, da ich das Teil jetzt öfters wieder bräuchte.
Recht herzlichen Dank und eine schöne Woche
Thomas
Sub Abstracteinlesen()
Dim str_Ordner As String
Dim str_Datei As String
Dim int_Anz As Integer
Dim int_Zähler As Integer
Dim int_Zeile As Integer
Dim int_Spalte As Integer
Dim rng_Zelle As Range
Dim rng_Start As Range
Dim lzeile As Integer
'Bildschirm einfrieren
Application.ScreenUpdating = False
'Ordnername auslesen
str_Ordner = Range("F6")
'auszulesende Dateiname definieren
str_Datei = Dir(str_Ordner & "*.doc")
On Error Resume Next
'Start des Bereiches definieren, ab dem die Daten hinein geschrieben
'werden müssen
Set rng_Start = Range("a10")
'Start Schleife
While str_Datei ""
Set doc = GetObject(str_Ordner & str_Datei)
int_Anz = doc.formfields.Count
For int_Zähler = 1 To int_Anz
Set rng_Zelle = rng_Start.Offset(int_Zeile, int_Zähler - 1)
rng_Zelle = doc.formfields(int_Zähler).result
Next
str_Datei = Dir
int_Zeile = int_Zeile + 1
Wend
Set doc = Nothing
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub