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
1178
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
Riikka: 3 euron bensa, Ruotsi: bensavero jopa alle EU-minimin
Eipä vaan suomalainen autoilija saa kaikkien rakastamalta Riikalta sympatiaa. Ruotsissa on eri meininki, siellä diskutee622099Riikka runnoo: datakeskuksille tulee UUSI yritystuki
"Suomen valtio erikseen tukee esimerkiksi kryptovaluuttaan tai aikuisviihteeseen tai muuhun keskittyviä datakeskuksia."41756Miten kestätte tyhmiä?
Miten usein turhaudutte tai suututte ihmisiin, joilla on matala älykkyys? Minulla tätä tapahtuu useita kertoja viikossa2311232En kerro nimeäsi nainen
Sillä olet nyt salaisuus jota kannan sydämessäni. Tämä mitä tunnen ja kuinka sinuun vahvasti ihastuin on jo niin erikoin71920Minkä arvosanan 4-10 annat Susanna Laineelle Farmi-juontajana?
Susanna Laine vetää Farmi Suomi -realityä. Minkä arvosanan 4-10 annat Suskille juontohommista? Suosikkijuontaja teki20832Lahkojen uudestikasteille ei pitä mennä
Sananl. 22:3 Mielevä näkee vaaran ja kätkeytyy, mutta yksinkertaiset käyvät kohti ja saavat vahingon.57826Miksi naisen pitäisi maksaa 50/50
Vuokrasta miehelle? Eikö se ole miehelle lahja, ja aarre, jos nainen suostuu muuttamaan kanssasi asumaan?104731Onko se liikaa pyydetty
Voisitko sinä mies kerätä rohkeutta ja ottaa yhteyttä? Minä en jaksa tätä enää. On niin ikävä sinua. Minä niin haluaisin38678- 19666
Jos joku kertoisi ihastuneensa sinuun
mutta sinua ei voisi vähempää kiinnostaa, niin vastaisitko silti ystävällisesti?92659