マクロでファイル開いて・貼り付け・保存・閉じる

詳しい方のお力添えをください
エクセルのマクロにて
(1)　サーバー上にあるエクセルファイルを開く
(2)　開いたエクセルファイルに、元のエクセルシートをコピペ
(3)　サーバー上の開いたエクセルファイルを保存・閉じる
(4)　できれば、メッセージボックスにて「保存できました」と表示

マクロのど素人ですが、なんとかチャレンジしたいと思ってます。
お時間のある方は是非お助けください。

No.4 ベストアンサー 回答者： fujillin 回答日時： 2008/08/07 14:20

（３）の処理内容がまるまるコピーであれば、わざわざファイルを開いたりコピーしたりするよりも別名保存するかファイルをコピーした方が簡単ですね。

ということで、必要な部分のみコピーしたりするものとして、（１）、（２）、（４）の部分のみ。
（３）のところは適当にアレンジしてください。

Sub test()
Dim FilePath, wb

FilePath = "*****"　　　'←開きたいファイルのパスを記入
　If Dir(FilePath) = "" Then
　MsgBox ("指定されたファイルはありません。")
　　Exit Sub
　End If
　Workbooks.Open FilePath
　Set wb = ActiveWorkbook
　　　'****ここにコピーなどの処理を記載
　Application.DisplayAlerts = False
　　wb.Save
　　wb.Close
　Application.DisplayAlerts = True
　MsgBox ("保存しました")
End Sub

この回答への補足

ご丁寧なご返事有難うございます。
早速試してみたいと思います。

補足日時：2008/08/07 22:41

この回答へのお礼

なんとか出来ました。
ご回答ありがとうございました。

お礼日時：2008/08/14 23:38

No.3 回答者： spnlight 回答日時： 2008/08/07 12:15

このサーバーとは？Windowsサーバー？

ファイルのある場所は、認証無しで入れるのか？

この回答への補足

早速のご返答有難うございます。
イントラネットって言えばいいのですか？
事務所の共有サーバーにあるファイルです。
認証無しで入れます。

補足日時：2008/08/07 22:35

No.2 回答者： n-jun 回答日時： 2008/08/07 08:56

>マクロの自動記録も試したのですが、

>サーバー上のファイルを開くことができませんでした。
これは記録時にファイルを開けないと言うことですか？
それとも記録時には開くけど、実行時には開けないと言うことですか？

この回答への補足

早速のご返答有難うございます。
実行時には開けないということです。

補足日時：2008/08/07 22:32

No.1 回答者： n-jun 回答日時： 2008/08/07 06:29

マクロの自動記録は試してみました？

この回答への補足

早速の返答有難うございます
マクロの自動記録も試したのですが、
サーバー上のファイルを開くことができませんでした。

補足日時：2008/08/07 07:09