VBAで指定フォルダ内の全てのExcelファイル・シートを順番に開く方法

2020/01/20

この記事では、VBAで指定フォルダ内の全てのExcelファイル・シートを順番に開く方法について記載します。

指定フォルダの選択は、ダイアログを表示して任意の場所を選択できるようにしています。

フォルダの指定

VBAでフォルダやファイルを選択するダイアログを表示するにはApplication.FileDialogオブジェクトを使用します。

Application.FileDialogに次の定数を渡すことでダイアログの種類を切り替えることができます。

定数名	内容
msoFileDialogFilePicker	ファイルの場所を選択するダイアログ
msoFileDialogFolderPicker	フォルダの場所を選択するダイアログ
msoFileDialogOpen	ファイルを開くダイアログ
msoFileDialogSaveAs	ファイルを保存するダイアログ

フォルダの場所を選択するダイアログを表示します。

Application.FileDialog(msoFileDialogFolderPicker).Show

1	Application.FileDialog(msoFileDialogFolderPicker).Show

ダイアログのタイトルや初期表示フォルダを指定します。

With Application.FileDialog(msoFileDialogFolderPicker)
	.Title = "取込場所の選択"   'タイトルの指定
	.InitialFileName = "c:\"    '初期表示フォルダの指定
End With

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "取込場所の選択" 'タイトルの指定

.InitialFileName = "c:\" '初期表示フォルダの指定

End With

ダイアログで選択したフォルダのパスを取得します。
キャンセルボタンや×ボタンが押された時のために、ダイアログの戻り値を判定しています。

With Application.FileDialog(msoFileDialogFolderPicker)
	.Title = "取込場所の選択"   'タイトルの指定
	.InitialFileName = "c:\"    '初期表示フォルダの指定
    If .Show = True Then    'ダイアログを表示して戻り値を判定
        folderPath = .SelectedItems(1)  'フォルダのパスを取得
    Else
        Exit Sub
    End If
End With

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "取込場所の選択" 'タイトルの指定

.InitialFileName = "c:\" '初期表示フォルダの指定

If .Show = True Then 'ダイアログを表示して戻り値を判定

folderPath = .SelectedItems(1) 'フォルダのパスを取得

Else

Exit Sub

End If

End With

フォルダ内のファイルを順番に開く

フォルダ内のファイルを開くにはFileSystemObjectオブジェクトを使用してファイルシステムにアクセスします。

指定フォルダ内に存在するファイルを読み取り専用で順番に開きます。

Dim fso As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file In fso.getFolder("フォルダへのパス").Files
    Dim formWorkBook As workbook
    Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)

    'ファイルを閉じる 
    formWorkBook.Close
Next

Dim fso As Object

Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In fso.getFolder("フォルダへのパス").Files

Dim formWorkBook As workbook

Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)

'ファイルを閉じる

formWorkBook.Close

特定のファイルのみ開きたい場合は、GetExtensionNameメソッドでファイルの拡張子を判定します

If fso.GetExtensionName(file.Name) = "xlsx" Then
    'Excelファイルのみ処理
End If

If fso.GetExtensionName(file.Name) = "xlsx" Then

'Excelファイルのみ処理

End If

ファイル内のワークシートを順番に開く

開いたファイル内のワークシートを順番に処理します。

Dim fso As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file In fso.getFolder("フォルダへのパス").Files
    If fso.GetExtensionName(file.Name) = "xlsx" Then
        Dim formWorkBook As Workbook
        Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)
        
        Dim formWorkSheet As Worksheet
        For Each formWorkSheet In formWorkBook.Worksheets
            'ワークシートへの処理
        Next
    
        'ファイルを閉じる 
        formWorkBook.Close
    End If
Next

Dim fso As Object

Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In fso.getFolder("フォルダへのパス").Files

If fso.GetExtensionName(file.Name) = "xlsx" Then

Dim formWorkBook As Workbook

Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)

Dim formWorkSheet As Worksheet

For Each formWorkSheet In formWorkBook.Worksheets

'ワークシートへの処理

'ファイルを閉じる

formWorkBook.Close

End If

サンプルプログラム

指定フォルダ内の全てのExcelファイル・シートを順番に開くサンプルプログラムを記載します。

Option Explicit

Sub main()
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "取込場所の選択"
        .InitialFileName = "c:\"
        If .Show = True Then
            folderPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

    Dim fso As Object
    Dim file As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each file In fso.getFolder(folderPath).Files
        If fso.GetExtensionName(file.Name) = "xlsx" Then
            Dim formWorkBook As Workbook
            Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)

            Dim formWorkSheet As Worksheet
            For Each formWorkSheet In formWorkBook.Worksheets
                'ワークシートへの処理
            Next

            'ファイルを閉じる
            formWorkBook.Close
        End If
    Next
