投稿日 | : 2002/12/04(Wed) 21:07 |
投稿者 | : yoshi |
URL | : |
タイトル | : VBでエクセルを閉じる時・・・ |
はじめまして。VB初心者です。よろしくお願いします。
もしかしたら2件同じ質問をしているかもしれません。
もしそうなっていましたらご面倒ではありますが削除してください。
早速ですが、現在VB・エクセル間でデータのやり取りをするプログラムを組んでいます。
事前バインディング、オブジェクトへの参照を変数代入、保存ダイアログボックスの非表示、
ファイルの上書き保存、エクセルの終了、オブジェクトの解放とちゃんとやったつもりなの
ですが下記の★のところでエラーがでてしまいます。
「実行時エラー'91':
オブジェクト変数またはWithブロック変数が設定されていません。」
とでます。
また、エラーが出る前には下記のプロシージャより前のプロシージャだと思いますが、
上書き保存の時に保存ダイアログボックスが表示され上書き保存もできませんでした。
Dim xlApp As Excel.Application 'エクセル 事前バインディング
Dim xlBook As Excel.Workbook
Dim Spara As Excel.Worksheet
Dim Skekka As Excel.Worksheet
Private Sub seireki_Change()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\吉原昌也\デスクトップ\システム")
Set Spara = xlBook.Worksheets("パラ")
Spara.Range("D29").Value = seireki.Text
Call shousai
★xlApp.DisplayAlerts = False
xlApp.SaveWorkspace ("システム")
xlApp.Quit
Set Spara = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
何日間か原因を自分なりに考えたのですが、わからず質問させていただきました。
力不足でもうしわけありませんがどなたかのご意見をお聞かせいただきたいです。
説明不足かもしれませんがその時にはご指摘よろしくお願いします。