よろしくお願いします。
エクセルのファイル(ブック)を自動的にバックアップとりたいのですが、よろしくご指導お願いします。
◆「sheet1のセルA1に
=”ファイル名”&=TEXT(NOW(),"yymmddhhmm")」
と入れています。これによりブックを閉じるときにバックアップ用フォルダにセル「A1」に表示される文字をファイル名として自動保存をしたいのです。
◆ひとつ難題があります。バックアップ先はネットワークでつながっている、ある管理者のパソコンです。管理者出張等で、そのパソコンが立ち上がっていないときもありえます。そのようなときはそのバックアップそのものが不能ですから、VBAでもそういう場合はバックアップそのものをあきらめるといいますか、自動パスして終了したいのです。
以上のことについてご指導お願いいたします。初心者ですので、わかりやすくお願い申し上げます。
No.1ベストアンサー
- 回答日時:
Sub BKsave()
Dim BkName As String
Dim NetPath As String
'保存先パス名
NetPath = "\\PC_NAME\Fol1\"
'A1 には、ファイル名のみ記入でOK
' Format文で書式設定
BkName = ThisWorkbook.Sheets("sheet1").Range("A1").Text & _
Format(Now(), "yyyymmddhhmm") & ".xls"
'NetPath = ThisWorkbook.path & "\" '←同じフォルダに保存する場合。
'エラーがあった場合、実行を止めないで任意の場所に飛ぶ GoTo Error1
On Error GoTo Error1
'DIR関数でパスの有無を確認。(存在しない場合はエラーになる)
If Dir(NetPath, vbDirectory) <> "" Then
'別名で保存
ThisWorkbook.SaveCopyAs NetPath & BkName
End If
MsgBox "保存しました。"
Exit Sub '終了
Error1: 'エラー時
MsgBox "保存先がありません"
End Sub
この回答への補足
ご回答ありがとうございます。すこしお時間をいただいて研究してみます。ありがとうございました。また、お礼欄であらためてお礼申し上げます。
補足日時:2006/03/21 19:48あらためてご回答ありがとうございました。
とてもわかりやすく書いてくださってありがとうございます。
でも、理解力が弱く、いまだ、ご指導内容をいまだ勉強中です。
お礼欄を使って補足依頼のようになり申し訳ありません。
◆入力知識しかない程度のファイルを使用する担当者のためにファイルを作りましたが、その方のために自動バックアップをとりたい目的です。エクセルを終了する(担当者が「×」を押す)ことで上書き保存だけでなく、自動バックアップを取れるには?という方法についてよく理解できません。補足といいますか、もう一度、ご指導お願いできないでしょうか?よろしくお願いいたします。私は4月で異動でこの職場を去りますが、万一ファイルが壊れたときにこの毎日のバックアップファイルさえあればなんとかなると考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
学校のChrome Bookのロックの解...
-
外付けハードディスク2台をミ...
-
DROP BOX バックアップを削除し...
-
Linkstation(NAS) バックアッ...
-
エクセル:自動保存の方法:she...
-
HPのアップロードのトラブル
-
HDDは消耗品といいますが、それ...
-
YAMAHAルータの設定ファイルの...
-
【ARCserve】イベントの警告に...
-
ASRockのLED制御が出来ない
-
DVDshrink メモリリソースが足...
-
deleteで開放するとエラーにな...
-
特定のsteamゲームが起動前にク...
-
VBA Selenium Google Chrome 操...
-
Thunderbird ローカルフォルダ...
-
joyToKeyが起動しない
-
STEAM版BF4が起動しない
-
購入予定のサーバーに、現行サ...
-
粗オッズ比と調整済みオッズ比
-
留数定理を用いたフーリエ変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
外付けハードディスク2台をミ...
-
DROP BOX バックアップを削除し...
-
学校のChrome Bookのロックの解...
-
Windows10 バックアップで失敗...
-
添付した画像の、transcendの外...
-
windows2000のシステムイメージ...
-
HDDコピーは違法ではないのか。
-
linuxのバックアップ
-
オープンオフィスで作った表計...
-
ショートメールをPCに保存す...
-
YAMAHAルータの設定ファイルの...
-
PS3でバックアップをとろう...
-
CD,DVDへのバックアップの仕方
-
Win Server2003でntbackupを使...
-
Linkstation(NAS) バックアッ...
-
来月再来月にはゲーム用PC購入...
-
昔のoutlookexpressメールを見たい
-
HDDは消耗品といいますが、それ...
-
ハードディスク(パソコン)破...
-
ハードディスクの問題が検出さ...
おすすめ情報