お世話になっています。教えて下さい。

VBで作ったプログラムです。
デバッグ時には何の問題もなく、実行可能(完全コンパイル後に実行)で、コンパイルも問題なく通りますが、EXEにして実行すると、以下のエラーが出ます。

実行時エラー:'91'
object変数、またはwithブロック変数が設定されていません。

どなたか、原因に心当たりがある方、いらっしゃったら教えて下さい。
よろしくお願いします。

A 回答 (4件)

補足、早いですね。


問題の解決もこのまま進めば、時間の問題です。
shigeki-yyさんの補足の結果から判断すると、
SHELL周りが非常に怪しいです。
手元に資料がないので、(インターネットで探せば見つかるのですが、なまけものなのでお許しを)詳しいことは
書けませんが、確かWindows98とWindows2000では
SHELLの呼び方が違ったと思います。
まずは、その辺を調べてみてはいかがでしょうか?
補足の内容からコントロール関係は、あまり影響していないような気がしました。
SHELL周りで問題がないときにコントロールを調べたほうがいいと思います。
では。

この回答への補足

ありがとうございます。

SHELL関数について、Microsoftのホームページなどインターネットで調べてみたんですけど、Win98とWin2000での違いについての記述は見つかりませんでした。
shellで呼んでも、フォームの表示までは正常に動いているので、そこが原因ではないような気もしています。

もう少しコントロールと平行して調べてみます。

補足日時:2001/09/27 17:26
    • good
    • 0
この回答へのお礼

調べたところ、呼び出し方と言うよりShell関数を動かしているDLLが、win98とwin2000では違うみたいです。

いろいろ勉強になりました。
忙しい中、ありがとうございました。

お礼日時:2001/09/28 10:07

>SHELL周りが非常に怪しいです。



SHELL関数の代わりにAPI関数のShellExecuteを使うとか
もしかして、画面を沢山開いていますか?
    • good
    • 0
この回答へのお礼

ありがとうございます。
ShellExecute関数に変えたらうまくいきました。あれほどうまくいかなかったのに。

shell関数の仕様が違うのか、プロセスの扱いが2000と98で違うんですかね?
ちなみに画面はそれほど開いていないです。前のプログラムが処理終了する寸前にパラメータを渡して起動しています。

お礼日時:2001/09/27 18:43

追加でお答えします。



補足で記載されていることから予想されることは、
shigeki-yyさんが作成されているEXEは
Windows2000で作成されていて、そのEXEをWindows98
で、実行できないと読み取れるのですが正しいですか?
作成環境と試験環境がどのような関係になっているのかが
ちょっと文面から読み取れないので、何ともいえませんが、下記の文章を参考にしていただけると幸いです。
コマンドボタンを押したときの先頭にMSGBOXを入れてもそこまでたどり着けないという現象からわかることはwithブロック変数が設定されていないという項目はないと思います。
ですからobject変数の宣言が怪しいか、後は環境の違いでしょう。
とりあえず全体に対してOption Explicit(つづりあってましたっけ?)を入れて、エラーをチェックしてみてください。
それでも引っかかるときは、フォームに張ってあるコンポーネントを疑ってみてください。
例えば、IEに関連するコントロールやOffice関係のコントロール、ライセンスが必要なコントロール張ったりしていませんか?
その辺を疑ってみるといいと思います。
最後の手段で、Windows98で同じソースを使ってEXEを作成&デバッグすれば解決すると思います。
あまり回答にはなっていませんが、参考になればと思い書いて見ました。

この回答への補足

ありがとうございます。

おっしゃる通り、win2000でコンパイルしたEXEが98で動かないという事象です。(Win98でコンパイルしても同じ事象です。)
作成環境(Win2000)・実行環境(Win98SE)ともに同じバージョンのVisualStudio(V6.0SP5)がインストールされています。
OptionExplicitはデフォルトで入るようになっているので、その方面でのエラーはないようです。Win98でデバッグすると問題なく通ってしまうので、そこで原因も発見できませんでした。

もう少し、フォームに張り付いているコントロールの方を調べてみます。

あと、新たにわかったことは、別のVBからの呼び出し(SHELL関数)では同じ事象が起こりますが、単体(DOSコマンドラインから実行)だと動きます。呼び出しはSHELLで呼んでいるだけなので、そこに問題があるとも思えないのですが…。

補足日時:2001/09/27 16:03
    • good
    • 0

こんにちは。



質問内容から細かいことは何ともいえないのですが、
プログラミング&デバッグしたマシンとEXEを実行したマシンの環境が違うのではありませんか?
この場合は、フォームに張ってあるコントロールや、実行に必要なファイルが不足している恐れがあります。
VBのバージョンとか張っているコントロールもしくはエラーの原因となりそうなオブジェクトの名前もあわせて質問すると回答者の方は的確なアドバイスをくれると思います。
実行時のエラーが出る場合は、エラーの原因となりそうなところにメッセージボックスを表示させ、どこまで処理が進んでいるか確認して、ソースを見直すことをお勧めします。これを繰り返していくと、だんだんエラーの原因となっているobject変数またはwithブロックにたどり着きます。この方法で、エラーの発生している行を突き止めましょう。

