Minulla on Word-tiedostossa n. sata monivalintakysymystä (tyyliin: 1=täysin eri mieltä,2=...5=täysin samaamieltä) toteutettuna Word:n checkbox-lomakkeilla. Tarkoituksenani on lähettää kyselylomake n.20 henkilölle, jotka täyttävät sen ja lähettävät minulle ko. Word-tiedoston takaisin.
Miten saan VBA:lla siirrettyä Word-tiedostoon tehdyt valinnat Excelin taulukkoon, tilastojen tekemistä varten, kätevästi? Ao. koodi toimii, jos checkboxit olisi nimetty muotoon Ki_j, jossa i kysymyksen ja j vaihtoehdon numero (esim. K2_3=2. kysymyksen 3.vaihtoehto). Checkboxeja ei kuitenkaan ole nimetty. Voiko niihin siis viitata jollain muulla tavalla, vai pitääkö vain käydä 500 checkboxia läpi ja nimetä ne yksitellen? Esimerkkiratkaisuja näin massiivisen monivalintakyselyn tekemisestä Word:n lomakkeilla?
---------------------------------------------
strDocName = "C:\kysely.doc"
Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(strDocName)
For i = 1 To 100
For j = 1 To 5
On Error GoTo kysymyksetLoppuivat
Cells(i,j) = Cells(i,j) doc.FormFields("K" & i & "_" & j).Result
Next j
Next i
kysymyksetLoppuivat:
...
----------------------------------------------
PS. Minusta riippumattomista syistä tämä kysely on pakko toteuttaa Word:llä, mutta jos sinulla on käytännön kokemusta muistakin toteutusmenetelmistä niin voit vapaasti kertoa..
Miten saan VBA:lla siirrettyä Word-tiedostoon tehdyt valinnat Excelin taulukkoon, tilastojen tekemistä varten, kätevästi? Ao. koodi toimii, jos checkboxit olisi nimetty muotoon Ki_j, jossa i kysymyksen ja j vaihtoehdon numero (esim. K2_3=2. kysymyksen 3.vaihtoehto). Checkboxeja ei kuitenkaan ole nimetty. Voiko niihin siis viitata jollain muulla tavalla, vai pitääkö vain käydä 500 checkboxia läpi ja nimetä ne yksitellen? Esimerkkiratkaisuja näin massiivisen monivalintakyselyn tekemisestä Word:n lomakkeilla?
---------------------------------------------
strDocName = "C:\kysely.doc"
Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(strDocName)
For i = 1 To 100
For j = 1 To 5
On Error GoTo kysymyksetLoppuivat
Cells(i,j) = Cells(i,j) doc.FormFields("K" & i & "_" & j).Result
Next j
Next i
kysymyksetLoppuivat:
...
----------------------------------------------
PS. Minusta riippumattomista syistä tämä kysely on pakko toteuttaa Word:llä, mutta jos sinulla on käytännön kokemusta muistakin toteutusmenetelmistä niin voit vapaasti kertoa..
Vastaukset 1
Vanhimmat
Ei niitä checkboxeja (tarkoitat kyllä varmaan radiobuttoneita tässä) tarvitse olla nimettynä. Sillä jos tuo docpohja on järjestelmällisesti tehty niin sehän kertoo sinulle jo, että esimerkiksi CheckBox17.Value on neljännen kysymyksen toinen vastausvaihtoehto.
Sitten exceliin staattinen otsikkosarake (A) jossa joka rivillä kysymyksen otsikko. Seuraavat 5 saraketta valittu vaihtoehdoille, jos esim tietyn kysymyksen kolmosvaihtoehto on valittu laitat excelissä sille riville D -sarakkeeseen ohjelmallisesti ruksin.
toivottavasti oli apua