У меня есть агент lotusscript, который должен переместить содержимое ячейки в листе Excel (файл CSV) в другую ячейку.Ниже приведен фрагмент кода:
Dim xlApp As Variant, xlwb As Variant, xlsheet As Variant
Set xlApp = CreateObject ( "Excel.Application" )
Set xlwb = xlApp.Workbooks.Open(StrFilePath) 'strFilePath is the path to csv file
Set xlsheet = xlwb.Worksheets(1)
'Logic to check necessary cells in the excel sheet goes here...
'Following two lines move the contents from (p,1) to (1,n)
xlsheet.cells(1,n).value = xlsheet.cells(p,1).value
xlsheet.cells(p,1).value = ""
Теперь проблема возникает, когда я пытаюсь сохранить этот CSV-файл после перемещения содержимого.Я использовал следующую строку для сохранения файла:
xlwb.SaveAs(StrFilePath)
Этот метод не возвращает никакой ошибки.Однако файл не сохраняется.
Затем я также попытался использовать следующую строку для сохранения файла:
xlApp.activeworkbook.SaveAs(StrFilePath)
Этот метод возвращает «Ошибка объекта автоматизации».
Файл не сохраняется ни одним из методов.На данный момент агент не может выполнить дальше.
Затем агент должен переместить этот файл из пути StrFilePath в другой каталог, используя оператор FileCopy.В этот момент агент выдает ошибку «Отказано в доступе».
Файл присутствует в каталоге на диске D на сервере.Агент также получил «Разрешить ограниченные операции с полными правами администратора».
Может кто-нибудь сообщить мне, как правильно сохранить этот CSV-файл и как предоставить необходимые разрешения для файла, который будетсохранено?
Спасибо!