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..
Kyselylomake:Word-VBA-Excel
Rod
1
1182
Vastaukset
- Leksa
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1701083
Anteeksipyynnöstä
Uskotko anteeksipyynnön voimaan? Mikä tekee anteeksipyynnöstä vaikeaa? Onko se mielestäsi joskus turhaa, joko pyytäjän132847- 84783
- 51728
Olisitko oikeasti valmis rikkomaan
Perheesi? En haluaisi sitä, mutta ne on teidän välisiä asioita. Voin olla sinulle vain kaverikin… ei paineita. Minä kesk55529Stubb munasi - Suomessa kuuluu liputtaa Suomen lipulla
Presidentinlinnan ja Mäntyniemen salkoihin nostettiin sateenkaariliput lauantaina. Suurin osa kansasta ei varmasti pidä294525Voisin jopa maksaa että saisin nähdä sut mies
Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?37521Martinan tarve valehdella.
Miksiköhän Martina valehtelee niin paljon,onko hän tietoinen siitä että valheistaan jää useimmiten kiinni? Esimerkkinä t215479- 49477
Kalle irtisanoutui
Kävi, kuten odotettiin. Paras ratkaisu paitsi Orimattilalle myös Larssonille. Seuraavaksi joudutaan mittaamaan kaupungin53464