この回答への補足

指摘の通りです。大雑把な質問ですみません。

バージョンはVB6.0SP5です。
普通のコマンドボタンのクリックイベントでの処理なのですが、先頭にMSGBOXをかませても、その処理までたどり着きません。フォームなどは正常通りに表示され、機能しているんですけど、そのボタンを押した瞬間にフリーズして、Cntl-Alt-Deleteを押すと、上記のメッセージが表示されます。
そのプロシージャに書かれているソースを全部消しても同様になります。他に原因があるのかな…とも思うのですが。

ちなみに新しくわかったことですが、Windows2000では正常に動作し、エラーとなるのは、Windwos98です。

補足日時:2001/09/27 13:23
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qマクロ初心者です。実行エラー'91になります。 今選択しているシートのコード名と別シートwk1の

マクロ初心者です。実行エラー'91になります。


今選択しているシートのコード名と別シートwk1のコード名が一致かつ、コード名がCから始まるなら
処理っていうのは下の文です。
...
For i = 〜
If 〜
For j = 〜
If Cells(i,Tcode).Value = wk1.Cells(j,15) And Left(wk1.Cells(j,1).Value,1) = ”C” Then

'処理(あるセル情報によって、出力位置が違う)
if Cells(i,m).Value = 1 Then
wk1.Cells(j,8).Value = Cells(i,out)
Else
wk1.Cells(j,15).Value = Cells(i,out)

ここまでは、社内で既に動かしているコードなので間違いはないです。

今回追加したいのが、
さらに、
wk1のシートの、例えばO列かP列どっちかに必ず番号が書いてるので、
その値を同じシートのA列から検索して
その行に同じようにCells(i,out)の値を出力(上記のように、セル情報によって出力位置が違うようにする)したい場合、

