Witam
Dokladnie to chodzi mi o wydobycie z tabeli w pliki word (*.doc) wartosci.
Robie w pliku excel na probe cos takiego:
Dim zmie
'Set obxls = ActiveWorkbook.Worksheets("arkusz1")
Set objw = CreateObject("word.application")
Set oword = objw.documents.Open("c:\tab.docx")
Set owtab = oword.tables(1)
zmie = owtab.cell(1, 1)
oword.Close
MsgBox (zmie)
'obxls.cells(1,1).Text = zmie
po uruchomieniu wyswietla sie cos (co prawda w nowej lini jest jakis
krzaczek)
jak odkomentuje zeby wstawialo sie w komorke excel'u, to wywala blad.
Chyba o niezgodnosc typow.
-----------------------
mrk
no.entered@hot.com
Received on Tue Oct 19 19:05:03 2010
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Tue 19 Oct 2010 - 19:42:02 MET DST