У меня есть существующий процесс, который работал нормально в течение нескольких лет, но теперь ошибки. Он отлично работает на Windows Server 2012 R2 Standard, но, поскольку мы обновили компьютер до Windows Server 2019 Standard, он не работает.
Вкратце, у меня есть файл Excel, который я копирую в новый файл, а затем заполняю рабочие листы данными клиентов. Это позволяет мне сохранять оригинал в качестве шаблона и делать много копий. Копия работает, и Export2Xcl () помещает данные в определенные ячейки. Я могу видеть, как файл отображается на сервере в нужном месте, но когда я пытаюсь сохранить файл после заполнения в нем листа, я получаю ошибку 1004. Это несколько расплывчатая ошибка, но ключевым фактором является то, что она работала на машине 2012 года и не работала на машине 2019 года. Выдается ошибка выполнения строки 4400.
Вот соответствующий код:
4270 Set xcl_ExcelApp = New Excel.Application
' originally I was using this call - FileCopy strExcelInputFileName , strExcelOutputFileName
' but I tried replacing it with the FileSystemObject call to see if it would help.
4360 Set objFSO = CreateObject ("Scripting.FileSystemObject ")
4370 objFSO.CopyFile strExcelInputFileName, strExcelOutputFileName
4380 Задать objFSO = Ничего
' open from the new location
4400 Задать xcl_WorkbookO: файл PDF: xp_WorkbookS: xcl_WorkbookS: xcl_WorkbookS: xcl_WorkbookS: xcl_WorkbookS: xp:= strExcelOutputFileName)
4410 Set xcl_Worksheet = FindSheet (xcl_Workbook, "SQP1")
4420 blnKeepGoing = Export2Xcl (strEntityKeys, "P", xcl_Worksheet * bl
10 * bl * 10n * * 10 * * 10 * bl *), bll * 10n * * 10 * bl *, bl * * 10 * * 10 * bl *, bl * * 10 * * 10 * * bl *, 10 * * 10 * * bl *, bl * * 10 * * 10 * bl *, bl1 * 10n * * 10 * * bl *, 10 * * 10 * bl *, bl1 * 10n * * 10 * * 10 * * bl *), bl, xl_Works *, 10 * * 10 * * 10 * bl *, bl)blnKeepGoing Then
4440 xcl_Workbook.Save 'защищен ли он UAC?
4450 End If
Спасибо за помощь в решении этой проблемы.