在读写模式下使用VBScript打开多个Excel文件

Question

我在三个不同的文件夹中都有一个名为“ ABCD.xlsm”的Excel文件。

当我一个接一个地使用VBScript打开这些文件时，我无法运行宏和外接程序。

Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("D:\Temp\Excellocation.txt", 1, False)

Do While theFile.AtEndOfStream <> True
    retstring = retstring & theFile.ReadLine
Loop
theFile.Close
lx_loc = retstring
fso.DeleteFile "D:\Temp\Excellocation.txt"

set objExcel = Createobject("Excel.Application")
objExcel.visible = True
objExcel.workbooks.open(lx_loc)
msgBox "RUN macro CallVSTOMethod and press ok",1, true

在代码中，文本文件具有Excel文件的位置。

如果此代码只有一种用法，那么我没有问题。当我多次调用此函数时，无法运行插件或宏。

Answer 1

这是因为当您通过连接打开文件时，它正在锁定此文件，因此您无法打开它。您可以做的就是复制副本，然后打开副本。它将立即打开！ ;）