• 締切済み

Excel2007 VBA日付を付けて保存したい。

Excelブックを毎朝8時になると指定のフォルダに年月日を付けて自動保存（上書きではなく新規で）したいのですが、やり方が分かりません。 VBA初心者なのでよく分かりません。分かりにくい説明文で申し訳ないですが、教えて下さい。宜しくお願いします(^_^;)

みんなの回答

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

エクセルのＶＢＡで実行しなくてはならない状況ですか？ 一般的なやり方ですが １、ＤＯＳコマンド　あるいは　ＶＢＳを使って、 　　所定のブックを指定したフォルダへ、日付を使った名前でコピーする 　　コードを考えます。 ２、コントロールパネルにタスクスケジューラがありますので、 　　毎朝　８時になったら、１で作成したプログラムが実行するように設定しておきます。 パソコンの電源が入っている条件だけで（エクセルを起動していなくても）毎朝８時に コピーが実行されます。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ＶＢＡを使用して自動的に保存する事について

    　ＶＢＡでエクセルファイルを開き、そのエクセルファイルを上書き保存してファイルを自動的に閉じたいのですが… 　参考書によると、Saveメソッドを使用するとよいと書いていますが、 上書き保存する場合は、一度も保存していないブックに対しては、Ｓａｖe asメソッドを使用するようにあります。 　現在Save asメソッドを使用して保存は可能となりましたが、、、 保存する場所をＶＢＡでファイルを開く際に指定した、Ｐathに指定し、 Msgボックスで保存する場所を表示させず、自動的に指定した場所にデータを上書き保存して、 作業を行ったエクセルシートを閉じたいのですが可能でしょうか？？ 　エクセルシートを閉じる際は、ＶＢＡで作業を行うためのエクセルシートは開いたまま、作業のために開いたエクセルシートのみを閉じたいのです。 　詳しい方がいらっしゃり、上記の事が可能であればご指導の程お願いします。 　

  • EXCEL VBAでファイルを保存しないで閉じたい

    EXCEL VBAでファイルを保存しないで閉じたい EXCEL VBAでコードを書いています。ワーク用EXCELが必要で、新規ブックを作成しています。 新規ブックで処理をさせた後に自動でブックを閉じたいと思っています。 そこで, WB.QUIT WB.CLOSE True と書いたのですが、新規ブックは閉じずにそのまま残っている状態です。 これを保存しないまま閉じるにはどのような処理が必要でしょうか？

  • エクセルＶＢＡで一つ上の階層を指定して保存したい

    お世話になります。 ＶＢＡ初心者なりにマクロの自動記録などで作業しておりますが、自動記録でできない作業を一つ教えてください。 現在作業しているフォルダは、Activeworkbook.Pathなどで指定できますが、その一つ上の階層に保存したいという場合、どう指定すればよいのでしょうか？　自動保存だと"Documentos and Settinng～"などから始まるファイルパスになりますが、ファイルを保存するフォルダは各人によってまちまちですので、自分が保存したフォルダの一つ上という指定をしたいのです。そのような方法があれば教えてください。 よろしくお願いいたします。

  • 『保存』のマクロを違う名前のファイルでも実行したい

    マクロ初心者です。 CSVファイルの数字の羅列をエクセル上に並べグラフにするマクロを作りました。 今度はそれをエクセルファイルとして保存したい。 見よう見まねで保存のマクロを作ってみましたが、 その際、このマクロを他のCSVファイルで実行しようとすると マクロを作ったファイル名に保存しようとします。 （例）Book1　で作ったマクロはBook２のファイルで同じマクロを実行するとBook１に保存しよう（上書き）とします。 これをその時開いて作業しているファイル名で自動的に保存させるには どうしたらいいのでしょうか？ （例）Book１で作業してる時は保存名をBook1に、 Book2で作業しているときは保存名をBook２にしたい。 説明が下手で申し訳ありませんが、この様な事がマクロでできるのでしょうか？また、できるとすればどこをどのようにすればいいのでしょうか？ 教えてください。よろしくお願いします。

  • 【Excel】保存日の自動入力のやり方について

    こんにちは。 初投稿です。 Excelで、ブックの「上書き保存」もしくは「保存」をした日付を特定のセルに自動入力させたいと思っています。 http://okwave.jp/qa2316518.html を参考に途中Ano4.まではできたのですが、うまくいきません。 Ano5.を試したいのですが、どこから入力していいのかサッパリ…。 ※保存した瞬間に日付が書き換わると一番ありがたいのですが…。 当方初心者のため、わからず、困っています。 どなたかお教えください。 宜しくお願い致します。

  • EXCEL VBAについて

    お世話になります。 EXCEL VBAで指定したフォルダのEXCELブックが１つでもオープンされているかどうか知りたいのですが、可能でしょうか。 よろしくお願いいたします。

  • VBAのコード

    VBA初心者です。 "元データ"シートのA1をコピーし、cドライブにある、"保存用"というフォルダの、"一覧"というBOOKの"保存先"というシートのA1に貼り付ける時のコードがわかりません。 貼り付け先のシートを指定する記述がどうしてもわからないので助けてください。 よろしくお願いします。

  • ＶＢＡ＝一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい

    共通でエクセルを使用していますが、時々エクセルを開いたまま外出したり、休憩したり する方がおり、別な方がエクセルを開いて作業をしたいと思っても、どこかで開きぱなしのことが時々あります。 そんな時のために、エクセルに何も入力等がない一定時間経過したら、自動で保存して閉じる機能を持たせたいと考えています。例えば入力が５分以上なければ自動的に閉じるように・・・・ 上書き保存は下記のＶＢＡで機能するのは確認済みですが、これに「５分後」等のタイムの設定をしたいのですが可能でしょうか？ 可能の場合、どのようなＶＢＡになりますか？？ よろしくお願いします。 ⇒ 'ブックの上書き保存 ActiveWorkbook.Save ' 保存確認を避けるため、保存済みにする ThisWorkbook.Saved = True ' 他にブックが開いていなければ、Excelを終了する If Workbooks.Count <= 1 Then Application.Quit ' 本ブックをClose ThisWorkbook.Close False

  • 【EXCEL2007】　VBA(マクロ)の編集

    EXCEL初心者です。 マクロというものを最近知り、マクロ作成の練習をしているところです。 今こういったことで悩んでいます。 ■『「上書き保存しますか」というメッセージ』で「いいえ」が押された場合に、 『「保存する」という動作をしない（Exit sub）』というソースを 書きたいが、どのようにソースを作成すればいいのか。 ■現在こういった『VBA(マクロ)』を作成しています。 『（１）「B２」セルに文字を入力 （２）マクロ機能を登録した「ボタン」をクリック （３）「B2」セルに入力した名称で「新しいブックを作成」 （４）そのブック名称で指定先に「保存」する。』 今のところ、「マクロの記録」でそういうプログラムを作ること自体は勝手にできてくれました。 「B2」セルに「SampleSheet」と入力して、ボタンを押せば、 「SampleSheet」という「名称」で「新しいブックを作成」することはできています。 ■ですが、例えば「B2」セルに入れた名称が、『保存先にすでにあり』 「上書き保存しますか」というメッセージが出た場合、 上書き保存したくないので、「いいえ」ボタンを押すと 「エラーメッセージ」が出てしまいます。 そこで、 『「上書き保存しますか」というメッセージ』で「いいえ」が押された場合に、 『「保存する」という動作をしない、そのマクロ自体を終了する（Exit sub）』というソースを 書きたいんですが、どのようにソースを作成すればいいのかがわかりませんでした。 ■参考ソースをのせていただけると助かります。 ご回答、よろしくお願いします。

  • 【VBA】ファイルを開く→シートをコピー→保存

    VBAを使って、複数ファイルを一気に編集したいです。 あるフォルダ内に、複数のエクセルブックと VBAを登録したブックが入っています。 VBAの内容としては、 (1)フォルダ内のエクセルファイルをすべて開く (2)各ファイル1ページ目のシートを複製（コピー）する (3)上書き保存して閉じる (4)VBAを登録したブックを閉じる です。 下記のように書いてみたのですが、まったく動かないので どこが間違っているかのアドバイスをいただければと思います。 ----------------------------------------------------- Sub test() Dim Myfile, Filepath As String Filepath = ThisWorkbook.Path 'フォルダ名取得 Myfile = Dir(Filepath & "\") 'フォルダ内のファイル名取得 Do While Myfile <> "" Workbooks.Open Filename:=Filepath & "\" & Myfile Workbooks(Myfile).Activate Sheets(1).Select Sheets(1).Copy after:=Sheets(1) Workbooks(Myfile).Close SaveChanges:=True Myfile = Dir() Loop ThisWorkbook.Close SaveChanges:=True End Sub ----------------------------------------------------- よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する