VBA ACCESS - 循环 Excel 工作簿

Question

下面的 vba 打开一个 Excel 工作簿，检查它是否处于只读模式，如果是，则等待读/写处于活动状态，然后运行代码。简单

我的问题是我有很多 excel 文件，例如 C:\TEST\TEST.xlsb, C:\TEST\TEST2.xlsb ,C:\TEST\TEST3.xlsb ,C:\TEST\TEST4.xlsb等等

如何让 VBA 通过每个工作簿名称运行代码

为每个工作簿名称节省我多次复制/粘贴代码的时间。

Function test()

Dim xl As Object

Set xl = CreateObject("Excel.Application")

xl.Workbooks.Open ("C:\TEST\Test.xlsb")

Do Until xl.ActiveWorkbook.ReadOnly = False

MsgBox ("Workbook in use, waiting till read/write is active")
Call Pause(5)
xl.Quit
xl.Workbooks.Open ("C:\TEST\Test.xlsb")
If xl.ActiveWorkbook.ReadOnly = False Then Exit Do
Loop


If xl.ActiveWorkbook.ReadOnly = False Then

MsgBox ("read/write active")

'Run code
xl.Sheets("Sheet1").Range("G2").Value = 2222
xl.ActiveWorkbook.Save
xl.Quit

End If

xl.Quit
Set xl = Nothing

End Function

Answer 1

您需要一个循环来遍历您的文件并为每个文件调用该函数。 如果你的文件名的模式是这样的 C:\TEST\TEST.xlsb, C:\TEST\TEST2.xlsb ,C:\TEST\TEST3.xlsb ,C:\TEST\TEST4.xlsb 那么您可以例如实现另一个函数来将文件名构建为字符串并将其设置为函数“test”的参数

 Function goThroughFiles()
 Dim front as String
 Dim ending as String
 Dim i as Integer
 Dim strPath as String

 front = C:\TEST\TEST
 ending = .xlsb 
 i = 1

 // start with filename that has no number in it
 strPath = front & ending

 // check if file exists
 Do Until Len(Dir(strPath)) = 0 
    call test(strPath)
    i = i+1
    strPath = front & i & ending
 Loop

你需要改变你原来的函数，所以它接受一个参数：

  Function test(strPath as String)

并将使用该路径的每一行替换为您的输入变量

  xl.Workbooks.Open ("C:\TEST\Test.xlsb")

变成

  xl.Workbooks.Open (strPath)