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