※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


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