【EXCEL VBA】フォルダやEXCELファイル(ブック)の操作

フォルダやEXCELファイル（ブック）の操作

フォルダやファイルの操作について紹介します。

ブックを開く

Openメソッド

例えば、”C:\sample”フォルダにある、”ひらちんの部屋.xlsx”を開きたい場合は

ブックを保存する

SaveAsメソッド

ここでは、ActiveWorkbookとしていますが、WorkbookオブジェクトならOKです。

例えば、”C:\ひらちんの部屋”フォルダに、”ひらちんの部屋_VBA.xlsm”として保存したい場合は、

とします。

同名のブックがあった場合は、何もしないと上書きするかどうかの確認が表示されます。

これを表示させずに上書き保存で進める場合は、保存操作の前に、

を指定します。

これは、ポップアップアラートを表示させない設定です。

処理が終わった後は、

で、元に戻しといてくださいね(^o^)

Sub sample()

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs "C:\ひらちんの部屋\ひらちんの部屋_VBA.xlsm"
    
    Application.DisplayAlerts = True
    
End Sub

新しいブックを作成する

Addメソッド

新しいブックを作成するには、WotkbooksコレクショのAddメソッドを使います。

通常、作成したブックはその後色々処理を行うと思うので、作ったときに変数に格納すると便利です。

Sub sample()
    
　　'作ったブックを格納する変数を用意する
    Dim NewWB As Workbook

　　'新しいブックを作成して、作った変数に格納する
    Set NewWB = Workbooks.Add

　　'NewWBに対して色々処理する
    
End Sub

ブックの保存場所を取得する

FullNameプロパティ

ブックの保存されている場所を取得するには、WorkbookオブジェクトのFullNameプロパティを使うと便利です。

Sub sample()
    
   Dim str As String
　 str = ActiveWorkbook.FullName
   
   'イミディエイトウィンドウに出力する
   Debug．Print str

End Sub

プロパティを取得するだけなので簡単ですね(^o^)

上記のコードでアクティブなブックのファイルの保存場所ファイル名まで表示されます。

もし、ファイル名は必要なく、保存されているフォルダのPathだけが欲しい場合は、Pathプロパティで取得できます。

Pathプロパティ

Sub sample()
    
   Dim str As String
　 str = ActiveWorkbook.Path
   
   'イミディエイトウィンドウに出力する
   Debug．Print str

End Sub

Pathプロパティでは、ファイルが置かれているフォルダの場所が表示されます。

ブックの名前を取得したい場合は、WorkbookオブジェクトのNameプロパティを使います。

Nameプロパティ

Sub sample()
    
   Dim WB As Workbook
　 Set WB = ThisWorkbook
   
   'イミディエイトウィンドウに出力する
   Debug．Print WB.Name

End Sub

ファイルコピーする

FileCopyステートメント

例えば、”C:\ひらちんの部屋”フォルダにある”ひらちんの部屋１.xlsm”ファイルを、同じフォルダに ”ひらちんの部屋２.xlsm” として保存したい場合は、

とします。

フォルダやファイル名の部分は変更しても大丈夫ですが、存在しないフォルダにコピーしようとするとエラーになります。

フォルダを作成する

MkDirステートメント

例えば、”C:\ひらちんの部屋”フォルダの配下に”ひらちんの小部屋”フォルダを作りたい場合は

すでに存在しているフォルダと同じフォルダを作ろうとするとエラーになります。