Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8820 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30971】ネットワークを越えての保存方法 勝子 05/11/8(火) 15:38 質問[未読]
【30978】Re:ネットワークを越えての保存方法 Kein 05/11/8(火) 16:24 回答[未読]
【30982】Re:ネットワークを越えての保存方法 こたつねこ 05/11/8(火) 16:48 発言[未読]
【30985】Re:ネットワークを越えての保存方法 勝子 05/11/8(火) 17:22 お礼[未読]
【30993】Re:ネットワークを越えての保存方法 こたつねこ 05/11/8(火) 20:44 発言[未読]
【30983】Re:ネットワークを越えての保存方法 Kein 05/11/8(火) 17:12 発言[未読]
【30984】Re:ネットワークを越えての保存方法 勝子 05/11/8(火) 17:20 お礼[未読]
【30971】ネットワークを越えての保存方法
質問  勝子  - 05/11/8(火) 15:38 -
引用なし
パスワード
   こんにちは

1.支店の建物から2.本店の建物へネットワークを越えての
ＥＸＣＥＬファイルの保存を行いたいと思っているのですが、
どんなマクロを使えばいいのでしょうか？？

ＶＢＡに詳しくないので細かい説明をお願いいたします
【30978】Re:ネットワークを越えての保存方法
回答  Kein  - 05/11/8(火) 16:24 -
引用なし
パスワード
   ネットワーク越しの場合、保存先フォルダーのパスは

\\****\C\****

のようになるのは、お分かりですね ?
そしてブックの保存先を変更する場合は、Workbookオブジェクトの
SaveAsというメソッドを使います。その引数にパスを渡せば良いのですが、
ネットワーク越しなら確実に保存できるように、そのフォルダーをカレントに
した方が良いと思われます。従って

Sub Test_Save()
　 Dim WshShell As Object
　 Const Fol As String = _
　 "\\****\C\****"
　 '↑ここは実際の、本店の建物にあるPCの保存先フォルダーのパスに変更する

　 Set WshShell = CreateObject("WScript.Shell")
　 WshShell.CurrentDirectory = Fol
　 ActiveWorkbook.SaveAs Fol
　 MsgBox Fol & vbLf & "へ保存しました", 64
　 WshShell.CurrentDirectory = Application.DefaultFilePath
　 Set WshShell = Nothing
End Sub

などとすれば良いと思います。
【30982】Re:ネットワークを越えての保存方法
発言  こたつねこ  - 05/11/8(火) 16:48 -
引用なし
パスワード
   勝子さん、Keinさんこんにちは

>1.支店の建物から2.本店の建物へネットワークを越えての
>ＥＸＣＥＬファイルの保存を行いたいと思っているのですが、

回答ではありません
上記文章を読んで思ったのですが、これってWANの
話じゃないんですか？

であれば、ネットワーク管理者に問い合わせるのが
まず最初ですよ。
本店側でどんなサービスを立ててるのかも分からな
いし・・・

WANでの話じゃないとすれば、Keinさんの方法を参
考にしてください。
【30983】Re:ネットワークを越えての保存方法
発言  Kein  - 05/11/8(火) 17:12 -
引用なし
パスワード
   こたつねこさんのレスは、そちらで解釈していただくとして、ちょっとサンプルコードを
修正しておきます。
>ActiveWorkbook.SaveAs Fol
↓

ActiveWorkbook.SaveAs Fol & "\" & ActiveWorkbook.Name

と、追加して下さい。ども。
【30984】Re:ネットワークを越えての保存方法
お礼  勝子  - 05/11/8(火) 17:20 -
引用なし
パスワード
   ｋｅｉｎさん

早速、ありがとうございます。

ただいま、１つずつ解読をしながら検討しております。
ホント素人ですみません<m(__)m>
【30985】Re:ネットワークを越えての保存方法
お礼  勝子  - 05/11/8(火) 17:22 -
引用なし
パスワード
   こたつねこさんへ
ありがとうございます

一応、ネットワーク管理者には確認を取って
「出来無くはない」と言われました。

ただ、毎回直接ネットワーク越えをしにいくよりも
「マウントを立ててやったほうがいい」といわれてます。
【30993】Re:ネットワークを越えての保存方法
発言  こたつねこ  - 05/11/8(火) 20:44 -
引用なし
パスワード
   勝子さん、こんばんは

>一応、ネットワーク管理者には確認を取って
>「出来無くはない」と言われました。
>
>ただ、毎回直接ネットワーク越えをしにいくよりも
>「マウントを立ててやったほうがいい」といわれてます。

ネットワーク管理者と確認を取っていると言うことなので
要らぬお世話でしたね^^;

がんばってくださいね
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8820 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free