しなやか暮らし研究所パソコン処理 Excelの自動化ブックの操作

フォルダー,ファイルの操作

フォルダーの存在確認

Dim DirectoryExist, DirectoryPath As String
DirectoryPath = "C¥vba"
DirectoryExist = Dir(DirectoryPath, vbDirectory)"

ディレクトリの存在確認はファイルの場合と同じく Dir を使用。引数に vbDirectory を指定。
指定ディレクトリが存在する場合はディレクトリ名(パスは含まず)を、存在しない場合は空白を返す。

フォルダーの作成

MkDir path
MkDir "C¥Work¥Sub"

フォルダーの削除

RmDir path
RmDir "C¥Work¥Sub"

各種Pathの取得

Dim Current_path As String
Dim Workbook_path As String
Dim Thisbook_path As String
     
'現在のパス たとえば直前で メニューの 開くでファイルを開いたパス
Current_path = CurDir
 
'アクティブウィンドウのブックのフォルダへの絶対パス
Workbook_path = ActiveWorkbook.Path
 
'アクティブウィンドウのブックのファイル名までの絶対パス
Workbook_path = ActiveWorkbook.FullName
 
'実行中のマクロが記述されているブックのフォルダへの絶対パス
Thisbook_path = ThisWorkbook.Path
 
'実行中のマクロが記述されているブックのファイル名までの絶対パス(最後に¥なし)
Thisbook_path = ThisWorkbook.FullName

ファイルの削除

Kill "D¥Tmp¥Test.txt"

ファイルの更新日付取得

FileA = FileDateTime(ファイルフルパス)

ファイルオープンのダイアログボックスでファイル名を取得

Dim OpenFileName As String
 
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName

ファイルオープンのダイアログボックスを開き、エクセルファイルを開きます。

Application.Dialogs(xlDialogOpen).Show

実行ファイル名の取得

Thisbook_path = ThisWorkbook.Path
Thisbook_fullpath = ThisWorkbook.FullName
 
Len_Tbp = Len(Thisbook_path)
Len_Tbfp = Len(Thisbook_fullpath)
 
実行ファイル名 = Right(Thisbook_fullpath, Len_Tbfp - Len_Tbp - 1)
MsgBox Thisbook_path & vbCrLf & Thisbook_fullpath & vbCrLf & 実行ファイル名

11 12 13