Lotus notes 如何通过lotusscript代理保存csv文件

我有一个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)

此方法不返回任何错误。但是文件没有被保存

然后，我还尝试使用以下行保存文件：

xlwb.SaveAs(StrFilePath)

xlApp.activeworkbook.SaveAs(StrFilePath)

此方法返回“自动化对象错误”

这两种方法都无法保存文件。此时，代理无法进一步执行

然后，代理需要使用

FileCopy

语句将此文件从路径

StrFilePath

移动到另一个目录。此时，代理抛出“权限被拒绝”错误

该文件位于服务器上D磁盘驱动器的目录中。 该代理还被授予“允许具有完全管理权限的受限操作”

有人能告诉我保存此csv文件的正确方法以及如何为要保存的文件提供必要的权限吗

---

谢谢

好的，所以我进一步挖掘，找到了解决这个问题的方法

以下代码行对我有效，文件成功保存

xlApp.ActiveWorkBook.save

然后我只是为了清理而添加了以下几行…（这不是我问题的一部分，只是为了完成而写在这里）

---

但我不知道为什么SaveAs不起作用。如果我找到这个问题的答案，我会发帖的

您是否使用文件格式的第二个参数尝试了SaveAs？因为您使用的是OLE和CreateObject，如果对象是运行时错误，请确保清除它们。可以使用与清理相同的代码。这样，您就不会让孤立进程占用资源。