Re: [vbs] jak z pliku word wydobyc...

----->------------------------------------------
From:Jacek <ala@ola.pl>
Wed, 20 Oct 2010 11:02:59 +0200
To:

Subject:Re: [vbs] jak z pliku word wydobyc...

> No to pomoge;)
>
> Sub qq()
> Dim zmie
> Set objw = CreateObject("word.application")
> Set oword = objw.documents.Open("c:\doc.doc")
> Set owtab = oword.tables(1)
> zmie = owtab.Cell(1, 2)
Ponizsza linijka zalatwila problem krzaczka. Faktycznie nie pomyslalem o
tak trywialnej rzeczy. Echh.

> zmie = Left(zmie, Len(zmie) - 1)
> Cells(1, 2) = zmie
> Set objw = Nothing
> oword.Close
> End Sub

W moim przykladzie na koncu skryptu jest:

'obxls.cells(1,1).Text = zmie

i skarze sie, ze po odkomentowaniu jest niezgodnosc typow, i mam
komunikat, ze nie mozna zamienic range na text.

jak zmienielem na:

obxls.cells(1,1).value = zmie

To poszlo.
Echh. Caly czas nierowna walka.

Dzieki za pomoc.
Received on Wed Oct 20 20:25:02 2010