ThisWorkbookのコードにC/work/Macro.txtの内容を貼り付ける
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromFile "C:\Work\Macro.txt"
テキストを貼り付けたい場合は以下
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString ("Sheet1")
More than 5 years have passed since last update.
ThisWorkbookのコードにC/work/Macro.txtの内容を貼り付ける
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromFile "C:\Work\Macro.txt"
テキストを貼り付けたい場合は以下
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString ("Sheet1")
Register as a new user and use Qiita more conveniently