Excel VBA Sample VBA 全シートの表示
Sub ShowSheet() Dim ws As Worksheet Dim count As Integer count = 0 For Each ws In Worksheets If ws.Visible <> xlSheetVis...
Excel VBA Sample
Excel VBA Sample Excel VBA Sample VBA ブックが開かれているか確認
実行用プロシージャSub Sample() Dim fName As String fName = "test.xlsx" If IsOpenBook(fName) Then '処理 End IfEnd Sub処理用プロシージャFuncti...
Excel VBA Sample VBA ファイルの選択ダイアログ
GetOpenFilename(単一ファイル)Sub ファイル選択01() Dim fName As Variant fName = Application.GetOpenFilename(FileFilter:="Excelファイル,*....
Excel VBA Sample VBA 複数の戻り値の受け取りにクラスを使ってみた
クラスモジュール：ResultClass' プロパティの宣言(フィールドの設定)Private pVal As StringPrivate pFlag As Boolean' プロパティ: ゲッターPublic Property Get V...
Excel VBA Sample VBA CSVファイル読込 No.1
Sub InportCsv() Dim fso As Object Dim ts As Object Dim ws As Worksheet Dim tFilePath As String Dim dataArray As Variant ...
Excel VBA Sample VBA フォルダ作成
Option ExplicitOption Base 1Public Const WS_DATA As String = "データ"Public Const NEW_FOLDER As String = "新規"Sub CreateFold...
Excel VBA Sample VBA フォルダ内のフォルダ名とファイル名取得
指定されたフォルダ内のサブフォルダ名とその中のファイル名取得Option ExplicitOption Base 1Sub GetFolderAndFilesNameList() Dim fso As Object Dim fileObj ...
Excel VBA Sample VBA 指定したフォルダ内のサブフォルダ名を取得
指定したフォルダ内にあるサブフォルダ名を取得するOption ExplicitOption Base 1Sub GetFolderNameList() Dim fso As Object Dim pfl As Object Dim fl A...
Excel VBA Sample VBA 指定したフォルダ内のファイル名取得 No.2
指定したフォルダ内のファイルを取得する(セルに直接書き込み)Option ExplicitOption Base 1Sub GetFilesNameList2() Dim fso As Object Dim folderName As St...
Excel VBA Sample VBA 指定したフォルダ内のファイル名取得 No.1
指定したフォルダ内のファイル名を取得 (配列)Option ExplicitOption Base 1Sub GetFilesNameList() Dim fso As Object Dim fileName As Object '取得する...