PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 21493 | 04/08/24 15:15:48 | RE(2):PB6.5: OLEでの上書き確認表示 By たにやん |
| 21476 | 04/08/11 14:50:42 | RE(1):PB6.5: OLEでの上書き確認表示 By めめ |
| 21462 | 04/08/03 16:27:05 | PB6.5: OLEでの上書き確認表示 By たにやん |
カテゴリ：データベース
日付：2004年08月03日 16:27 発信者：たにやん
題名：PB6.5: OLEでの上書き確認表示
こんにちは。
パワーソフトの技術ドキュメントのサンプルを使用してDWの内容をエクセルに書き出す
処理をしているのですが、
（サンプルプログラム
http://powersoft.ashisuto.co.jp/technicalservice/techdocument/technoteonline/ctrl_obj/2002/11/22/52
5,919,0,0,0.html）
ファイル保存の時に既に指定したファイルが存在しているとエクセルからの上書き確認
のポップアップが表示されてしまいます。
ここで「いいえ」にするとエラーで終了してしまいます。
◎エラー内容
外部オブジェクト関数saveasの呼び出しエラーです。
◎スクリプトのエラー場所
// Excel を表示不可能にする
xlApp.Application.Visible = FALSE
// Excel シートの参照を解決する
// この技術はスクリプトを短くし、パフォーマンスを改善します
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
// データウィンドウとExcel シートの初めから終わりまでをループ処理する
// For/Next ループを使用して各カラムの全ての行をコピーする
For c = 1 to numcols
For r = 1 to numrows
xlsub.cells[r,c] = ids_ds.object.data[r,c]
Next
Next
ここ→xlApp.Application.Activeworkbook.SaveAs(ls_savename)
デバックをしてみるとこの部分でいいえをクリックした時にエラーが出てました。
どなたかこのエラーを回避する方法、またはこのエクセルからの上書き確認のポップアップ
消す方法をご存知のかたいますでしょうか？
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.