Я работаю над инструментом UFT.
Я работаю над клиент-серверным приложением, когда я запускаю свой скрипт, мое приложение открывает файл Excel (содержимое CSV отображается в файле Excel в виде таблицы)
Моя потребность: мне нужно сделать saveAs открытого файла Excel в новый файл (например: report.csv) (Примечание: причина, по которой я делаю сохранение как есть, потому что мой файл, который открылся по умолчанию, сгенерировал уникальный номер ключи после имени файла (ex report-3214405), которые я не мог использовать для сравнения данных с существующим файлом, который я сохранил. Поэтому я пытался сохранить открытый файл Excel под другим именем файла)
я сделал следующее: путь, который я определил
Dim abc: abc = testDataPath & "\ output \ report.csv"
Запускает мой
Приложение и файл Excel открываются.
Вызовите SaveAsExcelAndCloseFile3 (abc
) Открытая функция SaveAsExcelAndCloseFile3 (abc)
str1 = "Set x1 = GetObject(,""Excel.Application"")"
Execute str1
Set a1 = x1.Worksheets(1)
'Set objWB = x1.ActiveWorkbook
'objWB.SaveAs(abc)
a1.SaveAs abc
x1.ActiveWorkbook.Close True
x1.Application.Quit
Set a1 = nothing
Set x1 = nothing
End Function
Я получаю сообщение об ошибке «Требуется объект» objWB.SaveAs (путь ...)