Ошибка выполнения 462: удаленный обслуживающий компьютер не существует или недоступен ", из Excel в MS Project - PullRequest
Новая
       12

Ошибка выполнения 462: удаленный обслуживающий компьютер не существует или недоступен ", из Excel в MS Project

0 голосов
/ 21 мая 2018

Добрый день,

Я запускаю код, который начинается с основной книги MS Excel и переносит данные в промежуточный файл Excel, а затем в файл MS Project.

Как толькоКогда скрипт запускается, он просит пользователя выбрать категорию из 8 различных, и после того, как выбор сделан, скрипт связывает главное Excel с парой файлов проекта Excel-MS и загружает туда данные. 

Dim wbAp As Workbook
Dim wb1 As Workbook

Set wb1 = ActiveWorkbook
Dim ws As Worksheet
Dim ws1 As Worksheet

Dim Task As String
Dim t As Task
Dim exStartDate As Date

Dim task_counter As Integer
Dim status As Integer

Dim prApp As MSProject.Application
Dim prProject As MSProject.Project
Dim projectField As Long

Set prApp = CreateObject("MsProject.Application")

answer_clus = InputBox("What do you want to see?)
    If answer_clus = "1" Then
    selection_variable = "INSTALLATION EQUIPMENT"
    Set wbAp = Workbooks.Open("C:\Users\Desktop\File1.xlsx")
    prApp.FileOpen "C:\Users\Desktop\File1.mpp"
    Set prProject = prApp.ActiveProject
ElseIf answer_clus = "2" Then
    selection_variable = "PIPELAYING EQUIPMENT"
    Set wbAp = Workbooks.Open("C:\Users\Desktop\File2.xlsx")
    prApp.FileOpen "C:\Users\Desktop\File2.xlsx"
    Set prProject = prApp.ActiveProject

Выше приведен пример.Общее количество вариантов выбора равно 8, но для краткости я только что написал 2, остальные одинаковые.

Проблема в том, что при первом выборе одной из альтернатив сценарии загружаютпромежуточный файл Excel, но, как только он попадает в MS Project, он выдаёт мне ошибку времени выполнения 462. Если я перезапущу скрипт vba с точно таким же выбором, он работает нормально, поэтому проблема не является абсолютной, яЯ все еще могу получить желаемый результат, но это раздражает, так как мне приходится дважды запускать один и тот же сценарий (и это отнимает много времени).

У кого-нибудь есть решение?

Спасибо вамочень, Андреа

...