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

質問

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

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

回答No.4

fujillin · ベストアンサー

（３）の処理内容がまるまるコピーであれば、わざわざファイルを開いたりコピーしたりするよりも別名保存するかファイルをコピーした方が簡単ですね。
ということで、必要な部分のみコピーしたりするものとして、（１）、（２）、（４）の部分のみ。
（３）のところは適当にアレンジしてください。

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

お礼

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

補足

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

回答No.3

spnlight

このサーバーとは？Windowsサーバー？
ファイルのある場所は、認証無しで入れるのか？

補足

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

回答No.2

n-jun

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

補足

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

回答No.1

n-jun

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

補足

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