Excel VBAでソースエクスポート！３つの方法で徹底解説

Excel VBAのソースエクスポートについて興味はありますか？

でも、方法もメリットもよくわからない！

こんにちは！uri uri（@Uriuri_writer）です。VBAのコードを別途保存することで「バックアップ」や「バージョン管理」を簡単にすることができます。この記事では、Excel VBAのソースコードをエクスポートする方法について詳しく解説します。初心者から上級者まで、必ず役立つ情報が満載です。

当サイトでは、他にもExcelで業務効率・作業効率を上げる記事を投稿しています。興味があればそちらも合わせてご覧いただけると幸いです。

Excel VBAで関数を作る！セルの背景色を取得する関数を作ってみた

Excel VBAを使って、塗りつぶしているセルの背景色を取得したいと思いませんか？いちいち１つ１つ確認すんの面倒だから関数があったら便利なのに…。こんにちは！uri uri（@Uriuri_writer）です。Excel愛好者の皆さん...

Excel VBAで範囲をソート！基本から応用テクニックまで

Excel VBAを使ってセル範囲をソートしたい！けど…。しかし、どうやっていいかわからない！こんにちは！uri uri（@Uriuri_writer）です。Excel VBAを使ってセル範囲をソート多岐にわたります。セル範囲内の数値デ...

それではいってみましょー。

VBAのソースをエクスポートするメリット・デメリット
手動でエクスポートする方法
VBAコードでエクスポートする方法
非推奨な方法でエクスポートする方法
Excelだけよりも別スキルもあった方がいいに決まってる
まとめ

VBAのソースをエクスポートするメリット・デメリット

Excel VBAのコードをエクスポートしたい！と思っているのであれば、メリットとデメリットはしっかり把握しておくことが大切です。

メリット

ソースエクスポートを行うことで、Excel VBAのソースコードを別の場所にバックアップできます。
ソースコードを個別のファイルとして保存することで、ソースコードのバージョン管理が容易になります。
ソースコードをエクスポートすることで、他のプロジェクトや開発環境で再利用できます。

デメリット

ソースエクスポートを行うと、ソースコードが複数のファイルに分散するため、管理が煩雑になる可能性があります。
ソースコードをエクスポートすることで、ソースコードの機密性が低下する可能性があります。

ソースエクスポートは、ソースコードの保管や再利用に役立つ機能ですが、注意が必要です。

ソースコードのセキュリティや管理方法について、適切な対策を講じることが重要です。

手動でエクスポートする方法

Excel VBAのソースコードをエクスポートする方法はいくつかあります。

アナログですが、シンプルな方法で「手動」でコードをエクスポートする方法があります。

以下が手動でソースコードをエクスポートする手順になります。

Excelブックを開き、開発タブをクリックします。
Visual Basicをクリックします。
エクスポートしたいモジュールを選択し、右クリックします。
ファイルのエクスポートをクリックします。
任意の場所にファイル名をつけ、保存をクリックします。

VBAコードでエクスポートする方法

Excel VBAでソースコードをエクスポートするためのVBAコードをご提案します。

下記のコードは、指定したフォルダのワークブック内のすべてのVBAモジュール、クラスモジュール、およびユーザーフォームのソースコードをエクスポートします。

'指定したフォルダのExcelデータ内のコードをエクスポートするコード

Sub ExportAllVBACode()

    Dim wb As Workbook

    Dim objVBComp As VBIDE.VBComponent

    Dim strFolderPath As String
    ' エクスポート先のフォルダパスを指定

    strFolderPath = "C:\VBA_Export\"
    ' 現在のワークブックを設定

    Set wb = ThisWorkbook
    ' フォルダが存在しない場合は作成

    If Dir(strFolderPath, vbDirectory) = "" Then

        MkDir strFolderPath

    End If
    ' ワークブック内のすべてのVBAコンポーネントをエクスポート

    For Each objVBComp In wb.VBProject.VBComponents

        Select Case objVBComp.Type

            Case vbext_ct_StdModule, vbext_ct_ClassModule, vbext_ct_MSForm

                objVBComp.Export strFolderPath & objVBComp.Name & ".cls"

            Case vbext_ct_Document

                objVBComp.Export strFolderPath & objVBComp.Name & ".cls"

        End Select

    Next objVBComp
    MsgBox "VBAコードのエクスポートが完了しました。"

