Moikka,
Tarttis apua pieneen ongelmaan.
Olen tekemässä joukkokirjettä vb.netin kautta käyttäen wordia, homma toimiikin, mutta haluaisin yhden vaiheen siitä automatisotua.
Käytän referenssinä Microsoft Word 12.0 Object Librarya ja Imports Word = Microsoft.Office.Interop.Word
Ohjelma luo Excelin jossa on tarvittavat kentät ja tiedot, sekä minulla on word malli jossa on MERGEFIELD kentät.
Millä saan pois wordin kysymyksen, mitä sheettiä exelissä käytetään?
(Wordin yhdistämistoiminnon ikkunan nimi on "Valitse taulukko")
Alla mun räpellys vb.net 2010, jossa ei ole mitään virheen korjausta :-)
Private Sub TeeJoukkoKirje() Dim MSW As New Word.Application Dim Dokkis As Word.Document Dokkis = MSW.Documents.Open("c:\testi2.dotx") Dokkis.MailMerge.OpenDataSource("C:\aineisto.xlsx") Dokkis.MailMerge.Execute() Dokkis.Close(False) MSW.Visible = True End Sub
Moi Rypsi!
Et tarvitse Microsoft Word 12.0 Object Librarya referesseihin kun kerran käytät Microsoft.Office.Interop.Word assemeblyä, mutta mikäli käyttiksesi tukee SendKeys.Send-metodia niin tämä toimii:
'... Try SendKeys.Send("{ENTER}") Dokkis.MailMerge.OpenDataSource("C:\aineisto.xlsx") Catch Ex As Exception End Try '...
Moikka Nea
Sä olet loistava, Kiitos tuhannesti
ongelma ei ollut vika vaan harmillinen, mutta nyt toimii :-)
T:Mika (Rypsi)
Aihe on jo aika vanha, joten et voi enää vastata siihen.