Excelのシート1のみを、本日の日付と名前の入ったセル(I7)を保存する時の名前にして指定したフォルダへ保存したいと思っています。
1、シートは本日の日付+I7セルに入っている値を名前にする。
2、フォルダはCではなくV:\○○\○○\○○\○○\○○\○○\○○に格納
3、シート1以外のシート2、シート3は保存せず閉じる
4、格納後○○に保存しました。と表示
試行錯誤し、下記のように記述してみたのですが、
Sub Macro1()
'Option Explicit
Sub Sample()
Dim xSheet As Worksheet
Dim myFile As String
Dim myName As String
Set xSheet = ActiveSheet
ThisWorkbook.Worksheets("シート名").Copy
'myName = ActiveWorkbook.Worksheets(1).Name
'myFile = ThisWorkbook.Path & "\" & myName & ".xls"
myFile = ThisWorkbook.Path & "\" & xSheet.Range("I7").Value & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=myFile
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
日付を指定して保存
Sub test()
Dim Filename As String
Filename = Format(Date, "yyyy年mm月dd日") & ".xls"
ActiveWorkbook.SaveAs "C:\My Documents\" & Filename
End Sub
日付とI7セルの名前を合せてブックの名前としたい場合どうVBEで記述すればいいのかわからないので詳しい方がおられましたら、
よろしくお願いいたします。
あまり詳しくないので、そのままコピーできるか、○○の部分を指定フォルダ名に変えてください。等の注釈を付けていただけると助かります。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
処理の流れは以下の様になっています。
1.1枚目のシートだけで新規ブックを作成
2.今日の日付とセルI7の値で新しいブック名を付けて保存終了
3.メッセージを表示
4.元のブックを保存せずに終了
Sub Sample()
Sheets(1).Copy
sNewName = Format(Now, "yyyy年mm月dd日") & Range("I7")
ActiveWorkbook.SaveAs Filename:="V:\○○\○○\○○\○○\○○\○○\○○\" & sNewName
ActiveWindow.Close
MsgBox "○○に保存しました"
'ここから下は、元ブックを保存せずに終了する処理
ThisWorkbook.Saved = True
Application.Quit '←Excelを終了しなくても良い場合は削る
ThisWorkbook.Close False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセルの関数 ENTERを押...
-
エクセルで参照しているデータ...
-
WorkBooksをオープンさせずにシ...
-
Excelでブックの共有を掛けると...
-
エクセルファイルを開かずにpdf...
-
エクセルで別ブックをバックグ...
-
アクセスvbaでエクセルブックを...
-
複数ファイルから特定シートの...
-
フォルダ内の複数ファイルから...
-
エクセルで50行ごとに区切った...
-
vbaでpdfを開いて1ページ目のみ...
-
エクセル2016です。「ブッ...
-
同じフォルダへのハイパーリン...
-
Excelファイルをダブルクリック...
-
Excelで指定範囲のデータ...
-
Excelで拡張子の後に数字が……何...
-
エクセルにおける,「ブック」...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
Excelの警告について
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルにおける,「ブック」...
-
WorkBooksをオープンさせずにシ...
-
エクセルで参照しているデータ...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
【マクロ】【VBA】別ブックへの...
-
Excel(2010)のフィルターが保...
-
Excelでブックの共有を掛けると...
-
エクセルで50行ごとに区切った...
-
エクセルでウィンドウの枠固定...
-
同じフォルダへのハイパーリン...
-
ブックのピボットを別ブックに...
-
VBAでブック保護非保護を判定す...
-
【マクロ】for nest について ...
-
エクセルファイルを開かずにpdf...
-
フォルダ内の複数ファイルから...
おすすめ情報