<pre class="c" name="code">
Sub Test()
For i = 7 To 16
'MsgBox "E:\Sunpower\Sunpower Training\Daly Yield Summary\mfg_query\mfgquery_ww26_L" & i & ".xls", vbInformation
Workbooks.Open Filename:="E:\Sunpower\Sunpower Training\Daly Yield Summary\mfg_query\mfgquery_ww26_L" & i & ".xls"
Next
End Sub
不放心的話
可以用上面那列 MsgBox 確認一下