ＶＢ6.0によるエクセルファイルの操作で出てくるエクセルのMsgBoxの戻り値の場所を教えてください。

解決

めしや 2008-12-24 02:59:43 No: 141154

まいどすみません。
ＶＢ6.0でＯＳがＸＰ、officeXPの環境で作業しています。
宣言）
    Dim xlAp   As Excel.Application
     Dim xlWb As Excel.Workbook
     Dim xlSt As Excel.Worksheet

   Set xlAp = CreateObject("Excel.Application")
   Set xlWb = xlAp.Workbooks.Add
   Set xlSt = xlWb.Worksheets(1)
・・・・・・

xlAp.DisplayAlerts = False  とかで、ファイル保存時に同名ファイルが存在した場合、エクセルのメッセージボックスが出ないようには出来るんですが、、

Trueにしたときに、、同名ファイルが存在するとエクセルのボックスが出て上書きかどうか、、のＹＥＳ，ＮＯかの選択となり、、ＮＯを選ぶと、エラーが出てしまいます。
そのＹＥＳ，ＮＯを選ぶ際の、戻り値を見つけると、エラーを回避することは出来るのですが、、それがどこのどれなのか、、

xlAp.のドロップダウンリストを見ても何がそうなのか、わかりません。

どうか何卒、ご教授、宜しくお願いします。。m(__)m

特攻隊長まるるう 2008-12-24 18:24:27 No: 141155

提示のコードではファイル保存の処理が無いようですが？

> 同名ファイルが存在するとエクセルのボックスが出て上書きかどうか
Excel が出しているメッセージボックスを制御することはできません。
プログラムで保存処理を実行しているなら、Dir 関数などでファイル
の存在を確認しておけばよいのでは？

めしや 2008-12-24 20:05:29 No: 141156

特攻隊長まるるう様、誠に助かりました！
ご教授戴いたとおり、Ｄｉｒ関数で保存前に確認して、ファイルが見つかると、exit subで抜け出しキャンセルすること成功しました。
有難うございました！m(__)m