コミュ力が、
最強の武器
になる。

VBAで業務効率化！エクセルVBAでフォルダとブックを自動作成する方法

VBAで業務効率化！エクセルVBAでフォルダとブックを自動作成する方法

この記事では、エクセルVBAを使って、特定の条件に基づいてフォルダを作成し、その中にエクセルブックを自動的に保存する方法について解説します。これは、日々の業務で大量のファイルを管理し、効率化を図りたいと考えているビジネスパーソンにとって非常に役立つ情報です。特に、営業資料や顧客管理、プロジェクト管理など、部署や担当者ごとにファイルを整理する必要がある場合に、このVBAコードは強力なツールとなります。

この質問は、エクセルVBAを使用して、特定のセル値に基づいてフォルダを作成し、その中にエクセルブックを保存するという、非常に実践的な業務効率化の課題に対するものです。この記事では、この課題を解決するための具体的なVBAコードとその解説、さらに、このコードを実際の業務に適用するためのヒントを提供します。

1. VBAコードの全体像

まず、この問題を解決するためのVBAコードの全体像を見ていきましょう。以下に、基本的なコードを示します。

Sub CreateFoldersAndSaveBooks()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim folderPath As String

    Dim fileName As String

    Dim department As String

    Dim bookName As String

    Dim newBook As Workbook

    ' 対象のシートを設定

    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を変更してください
    ' 最終行を取得

    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    ' ループ処理

    For i = 2 To lastRow ' 1行目はヘッダーと仮定

        ' フォルダパスの作成

        department = ws.Cells(i, "A").Value

        folderPath = ThisWorkbook.Path & "" & department