No.4ベストアンサー
- 回答日時:
こんにちは
以下でもいけると思います。
Sub Sample()
Const p = "C:\Sample1.xlsx"
With CreateObject("Excel.Application")
.Application.DisplayAlerts = False
.Workbooks.Open(ThisWorkbook.FullName).SaveAs p, 51
.Workbooks(1).Close
.Quit
End With
End Sub
No.3
- 回答日時:
ワークシートはいくつもあるのでしょうか?一つだけならWorksheets.Copyでコピー先を指定しなければ新しいブックができるので、それをSaveAsで保存すればいいです。
他にシートがあるなら新しいブックに追加でコピーしてSaveAsすればいいです。No.2
- 回答日時:
力技なら
Dim bk As Workbook
Dim bkPath, bkName
ActiveWorkbook.Save
bkPath = ActiveWorkbook.Path
bkName = ActiveWorkbook.Name
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Sample1.xlsx", FileFormat:=51
Set bk = ActiveWorkbook
Workbooks.Open bkPath & "\" & bkName
bk.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
No.1
- 回答日時:
SaveCopyAsではなく、別名保存としてSaveAsを使います。
このとき、xlOpenXMLWorkbookを指定することでマクロなしで
保存ができます。
http://officetanaka.net/excel/vba/tips/tips214.htm
ご提示のプログラムはやったことがありますが、実行すると、現在編集中のブックが新しくできたブックに入れ替わってしまいます。引き続き編集できるようにするにはどうすれば良いでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) VBA バックグラウンドで別ブックを開いてデータ転記 3 2024/04/04 14:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/02 16:12
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/01 17:53
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAなくなるの?
Visual Basic(VBA)
-
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
-
4
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
5
プログラミング
Visual Basic(VBA)
-
6
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
7
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
8
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
9
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
10
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
11
VBA一覧取得 再投稿
Visual Basic(VBA)
-
12
VBA指定行削除
Visual Basic(VBA)
-
13
VBAコードのインデント表示
Visual Basic(VBA)
-
14
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
15
VBA初心者 Ctrl+での操作、ボタンに登録での操作
Visual Basic(VBA)
-
16
VBAの計算で@が出てしまう件
Visual Basic(VBA)
-
17
【マクロ】1つのマクロの中に、ブック指定とシート指定が混在しても良いのですか?
Visual Basic(VBA)
-
18
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
19
vba 削除
Visual Basic(VBA)
-
20
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
FTPとファイルコピーの違いにつ...
-
VB6でのファイルコピーの終了検...
-
最新更新日のBATファイルコピー...
-
開いている別のファイルにExcel...
-
バッチファイル 別ファイルにリ...
-
Vba初心者です。下記のコード助...
-
VB6でExcelシートのコピー、貼付け
-
FSO.CopyFileでのエラー無視方法
-
同じファイル名 上書きしないフ...
-
xcopyでのバッチコピー方法でコ...
-
Gitについて質問。 クローンし...
-
DOSコマンドのコピー完了判定
-
エクセルのマクロについて教え...
-
マインクラフトPCをプレイしよ...
-
指定した時間になったらファイ...
-
バッチファイルのコピーで
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
エクセルVBAで開いているファイ...
-
パワポでスライドをコピーでき...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
Excelのマクロについて教えてく...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報
これだと現在開いているブックが閉じてしまいます。