End Sub

Option Explicit

Sub main()

Dim folderPath As String

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "取込場所の選択"

.InitialFileName = "c:\"

If .Show = True Then

folderPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

Dim fso As Object

Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In fso.getFolder(folderPath).Files

If fso.GetExtensionName(file.Name) = "xlsx" Then

Dim formWorkBook As Workbook

Set formWorkBook = Workbooks.Open(Filename:=file, ReadOnly:=True)

Dim formWorkSheet As Worksheet

For Each formWorkSheet In formWorkBook.Worksheets

'ワークシートへの処理

'ファイルを閉じる

formWorkBook.Close

End If

End Sub

Message コメントをキャンセル

: Microsoft TeamsのアカウントがないユーザをWEB会議に招待する方法

Microsoft Teamsは、Microsoftが提供しているコミュニケーションツールです。Teamsの機能として、チャットや音声通話・WEB会議などを利用 …

: Outlookでメール送信中になったまま送受信が終了しない場合

開封確認のメールが正常に送信されず、送信中のまま送受信が終了しない場合があります。原因となる開封確認メールは送信トレイに存在しないため、削除することができませ …

: [Windows]Active ReportsでPDF出力時の注意事項

PDF出力時の「LicenseException」対応方法環境 ActiveReports for .NET 7.0J 言語:C# 設定 Active Rep …

: [Windows]WSUSサーバの構築手順 6/6

Windows 2008 R2サーバにWSUSサーバを構築するクライアントPCがWSUSサーバから更新プログラムをダウンロードするにはグループポリシーを設定す …

: エクセルで円と銭の通貨単位を表示する

Excelで入力した数値に円と銭の単位を表示する方法を記載します。２種類の表示方法がありますので、用途に応じて使い分けてください。セルの書式設定で表示セル …

: VBAからSQL Serverに接続する方法(Microsoft OLE DB Provider for SQL Server)

VBAから業務システムなどに使用しているデータベースに接続し、データを抽出することができます。定期的に作成する資料などは、VBAでデータ取得処理を自動化し、ボ …

: Office展開ツールを使用してMicrosoft(Office)365のインストールと更新プログラムを配信する

この記事では、Office展開ツール(ODT)を使用して、社内ネットワーク上のサーバーからMicrosoft365のインストール、更新プログラムを配信する方法を …

: Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法

VBAで画像を挿入することができますが、単純にセル幅に合わせて画像サイズを変更すると、縦長や横長の画像として挿入されます。縦横比を維持したまま、画像を挿入する …

: [Windows]IISセッションタイムアウト設定

IISのセッションタイムアウトを設定する機会がありましたので、設定手順について記載します。 IIS7にセッションタイムアウトを設定する IISではASP.NET …

: Excel VBAでOracleのデータを参照するマスター検索機能を作成する

エクセルのVBAでOracleに保存されているマスタを検索する機能を作成する機会がありましたので、サンプルプログラムを記載します。 Oracleへの接続設定 V …

PREV: VBAからOracleのストアドプロシージャを実行する方法
NEXT: [Oracle]VBAからSELECT文を実行しデータを取得する方法

平凡なエンジニアがメモ代わりにプログラミング, インフラ, ネットワークを書き綴るブログ

VBAで指定フォルダ内の全てのExcelファイル・シートを順番に開く方法

フォルダの指定

フォルダ内のファイルを順番に開く

ファイル内のワークシートを順番に開く

サンプルプログラム

Message コメントをキャンセル

関連記事

Microsoft TeamsのアカウントがないユーザをWEB会議に招待する方法

Outlookでメール送信中になったまま送受信が終了しない場合

[Windows]Active ReportsでPDF出力時の注意事項

[Windows]WSUSサーバの構築手順 6/6

エクセルで円と銭の通貨単位を表示する

VBAからSQL Serverに接続する方法(Microsoft OLE DB Provider for SQL Server)

Office展開ツールを使用してMicrosoft(Office)365のインストールと更新プログラムを配信する

Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法

[Windows]IISセッションタイムアウト設定

Excel VBAでOracleのデータを参照するマスター検索機能を作成する

VBAで指定フォルダ内の全てのExcelファイル・シートを順番に開く方法

フォルダの指定

フォルダ内のファイルを順番に開く

ファイル内のワークシートを順番に開く

サンプルプログラム

Google AdSense PC

Google AdSense PC

Message コメントをキャンセル

関連記事