[[20051221184046]]　『サーバー未接続時のエラー処理についてＨＥＬＰ』（ノム）　ページの最後に飛ぶ

『サーバー未接続時のエラー処理についてＨＥＬＰ』（ノム）

本日２回目のＨＥＬＰです。

「ログオフ」ボタンで終了するマクロを作成しています。
データをＣＳＶでサーバーに登録後保存するようにしています。
このとき、サーバーへ接続できる環境がととのっていないとき当然エラーとなります。
この場合、サーバーの登録は中止して保存させたいのです。
下記現在のマクロを記入します。教えて下さい。

    ChDir "W:\予算\①予算\data"
    ActiveWorkbook.SaveAs Filename:="W:\予算\①予算\data\①予算data.csv", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close 0
    ActiveWindow.Close 1

 サーバーがローカルドライブになっているのでしょうか？
 >ChDir "W:\予算\①予算\data"
 マイコンピュータにマウントしているサーバー環境はわかりませんが、
 つながっていなければ
 >ChDir "W:\予算\①予算\data"
 この時点でエラーになりませんか？

 エラーになれば、
 On Error Resume Next
 ChDir "W:\予算\①予算\data""
 If Err Then
   Msgbox "NG"
 Else
   Msgbox "OK"
 endif

 こんなんで良いと思います。
 BJ

BJさんありがとうございました。

参考にさせてもらい問題解決できました。

いまやろうとしている仕組みは、データのみサーバーへcsvで保存後、ＥＸＣＥＬはＣドライブに上書き保存させることでした。

ご回答ありがとうございました。（ノム）

コメント返信：

[ 一覧(最新更新順) ]

[[20051221184046]] 『サーバー未接続時のエラー処理についてＨＥＬＰ』（ノム） ページの最後に飛ぶ

[[20051221184046]]　『サーバー未接続時のエラー処理についてＨＥＬＰ』（ノム）　ページの最後に飛ぶ