アットウィキロゴ

2009-10-25 23:25:39 (Sun)



Sub Sample03()
If Dir("C:\Book1.xls") <> "" Then
Workbooks.Open "C:\Book1.xls"
Else
MsgBox "ファイルが存在しません。", vbExclamation
End If
End Sub
最終更新:2009年10月25日 23:25