Kline= wk1.Range(”A:A”).Find(wk1.Cells(j,Num).Row
or wk1.Range(”A:A”).Find(wk1.Cells(j,Num2).Row

そして既存の処理のとこに
wk1.Cells(Kline,8).Value = Cells(i,out)
をTrueとElseそれぞれにいれましたが

Klineへ格納の時点でエラーになります。

Orはif文でしか使えないのかなと思い、
ifとOrを使い、
Trueは
Kline = Rows.Count

としましたがダメでした…

どうかご教示願います。

マクロ初心者です。実行エラー'91になります。


今選択しているシートのコード名と別シートwk1のコード名が一致かつ、コード名がCから始まるなら
処理っていうのは下の文です。
...
For i = 〜
If 〜
For j = 〜
If Cells(i,Tcode).Value = wk1.Cells(j,15) And Left(wk1.Cells(j,1).Value,1) = ”C” Then

'処理(あるセル情報によって、出力位置が違う)
if Cells(i,m).Value = 1 Then
wk1.Cells(j,8).Value = Cells(i,out)
Else
wk1.Cells(j,15).Value = Cells(i,out)

ここまでは、社内で既...続きを読む

Aベストアンサー

>実行エラー'91になります。
エラー発生場所を書いて下さい。
コード全体が書いてない以上、こちらで試すことも出来ません。

>コード名がCから始まるなら処理っていうのは下の文です。
何を言いたいのか分かりません。

>今回追加したいのが、
追加前はどんなコードですか?

質問する際は
・何をさせるマクロなのか
・可能な限りコード全体
・エラー内容(これは書いてますね)
・エラー場所
のように整理して書いて下さい。

QVBで作成したパッケージを実行すると実行時エラー'429'が発生してしまいます。

VBにてcsvファイルのデータをOracleデータベースにinsert、updateするプログラムを作成し、開発パソコンにて正常に動作することを確認しました。

開発パソコン
・Windows2000 Server(SP3)
・Visual Basic 6.0 Enterprise Edition
・Oracle 9i

本番パソコン
・Windows2000 Server(SP3)
・Oracle 9i

テストパソコン
・Windows2000 Professional(SP1)

今、上記のように3台のパソコンがあります。
開発パソコンで開発したVBのプログラムをコンパイルしてexeを作成し、開発パソコン上から開発パソコン上のオラクルに対してプログラムを実行すると正常に動作します。
本番パソコンには、Visual Basicをインストールしていないため、プログラムを実行できるようにするには開発パソコンにてディストリビューションウィザードを使ってセットアッププログラムを作成し、本番パソコンにインストールする必要があると思います(質問1.ここまでは正しいですよね??)。

そこでウィザードに沿ってセットアッププログラムを作成し、まずはテストパソコンにてインストール後に実行してみたのですが、エラーが出てしまいました。
「実行時エラー'429' ActiveX コンポーネントはオブジェクトを作成できません。」

質問2.どうすればエラーが発生することなくプログラムを実行できるようになるでしょうか?
テストパソコンにオラクルクライアントが必要?それとも何かDLLの更新などが必要?

もしおわかりの方いらっしゃいましたら教えて下さい。
よろしくお願いします。

VBにてcsvファイルのデータをOracleデータベースにinsert、updateするプログラムを作成し、開発パソコンにて正常に動作することを確認しました。

開発パソコン
・Windows2000 Server(SP3)
・Visual Basic 6.0 Enterprise Edition
・Oracle 9i

本番パソコン
・Windows2000 Server(SP3)
・Oracle 9i

テストパソコン
・Windows2000 Professional(SP1)

今、上記のように3台のパソコンがあります。
開発パソコンで開発したVBのプログラムをコンパイルしてexeを作成し、開発パソコン上から開発パソ...続きを読む

Aベストアンサー

>テストパソコンにオラクルクライアントが必要?
ん?クライアントにオラクルが入っていないのですか?

各クライアントのオラクルドライバはどうしているのか、ふと疑問を感じたんですが^^;

バージョンを問わない対応をするには、参照設定からはずし、AS OBJECTでコネクションを張ってあげたら消える場合もあるけど、何となくそれ以前の問題のような気がするのは、わたしだけでしょうか?

Q実行時エラー '8021'とはどんな内容のエラーでしょうか?

VB6 でプログラムを作成していますが、たまに"実行時エラー'8021':DCB (Device Control Block)の取得時に、ポートで内部エラーが発生しました。"というメッセージが表示されプログラムが止まってしまいます。どういった内容のエラーなのか分かりませんので、しっている方がいらっしゃいましたら教えて頂きたいのですが。よろしくお願いします。

Aベストアンサー

誰も回答していないようなので、参考までに。

エラー番号8021を発生させたところ、当方の環境ではそのようなメッセージは表示されず、そのエラーは定義されていないと表示されました。
その事から、そのエラーはVB6標準ではないクラスまたはコントロール等を利用して発生していると思われますので、
その環境をもっと記載しなければ、他の人も回答できないと思います。
(エラーメッセージを見る限りでは、特殊なものを利用しているっぽいので補足説明があっても、私には回答できなさそうですが・・・)

Q実行時エラー'1004': アプリケーション定義またはオブジェクト定義のエラーです。

Excel VBA(Excel2000)について質問です。
セルの入力規則を設定するvalidationプロパティ設定時に表記エラーが起こるのですが、どういった原因なのか知りたいです。
そのエラーを起こす手順ですが、
1. 新規ブックを作成する
2. Visual Basic Editorを使用して、Sheet1に以下のコードを埋めこむ:

Private Sub Worksheet_Activate()
  With Cells(1, 1).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="test1,test2"
  End With
End Sub

3. Sheet1 ←→ Sheet2 or Sheet3をタブで切り替える
  → 問題なく作動する
4. Sheet1の任意の場所に、コントロール ツールボックスのコマンドボタンを配置する
5. Sheet1 ←→ Sheet2 or Sheet3をタブで切り替える
  → これも問題なく作動する
6. 4.で配置したコマンドボタンを押す
7. Sheet1 ←→ Sheet2 or Sheet3をタブで切り替える
  → 表題のエラーが発生する

といったように、ボタンやチェックボックス等を配置したシートにおいてvalidation.addメソッドを使用すると、何故かエラーが発生します。この発生パターンが見つかるまでずっと悩んでいました。
今現在は、一応、他の方法で回避できてはいますが、どうしてこのエラーが出るのかはっきりしたいので、ご存知の方はどうぞご指導お願い致します。

Excel VBA(Excel2000)について質問です。
セルの入力規則を設定するvalidationプロパティ設定時に表記エラーが起こるのですが、どういった原因なのか知りたいです。
そのエラーを起こす手順ですが、
1. 新規ブックを作成する
2. Visual Basic Editorを使用して、Sheet1に以下のコードを埋めこむ:

Private Sub Worksheet_Activate()
  With Cells(1, 1).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="test1,test2"
  End With
End Sub

3. Sheet1 ←→ Sheet2 or S...続きを読む

Aベストアンサー

> 6. 4.で配置したコマンドボタンを押す

この操作でコマンドボタンがアクティブ状態になってしまうのが原因のようですね。これはチェックボックスとかリストボックス等でも起こると思います。
最も簡単な対処方法としては、Cells(1,1).SelectとかRange("A1").SelectをWith Cells(1, 1).Validation の前に記述し、特定のセルをアクティブにする方法でしょう。

Q実行時エラー’2164’

アクセスVBAで、実行時エラー’2164’
コントロールがフォーカスを取得しているときは、
コントロールを無効にすることはできません
と言うメッセージが出てしまいます。
何が原因なのでしょうか?

Aベストアンサー

例えば下記のようなプログラムは駄目よ。て事

更新後に自分自身のコントロールを使用不可にするようなプログラム

例:テキストボックスで同テキストボックスの内容が更新された場合に同テキストボックスを使用出来ないようにする。
Private Sub テキスト0_BeforeUpdate(Cancel As Integer)
テキスト0.Enabled = False
End Sub

簡単にいうとフォーカスを失っていない状態で自身のコントロールのイベントプログラムで自分自身を使用不可にするような事はしたらあかんて事


このカテゴリの人気Q&Aランキング

おすすめ情報