Excel VBA質問箱 IV

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

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


67877 / 76733 ←次へ | 前へ→

【13406】Re:ファイルの保存方法について
回答  かみちゃん  - 04/5/4(火) 16:37 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> ファイル名「集計表」(シートは一つだけではありません。)を、3月分として 保存し(保存する際は、ファイル名を「集計表:3月分」とします。)、更に、 その「集計表」に入力されているデータをクリアにしたものを、改めて
> 上書き保存する。 

マクロの自動記録でどのようにうまくいかなかったのか、わかりませんが、マクロの自動記録である程度作って微修正すれば、できます。
とりあえず、こんな感じでどうですか?

Option Explicit

Sub Macro1()
  Dim Org_BookName As String
  Dim Target_BookName As String
  
  '現在開いているブック(元のブック(集計表))のフルパスを取得
  Org_BookName = ThisWorkbook.FullName
    
  '上書き確認メッセージを表示しない
  '上書き確認メッセージを表示する場合は、FalseをTrueにする。
  Application.DisplayAlerts = False
  
  '別のブック名(「集計表:○月分」)で保存
  Target_BookName = "集計表:3月分"
  '--- マクロの自動記録で作成、微調整
  ActiveWorkbook.SaveAs Filename:= _
    Target_BookName, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
  'Sheet1の全てのセルの値をクリア
  Sheets(1).Cells.ClearContents

  '元のブック名で保存(フルパス)
  ActiveWorkbook.SaveAs Filename:= _
    Org_BookName, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
  '--- 自動記録おわり
  
  '上書き確認メッセージを既定値に戻す
  Application.DisplayAlerts = True
  
  'マクロ終了メッセージ
  MsgBox "処理を終了しました。"
End Sub

3 hits

【13403】ファイルの保存方法について ピグ 04/5/4(火) 16:08 質問
【13405】Re:ファイルの保存方法について Asaki 04/5/4(火) 16:37 回答
【13406】Re:ファイルの保存方法について かみちゃん 04/5/4(火) 16:37 回答
【13413】Re:ファイルの保存方法について ピグ 04/5/4(火) 18:03 質問
【13419】Re:ファイルの保存方法について かみちゃん 04/5/4(火) 19:18 回答
【13425】Re:ファイルの保存方法について ピグ 04/5/5(水) 0:11 お礼

67877 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free