コード読込み

○Book1とModule1が作られ、txtファイルからコードを読み込みます
　　実行する前にコードを書いたファイルを作り、任意のフォルダに置く　
　　　コードの
　　　　　MyCodeText = "A:\My Documents\Code.txt"
　　　の部分で実際のパスを指定してください

'***
Set MyObject = CreateObject("Excel.Application")
Set MyBook = MyObject.Workbooks.Add
MyCodeText = "A:\My Documents\Code.txt"

Set MyCode = MyBook.VBProject.VBComponents.Add(1)
MyCode.CodeModule.AddFromFile MyCodeText

MyObject.Visible = True

Set MyBook = Nothing
Set MyObject = Nothing
'***