Jak pobierać dane z wielu plików worda i importować je do excela?

[ReBeK]

Mam problem :( w pracy mam dokumenty napisane w wordzie w postaci tabel.
musze pobrac tylko niektore komorki z tabeli worda i wpisac je do pliku
excela w celu zrobienia kalkulacji ale to zbyt czasochlonne przy duzej ilosci
plikow. wiec wygladac to ma tak ze pobieram komorki z wszystkich plikow w
katalogu z podkatalogami i wpisuje informacje do jednego pliku excela i tam
juz sobie poradze :]

[pxd74]

Post by ReBeK
Mam problem :( w pracy mam dokumenty napisane w wordzie w postaci tabel.
musze pobrac tylko niektore komorki z tabeli worda i wpisac je do pliku
excela w celu zrobienia kalkulacji ale to zbyt czasochlonne przy duzej
ilosci plikow. wiec wygladac to ma tak ze pobieram komorki z wszystkich
plikow w katalogu z podkatalogami i wpisuje informacje do jednego pliku
excela i tam juz sobie poradze :]

Poniżej przykład makra napisanego w Wordzie:

Sub MojeMakro()
dim docDocument as Document
dim tekst as String
dim plikExcela as Object

'złapanie pliku Excela
set plikExcela = GetObject("C:\sciezka\Nazwa Twojego skoroszytu.xls")

With Application.FileSearch
.NewSearch
.LookIn = "D:\Moje dokumenty\dane"
.SearchSubFolders = True
.FileName = "*.doc"
.MatchTextExactly = True
.FileType = msoFileTypeWordDocuments
If .Execute(msoSortByFileName) > 0 Then
nazwaPliku = .FoundFiles(1)
For i = 1 To .FoundFiles.Count

'otwieranie dokumentu Worda
Set docDocument = Documents.Open(.FoundFiles(i))

'pobieranie wartości z pierwszej tabeli z pierwszego wiersza i
drugiej kolumny
tekst = docDocument.Tables(1).Cell(1,2)

'wpisywanie tego tekstu do pierwszego arkusza do kolumny pierwszej
plikExcela.Worksheets(1).Cells(i,1) = tekst

'zamykanie dokumentu worda
docDocument.Close wdDoNotSaveChanges
Next i
Else
MsgBox "No Documents!"
End If
End With

'zapisywanie pliku excela
plikExcela.Save
set plikExcela = Nothing
End Sub


Uwaga! kod jest nie sprawdzony - moga być błędy. Pokazuje tylko schemat
działania. W razie jakiś wątpliowści pisz na grupę.