Sub Excel2内でmyAppが宣言されていないため、myApp.Rangeなどを使用するとエラーが発生します。どのように宣言すれば良いでしょうか?
【VB.NET】事後バインディングにおける引数の宣言方法
【VB.NET】事後バインディングにおける引数の宣言方法
今晩は,いつも勉強させていただいております.
質問させていただきます.どうぞよろしくお願いいたします.
開発環境:VB2008+XP になります。
Excel操作コードの部分を事後バインディングにすべく
勉強いたしております。
たとえば
「事前バインディング」
Dim myApp As New Excel.Application
Dim myBook As Excel.Workbook
Dim myBooks As Excel.Workbooks = myApp.Workbooks
Dim xlSheet As Excel.Worksheet
Dim xlSheets As Excel.Sheets
↓
「事後バインディング」
Dim myApp As Object
Dim myBook As Object
Dim myBooks As Object
Dim xlSheet As Object
Dim xlSheets As Object
myApp = CreateObject("Excel.Application")
myBook = myApp.WorkBook
myBooks = myApp.WorkBooks
xlSheet = myApp.Worksheet
xlSheets = myApp.Sheets
のようにするのだと思うのでございますが、
Sub Excel2(ByRef myRng As Excel.Range, ・・・・)
↑ここはどうやって宣言すべき
なのでございましょうか???
「Sub Excel2」内ではmyAppが宣言されておりませんゆえ
myApp.Rangeなどといたしますと「宣言されていません」とエラーが
出てしまうと思うのでございますが。。。。
もしお詳しい方がいらっしゃいましたら、是非ともアドバイスいただきたく
お願い申し上げます。
お礼
どうもありがとうございます! リンク先読ませていただきました。 かなり良い情報ですね^^ 読んだ後「事後バインディング エクセル 解放」 などと検索いたしますと、いろいろ注意事項があるようでございました。 この度はご閲覧・アドバイスいただきまして どうもありがとうございました!!m(_ _)m