- Microsoft Office Project 16 Object Library.
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pjApp As New MSProject.Application
pjApp = New MSProject.Application
pjApp.Visible = True
pjApp.FileNew()
pjApp.ActiveProject.Tasks.Add("Wind clocks")
pjApp.FileSave()
pjApp.FileClose()
MsgBox("about to close project")
pjApp.Quit()
End Sub
End Class
No comments:
Post a Comment