|
▼ichinose さん 今晩は
事情により、大変返信が送れてしまいました。
申し分けまりません。
>'=======================================================================
>Function addcode(flnm As String, wk As Workbook, Optional mdnm As String = "", Optional prnm As String) As Long
> Dim vbcp As Object
> With wk.VBProject
> Set vbcp = .VBComponents.Add(1)
> Err.Clear
> vbcp.CodeModule.AddFromFile flnm
> End With
> addcode = Err.Number
>End Function
>
>mainのコードはそのままです。
>これで実行して下さい。どこかでエラーが発生するはずなんです。
>エラーが発生した箇所とエラーの内容を教えて下さい。
>何となく想像つきますが、確定したいのでこれで再度実行してみてください
このコードを実行したところ、
"実行エラー 1004"
"プログラミングによるVisual Basic プロジェクトへのアクセスは
信頼性に欠けます"
と、出てきました。どういう意味でしょうか?
>ちょっと機能縮小で恐縮ですが、
>以下のコードも試してみてください。
>'============================================================
>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は、使えたと思います。
>前回のコードの結果も知りたいのですが、
>これも試してみてください。
このコードを実行したところ、
"91:オブジェクト変数 または Withブロック変数が設定されていません"
と、出てきました。
以上です。どうかよろしくお願いします。
|
|