Excel VBA Sample VBA ファイルオブジェクト利用 コピーと移動
ファイルのコピー（CopyFile）Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFile "C:\MyTest\sample.tx...
ファイル・フォルダ
Excel VBA Sample Excel VBA Sample VBA ファイルオブジェクト 小ネタ
ファイル存在確認（FileExists）' === ▼ 1. ファイル存在確認（FileExists） ===Public Sub Tip_FileExists() Dim fso As Object: Set fso = CreateOb...
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 フォルダ選択ダイアログボックスの表示
実行プロシージャSub Sample() Dim res As Boolean res = SelectFolder 'フォルダ名取得成功時の処理End SubSub Sample() Dim res As Boolean res = Se...
Excel VBA Sample VBA ファイルの選択ダイアログ
GetOpenFilename(単一ファイル)Sub ファイル選択01() Dim fName As Variant fName = Application.GetOpenFilename(FileFilter:="Excelファイル,*....
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...