Sinds ik office 2019 heb geinstalleerd werk mijn visual basic programma niet meer om excel en word bestanden te openen.
Wie weet wat er gewijzigd is sinds office 2016?
Hier de code om een excel en word file te openen.
------------------------------------------------
Imports Excel = Microsoft.Office.Interop.Excel
Imports Word = Microsoft.Office.Interop.Word
Public Class frmStart
Private dbinfo As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=V:\VBZdata\VBZdata.mdb"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
'Knop einde op het start formulier
Dim i As Byte
i = MsgBox("Wilt u het programma afsluiten", vbYesNo, "Programma afsluiten?")
If i = vbYes Then
End
End If
' Me.Close()
End Sub
Private Sub DeclaratieformulierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeclaratieformulierToolStripMenuItem.Click
'Declaratie(Formulier)
Dim objexcel As Excel.Application
Dim objxls As Excel.Workbook
objexcel = New Excel.Application
objexcel.Visible = True
objxls = objexcel.Workbooks.Add("V:\Sjablonen\Excel sjablonen\Standaard Declaratie formulier.xltm")
Me.SendToBack()
End Sub
Private Sub AdresLidToolStripMenuItem_Click(sender As Object, e As EventArgs)
'A5 Envelope Leden vbz
Dim objword As word.Application
Dim objdot As word.Document
objword = New word.Application
objword.Visible = True
objdot = objword.Documents.Add("V:\Sjablonen\Word sjablonen\EnvelopeA5 Leden.dotm")
Me.SendToBack()
End Sub
End Class
--------------------------------------------------------
dit werkte met office 2016 met office 2019 niet meer
Wie weet wat er gewijzigd is sinds office 2016?
Hier de code om een excel en word file te openen.
------------------------------------------------
Imports Excel = Microsoft.Office.Interop.Excel
Imports Word = Microsoft.Office.Interop.Word
Public Class frmStart
Private dbinfo As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=V:\VBZdata\VBZdata.mdb"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
'Knop einde op het start formulier
Dim i As Byte
i = MsgBox("Wilt u het programma afsluiten", vbYesNo, "Programma afsluiten?")
If i = vbYes Then
End
End If
' Me.Close()
End Sub
Private Sub DeclaratieformulierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeclaratieformulierToolStripMenuItem.Click
'Declaratie(Formulier)
Dim objexcel As Excel.Application
Dim objxls As Excel.Workbook
objexcel = New Excel.Application
objexcel.Visible = True
objxls = objexcel.Workbooks.Add("V:\Sjablonen\Excel sjablonen\Standaard Declaratie formulier.xltm")
Me.SendToBack()
End Sub
Private Sub AdresLidToolStripMenuItem_Click(sender As Object, e As EventArgs)
'A5 Envelope Leden vbz
Dim objword As word.Application
Dim objdot As word.Document
objword = New word.Application
objword.Visible = True
objdot = objword.Documents.Add("V:\Sjablonen\Word sjablonen\EnvelopeA5 Leden.dotm")
Me.SendToBack()
End Sub
End Class
--------------------------------------------------------
dit werkte met office 2016 met office 2019 niet meer