我使用的是MS Project 2007,xp系统,下面的代码出错,抛出了异常.使用的vb6.0环境
On Error Resume Next
Set mspApp = CreateObject("MSProject.Application") If Err.Number = 0 Then
On Error GoTo 0
On Error GoTo MSPError mspApp.DisplayAlerts =False
mspApp.FileOpen name:=TmpFilName, ReadOnly:=False, _
FormatID:="MSProject.MPT" 'TmpFilName是一个mpt文件
mspApp.OrganizerMoveItem Type:=7, FileName:=MPTFileName, _
ToFileName:="GLOBAL.MPT", name:=MPTFileName
' 上面的代码出现了问题,Err.number=1100,不知道为什么,MPTFileName是一个不带扩展名的名字.
'上面的方法不知道各个参数是干什么用的,希望有人能够解答,再顺便解决一下异常问题,希望能详细一点
mspApp.FileClose
mspApp.FileOpen name:=strExpFileName, ReadOnly:=False, _
FormatID:="MSProject.CSV", map:=MPTFileName
mspApp.Visible = True
mspApp.DisplayAlerts = True End If上面的程序的问题怎么解决.
错误号已经查过了,网上根本找不到.
On Error Resume Next
Set mspApp = CreateObject("MSProject.Application") If Err.Number = 0 Then
On Error GoTo 0
On Error GoTo MSPError mspApp.DisplayAlerts =False
mspApp.FileOpen name:=TmpFilName, ReadOnly:=False, _
FormatID:="MSProject.MPT" 'TmpFilName是一个mpt文件
mspApp.OrganizerMoveItem Type:=7, FileName:=MPTFileName, _
ToFileName:="GLOBAL.MPT", name:=MPTFileName
' 上面的代码出现了问题,Err.number=1100,不知道为什么,MPTFileName是一个不带扩展名的名字.
'上面的方法不知道各个参数是干什么用的,希望有人能够解答,再顺便解决一下异常问题,希望能详细一点
mspApp.FileClose
mspApp.FileOpen name:=strExpFileName, ReadOnly:=False, _
FormatID:="MSProject.CSV", map:=MPTFileName
mspApp.Visible = True
mspApp.DisplayAlerts = True End If上面的程序的问题怎么解决.
错误号已经查过了,网上根本找不到.
不知道可以网上搜索一下使用手册啊。
主要的问题是几个版本的运行代码,都有变化了.
这都是第二个类似的问题,我在网上找不到答案才发帖的.
我也是从你那个阶段过来的,只是喊,其实根本解决不了问题.
只能说没人遇到这种情况了,你的回答没有任何帮助.