Excel（エクセル）でフォルダ作成をする方法をご紹介！

Excel（エクセル）VBAとは
Excel（エクセル）VBAでフォルダ作成する方法
Excelの操作方法は実際に手を動かし、身につけていきましょう

Excel（エクセル）VBAとは

皆さんExcelのVBAとはなにかをご存じでしょうか？VBAとはVisual Basic for Applicationsの略であり、Microsoft Office製品の中に組み込まれているプログラミング言語です。

VBAを使用することで、Excel、Word、PowerPointなどのOfficeアプリケーションを自動化したり、カスタマイズすることができます。VBAは、オブジェクト指向プログラミング言語であり、各種オブジェクトを扱うことができます。今回の記事ではExcelのVBAを使用してフォルダを作成する方法をご紹介していきます。

Excel（エクセル）VBAでフォルダ作成する方法

では、早速ですがExcelのVBAを使用してフォルダを作成する方法をご紹介していきます。以下はフォルダを作成することのできるVBAコードです。

Sub CreateFolder()
    Dim FolderName As String
    FolderName = InputBox("Enter the name of the new folder:")
    If Len(FolderName) > 0 Then
        MkDir FolderName
        MsgBox "Folder created successfully."
    Else
        MsgBox "Folder name cannot be blank."
    End If
End Sub

このVBAコードでは、InputBox関数を使用してユーザーにフォルダ名を入力するように求めます。次に、MkDir関数を使用して入力されたフォルダ名を持つフォルダを作成します。最後に、MsgBox関数を使用して、フォルダが正常に作成されたことをユーザーに通知します。Excelではフォルダのパスを指定しない場合はカレントディレクトリ（Excelのあるフォルダ）が指定されます。

次にご紹介するコードはフォルダを作成するフォルダのパスも指定できるようにしたVBAコードです。フォルダのパスを指定したい場合はこちらを使用して作成してみてください。

Sub CreateFolderInSpecifiedPath()
    Dim ParentFolder As String
    Dim NewFolder As String
    
    'フォルダを作成するフォルダのパスを指定する
    ParentFolder = Range("A1").Value
    
    NewFolder = InputBox("Enter the name of the new folder:")
    If Len(NewFolder) > 0 Then
        If Right(ParentFolder, 1) <> "\" Then
            ParentFolder = ParentFolder & "\"
        End If
        If Dir(ParentFolder & NewFolder, vbDirectory) = "" Then
            MkDir ParentFolder & NewFolder
            MsgBox "Folder created successfully."
        Else
            MsgBox "Folder already exists."
        End If
    Else
        MsgBox "Folder name cannot be blank."
    End If
End Sub

このVBAコードでは、ParentFolderという変数にA1セルに入力されたフォルダを作成する場所のパスを指定します。NewFolderという変数には、新しく作成するフォルダの名前が入力されます。

VBAコードでは、入力されたパスを検証し、末尾がバックスラッシュでない場合はバックスラッシュを付け加えます。次に、Dir関数を使用して、指定されたパスにフォルダがすでに存在するかどうかを確認します。フォルダが存在しない場合は、MkDir関数を使用して、新しいフォルダを作成します。

このように、特定のセルにフォルダを作成するフォルダのパスを入力することで、フォルダの作成先を柔軟に変更できます。例えば、特定のプロジェクトに関するファイルを格納するためのフォルダを作成する場合、そのプロジェクトに関連するフォルダを指定することができます。

Excelでフォルダを作成する方法については、以上のようになります。Excelでフォルダを作成することで、ファイルを整理してバックアップを取得しやすくすることができます。また、複数のユーザーがExcelファイルにアクセスする場合、フォルダを作成して、必要なファイルにアクセスしやすくすることができます。Excelでフォルダを作成する方法を使いこなして、効率的なファイル管理を実現しましょう。