End Sub

注意点として、上記のコードを使用する前に、VBAエディタで「参照設定」を開き、「Microsoft Visual Basic for Applications Extensibility」を追加する必要があり、マクロのセキュリティ設定で「信頼できるアクセスを VBA プロジェクトオブジェクトモデルに許可する」を有効にする必要があります。

もっと短いシンプルなコードも書いておきます。

'

Sub ExportVBACode()

    Dim objVBComp As Object

    For Each objVBComp In ThisWorkbook.VBProject.VBComponents

        objVBComp.Export "C:\Path\To\Save\" & objVBComp.Name & ".bas"

    Next objVBComp

End Sub

上記のコードもMicrosoft Visual Basic for Applications Extensibility ライブラリを使用してプログラムでエクスポートするので、その点は把握した上でご利用ください。

非推奨な方法でエクスポートする方法

はぁーい！非推奨な方法ですけど「Microsoft Visual Basic for Applications Extensibility ライブラリ」を使わないでVBAコードも一応紹介します。

非推奨なのでコードの動作保証はしません！多分環境によっては変な動き方をするからです。

なので、自己責任でお願いします。

SendKeysメソッドを使用してキーボード操作を模倣することでエクスポートが可能です。

'SendKeysメソッドを使ったソースコードエクスポートする方法

Sub ExportModuleUsingSendKeys()

    Application.VBE.MainWindow.Activate

    Application.VBE.ActiveVBProject.VBComponents("Module1").Activate

    SendKeys "^e", True

    SendKeys "{TAB}", True

    SendKeys "{TAB}", True

    SendKeys "C:\Path\To\Save\Module1.bas", True

    SendKeys "{ENTER}", True

End Sub

注意: SendKeysは非常に不安定であり、他のアプリケーションやダイアログが開いていると、予期せぬ動作を引き起こす可能性があります。

Excelだけよりも別スキルもあった方がいいに決まってる

あなたのキャリアを再定義する第一歩を、『ChapterTwo』の無料オンライン相談会で踏み出してみませんか？Webデザインや動画編集の技術を学び、新しい分野でのキャリアをスタートさせる絶好の機会です。この相談会では、あなたの目指す未来と完全にマッチした学習プランを一緒に考え、あなたが直面するかもしれない疑問や不安を全て解消します。

なぜ無料オンライン相談会に参加するべきか？

個別対応で具体的な道筋を提案: あなたの現在のスキルセットとキャリア目標に基づいて、どのコースが最適かを専門のカウンセラーが一緒に考えます。
リスキリングのメリットとプロセスの解説: 新しい技術を学ぶことの価値と、それが現在及び将来の職業にどのように役立つかを詳しく説明します。
実際の学習体験を前もって感じるチャンス: コースのカリキュラム、学習の流れ、実際のクラスの様子や学習資料についてのプレビューを提供します。

こんな方におすすめです

キャリアチェンジを考えている方: 新しいスキルを身につけて、異業種への挑戦を目指す方。
スキルアップを望む方: 現在の職業において、さらに高い専門性を持ちたい方。
副業やフリーランスを始めたい方: 独立して仕事を取りたいが、何から始めれば良いかわからない方。

無料オンライン相談会は、あなたが新しいキャリアパスを探求するのに理想的な場です。私たちと一緒に、あなたの可能性を最大限に引き出し、未来への大きな一歩を踏み出しましょう。今すぐ席を予約して、『ChapterTwo』での学びがあなたの人生をどのように変えることができるかを発見してください。この機会を活かして、自信を持って新しいステージへ進みましょう！