|
ちょっと機能縮小で恐縮ですが、
以下のコードも試してみてください。
'============================================================
Sub main()
ret = addcode(ThisWorkbook.Path & "\90.txt", ThisWorkbook, "addcode")
If ret = 0 Then
msgbox "挿入成功"
'Application.Run "macro1"
Else
msgbox ret & " : " & Error(ret)
End If
End Sub
'=======================================================================
Function addcode(flnm As String, wk As Workbook, Optional mdnm As String = "") As Long
' 機能:指定されたテキストファイルから、指定されたブックにコードを追加する
' input : flnm---コードが書かれたテキストファイルのパス名
' wk-----コードを書き込むブックオブジェクト
' mdnm---追加するモジュール名(標準モジュール)
On Error Resume Next
Dim vbcp As Object
With wk.VBProject
Set vbcp = .VBComponents.Import(flnm)
End With
If Err.Number = 0 Then
vbcp.name = mdnm
addcode = 0
Else
addcode = Err.Number
End If
On Error GoTo 0
End Function
importは、使えたと思います。
前回のコードの結果も知りたいのですが、
これも試してみてください。
|
|