level 10
秦時明月漢時圓
楼主
代码如下：
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 这一句要先写一次呢？去掉逻辑很清晰呀，求解。
2018年02月01日 10点02分
1
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 这一句要先写一次呢？去掉逻辑很清晰呀，求解。
