Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
イベントマクロを複数のブックへコピー
投稿日時: 19/12/02 12:00:44
投稿者: YM1026

いつもお世話になっております。
よろしくお願いいたします。
 
【やりたいこと】
イベントマクロ(Workbook_BeforeSave)を複数のブックへコピーしたい。
 
コピーしたいコードをtxtファイルにコピーして
メインの処理の中から下記プロシージャを呼び出して使用しました。
 
Sub Add_Thisworkbook()
    '追加するマクロが入っているテキスト から ThisworkbookModuleへコード追加
    With ActiveWorkbook.VBProject
        .VBComponents("ThisWorkbook").CodeModule.AddFromFile "C:\Thisworkbookへ追加するイベントマクロ\ThisWorkbook.txt"
    End With
    '警告や確認を促すメッセージの表示を抑制
    Application.DisplayAlerts = False
    'イベント抑制
    Application.EnableEvents = False
    '上書き保存して閉じる
    ActiveWorkbook.Close (True)
    'イベント抑制を解除
    Application.EnableEvents = True
    '警告や確認を促すメッセージの表示抑制を解除
    Application.DisplayAlerts = True
End Sub
 
【困っていること】
コードはコピーできたのですが
日本語が文字化けしてしまいました。
メッセージボックス表示するので日本語が文字化けすると困ります。
 
Moduleの操作は初めてで困っています。
よろしくお願いいたします。

回答
投稿日時: 19/12/02 12:35:34
投稿者: よろずや

YM1026 さんの引用:

コピーしたいコードをtxtファイルにコピーして

黙ってコピーすると、文字コードが UTF-8 になります。
これを、メモ帳で保存するときに文字コードを、ANSI にしましょう。

投稿日時: 19/12/02 13:28:06
投稿者: YM1026

よろずや様
 
ご回答ありがとうございます。
できました!
とても助かりました!