Zugriff auf Word-Daten
21.03.2019 20:30:57
Thomas
mit folgender Prozedur hole ich mir die für mich benötigten Informationen aus Worddateien, die _ sich in einem bestimmten Verzeichnis befinden.
Sub Import()
Dim nRow As Integer
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
Dim oWord As Object
Dim szFooter As String
Application.ScreenUpdating = False
nRow = 1
Set oWord = CreateObject("word.application")
If IsNull(oWord) Then Exit Sub
strVerzeichnis = "C:\Temp\"
StrTyp = "*.docx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname ""
oWord.documents.Open (strVerzeichnis & Dateiname)
szFooter = oWord.activedocument.sections(1).footers(1).Range.Text
Sheets(1).Cells(nRow, 1).Value = szFooter
oWord.activedocument.Close
Dateiname = Dir
nRow = nRow + 1
Loop
Application.ScreenUpdating = True
Set oWord = Nothing
End Sub
Dieses funktioniert, allerdings dauert es ziemlich lange. Jetzt nun meine Frage, gibt es hier noch eine Optimierungsmöglichkeit oder andere Vorgehensweise diese Daten auszulesen. Vielleicht ohne die Dateien zu öffnen?Vielen Dank für jeden Tipp und Eure Hilfe.
Gruß
Thomas