ファイル選択ダイアログボックスの表示
Sub Sample()
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?...
Excel VBA Code
フォルダ選択ダイアログボックスの表示
Sub Sample()
Dim res As Boolean
res = SelectFolder
'フォルダ名取得成功時の処理
End Sub
'****************************...
全シートの表示
Sub ShowSheet()
Dim ws As Worksheet
Dim count As Integer
count = 0
For Each ws In Worksheets
...
ブックが開かれているか確認
Sub Sample()
Dim fName As String
fName = "test.xlsx"
If IsOpenBook(fName) Then
'処理
End If
...