VB6でのExcel.Applicationの定義？ (ID:142316)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 それ、参考にしている .NET 用のコードに問題がありますよ。 動く事は動くと思いますが、VB6 向けコードを、そのまま VB.NET に翻訳しただけのような 作りになっていて、VB.NET として使うには、いろいろと問題のあるコードになっています。 (オブジェクトの解放処理が無く、単に Nothing を代入しているだけとか、 参照設定しているのに CreateObject しているとか。細かいところでは、 CType よりも DirectCast を使う方が望ましい、とか。) まぁ、それゆえに VB6 に翻訳しやすいコードである、とも言えますが。 >> Dim xlApp As Excel.Application >> でユーザー定義型は定義されていませんとのエラー出力があります。 この場合は、その変数定義を As Object にするだけで OK です。 ついでに、モジュールの先頭に「Option Explicit」も入れておきましょう。 一応、VB6 で Excel を参照設定すれば "As Excel.Application" を利用できますし、 参照設定した方が本来は望ましいです。 しかし参照設定すると、「親オブジェクトを指定せずに、シートやセルを利用する」といった “誤ったコード”を書いたときに、2 回目以降の Excel 操作が失敗するようになったり、 Excel が終了しなくなるといった、気づきにくい問題を抱える可能性があります。 http://homepage1.nifty.com/rucio/main/technique/teq_15.htm 参照設定しなかった場合は、そのような親オブジェクトを指定しないコードは 「変数が宣言されていません」のエラーとなるため、“誤ったコード”が 混入することを防げます。 なので VB6 から操作するのであれば、まずは参照設定無しで始めるというのも一つの手です。 (.NET の場合は、逆に参照設定しない事によるデメリットの方が大きいのですが…) >> xlbook = CType(xlApp.Workbooks.Add, Excel.Workbook) > この「CType」って何ですか？ＶＢ６にはないと思います。 型変換のための関数です。 VB6 の場合、オブジェクトをキャストする場合には、目的の型の 変数を用意して、そこに代入する必要があります。 http://support.microsoft.com/kb/168830/ja つまりこの場合、変数のキャストを行う場合には Dim xlBook As Excel.Workbook に対して、 Set xlBook = xlApp.Workbooks.Add() というコードを書けばよいことになります。型変換の関数は不要です。 > あと引数を ByVal にする必要はないのでは？ > ByRef と ByVal の違いはわかりますか？ それは逆でしょう。 ByVal で良い——というよりも、ByValにするべき——だと思いますよ。 (ByVal / ByRef を省略した場合、VB6 では ByRef、VB.NET では ByVal の意味になります) ByVal の場合、プロシージャ内で引数が指す物が入れ替わらない事が保証されます。 今回のようなパターンでは、ByRef にするメリットは殆どありません。 VB6 で ByRef を「使わなければならない」パターンとは、 ・ByVal では渡せない型を引数にする場合(ユーザー定義型) ・プロシージャ内で引数を書き換える必要がある場合 ・ByVal として宣言することが許可されていないイベントプロシージャを利用する場合 などに限られます。 それ以外の場合、VB6 で意図的に ByVal/ByRef を記述するのであれば、極力、ByVal を選択するべきかと。