Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 462
I have a script that starts MS Project and opens a project file (.mpp) and
then copies some of the data over into excel. The first time i run it there is no problem but if i run it again i get a error Run-time error 462 The remote server machine does not exist or is unavalable can anyone help me CODE Sub project() ' Set mwb = Workbooks("Project_Plan.xls") Set pd = Sheets("Project Data") Set sp = Sheets("Baseline") Set sf = Sheets("Forecast") Set sa = Sheets("Actual") Set se = Sheets("Control") Set st = Sheets("Temp") ' ' Dim proApp As MSProject.Application Dim proDoc As MSProject.Projects ' plen = pd.Range("plen") sdate = pd.Range("sdate") fdate = pd.Range("fdate") plen = Application.WorksheetFunction.RoundUp(plen, 0) ' Set proApp = CreateObject("MSProject.Application") proApp.Visible = True proApp.FileOpen Name:="H:\Work\VBA Macro\a1.mpp", ReadOnly:=False, FormatID:="MSProject.MPP" ' pveiew = MSProject.ActiveProject.CurrentView If pview = "Task Usage" Then Else ViewApply Name:="Task Usage" End If ' OutlineShowTasks OutlineNumber:=pjTaskOutlineShowLevel1 PaneNext SelectTimescaleRange Row:=1, StartTime:=sdate, Width:=plen + 3, Height:=1 EditCopy ' ViewApply Name:="Gantt Chart" ' mwb.Activate st.Select st.Range("A1").Select ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _ DisplayAsIcon:=False ' proApp.DisplayAlerts = False proApp.FileClose proApp.DisplayAlerts = True proApp.Quit ' close the application ' mwb.Activate se.Select ' End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Run time error '1004': Generaol ODBC error | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming | |||
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming |