您好我已经提出了打开多个工作簿的代码。代码是
Sub OPEN_hari()
Dim r As Long
For r = 1 To 10
Workbooks.Open Filename:=Sheet2.Cells(r, 1).Value
Next r
End Sub
但问题是,如果只有3个单元格((1,1)(2,1)(3,1))具有工作簿文件的路径,则会抛出错误消息,即coulndt打开“”文件。 如何使此宏只打开没有错误消息提到的文件。 由于我是初学者,所以任何帮助都非常感谢
答案 0 :(得分:1)
有两种方法可以满足您的需求:
运行无限循环,检查单元格的空白:
Dim i as Long: i = 0
While Not IsEmpty(Sheet1.Cells(i + 1, 1)) 'assuming the value is in Column A
'your code
i = i + 1
Wend
获取已使用的行数,但是存在使用单元格的风险,但现在没有数据,所以我要包括一个检查:
Dim ur as Long: ur = Sheet1.UsedRange.Rows.Count
Dim i as Long
For i = 0 to (ur - 1)
If LenB(Sheet1.Cells(i + 1, 1).Value) > 0 then
'your code
End If
Next i