Excel VBA Sample VBA ファイルオブジェクト利用 コピーと移動
ファイルのコピー（CopyFile）VBDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFile "C:\MyTest\sample....
ファイル・フォルダ
Excel VBA Sample Excel VBA Sample VBA ファイルオブジェクト 小ネタ
ファイル存在確認（FileExists）VB' === ▼ 1. ファイル存在確認（FileExists） ===Public Sub Tip_FileExists() Dim fso As Object: Set fso = Create...
Excel VBA Sample VBA Dir関数 vs FileSystemObject（FSO） 比較
どちらを利用したら良いか？NoやりたいことDir関数（標準VBA）例FSO（参照設定要）例備考1ファイルの存在確認If Dir(path) <> "" ThenIf fso.FileExists(path) ThenDirはvbNormal...
Excel VBA Sample VBA フォルダ選択ダイアログボックスの表示
実行プロシージャVBSub Sample() Dim res As Boolean res = SelectFolder 'フォルダ名取得成功時の処理End Sub処理用プロシージャVB'**************************...
Excel VBA Sample VBA ファイルの選択ダイアログ
GetOpenFilename(単一ファイル)VBSub ファイル選択01() Dim fName As Variant fName = Application.GetOpenFilename(FileFilter:="Excelファイル,...
Excel VBA Sample VBA CSVファイル読込 No.1
VBSub InportCsv() Dim fso As Object Dim ts As Object Dim ws As Worksheet Dim tFilePath As String Dim dataArray As Varian...
Excel VBA Sample VBA フォルダ作成
VBOption ExplicitOption Base 1Public Const WS_DATA As String = "データ"Public Const NEW_FOLDER As String = "新規"Sub CreateFo...
Excel VBA Sample VBA フォルダ内のフォルダ名とファイル名取得
指定されたフォルダ内のサブフォルダ名とその中のファイル名取得VBOption ExplicitOption Base 1Sub GetFolderAndFilesNameList() Dim fso As Object Dim fileOb...
Excel VBA Sample VBA 指定したフォルダ内のサブフォルダ名を取得
指定したフォルダ内にあるサブフォルダ名を取得するVBOption ExplicitOption Base 1Sub GetFolderNameList() Dim fso As Object Dim pfl As Object Dim fl...
Excel VBA Sample VBA 指定したフォルダ内のファイル名取得 No.2
指定したフォルダ内のファイルを取得する(セルに直接書き込み)VBOption ExplicitOption Base 1Sub GetFilesNameList2() Dim fso As Object Dim folderName As ...