Откройте несколько файлов Excel, используя VBScript в режиме чтения и записи

Question

У меня есть файл Excel с именем «ABCD.xlsm» в трех разных папках.

Когда я открываю эти файлы с помощью 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

Это потому, что когда вы открываете файл с подключением, он блокирует этот файл, поэтому вы не можете открыть его по этой причине.Что вы можете сделать, это скопировать за дубликат и открыть копию.Это откроется прямо сейчас!;)