別のパソコンでプログラムの実行が出来ません (ID:120383)

名前

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

本文 現時点では、Sub Main()側の > KANRI_ADOCNN.Close のところで > 「実行時エラー91 オブジェクト変数またはwithブロックが設定されていません。」 などといったエラーを追跡してみても、何も進展しません。 こういう時はまず、「エラー発生時に中断」モードで実行するか、 もしくは、On Error を外すなどして、Function INIT_RTN() の どの行で、どのようなエラーになっているかを調査しましょう。 [F8]キーによるステップ実行中などに、コードウィンドウを 右クリックして、[設定/解除]を選択すると、エラー処理モードを 簡単に変更できます。 で。想定されるエラーの理由ですが—— たとえば、 > Open FIL_NAME For Input As #FILNO の行でエラーになっているなら、恐らくは存在しないファイル名を 開こうとしているのが原因です。 実在するファイル名を指定しているかを再確認してみてください。 > Input #FILNO, FOLNAME, DATAMDB の行でエラーになっているなら、空のファイルを読み込もうとして 読み込みエラーになっているのでしょう。 ファイルの内容に問題が無いか、調べてみてください。 > Set KANRI_ADOCNN = New ADODB.Connection この行でエラーになっている可能性があるとすれば、 DAOすなわち「Microsoft DAO x.x Object Library」と ADOすなわち「Microsoft ActiveX Data Objects x.x Library」の 両方が『参照設定』されていて、型の不一致をひきおこしている 場合が想定されます。 具体的には、KANRI_ADOCNN という変数が、Dim/Private/Public等で、 Public KANRI_ADOCNN As Recordset などとして、どこかで「As Recordset」と宣言されており、かつ、 DAOの方が、ADOよりも、参照設定の上位に配置されている場合です。 この場合は、ADOの方の優先順位を上げるか、もしくは、 Public KANRI_ADOCNN As ADODB.Recordset のように変更する事で解決できるでしょう。 他にも、提示されたコードには、 ・変数宣言が一切見当たらないが、Option Explicit は宣言しているのか? ・なぜ、mdbファイルをOpenステートメントで開こうとしているのか? ・Function INIT_RTN() の戻り値を明記した方が良い。 などなど、いろいろと問題はありますが、いずれにしても、まずは 『どの行で、どのようなエラーになっているかを調査』するのが最優先です。