代码如下:
Sub 打开指定文件夹的文件()
Dim sr As String
sr = Dir("C:\*.xls") 'dir函数,返回一个满足指定类型或指定文件属性的文件名
'如果没有找到指定文件,返回为空
Workbooks.Open ("C:\") & sr
Do
sr = Dir '第二次出现dir可以省略路径
If sr <> "" Then
Workbooks.Open ("C:\") & sr
Else
Exit Sub
End If
Loop
End Sub
问题是为什么Workbooks.Open ("C:\") & sr 这一句要先写一次呢?去掉逻辑很清晰呀,求解。