msproject

来源:互联网 发布:linux内核裁剪 编辑:程序博客网 时间:2024/05/19 15:21
Private objApp As New MSProject.Application
objApp.Caption = strParameter
objApp.Visible = 1
objApp.FileOpen "<" & strDSNName & ">/" & strFileName, isReadOnly, , , , , , "sa", "111111", , , , 2
Set objApp = Nothing