開いているエクセルファイルが多数あるのですが、今アクティブになっているファイルだけを、上書き保存→閉じる→指定したフォルダに移動までを自動で行なわせたいです。
・上書き保存はマクロの記憶でできるのですが、閉じるをしてしまうとマクロを終了できない、指定したフォルダに移動はマクロではできなく、教えて下さいませ。ファイルの移動は、名前を付けて保存ではなく、そのファイル自体を移動させたいです。
移動させたいファイルは決まってなくて、その都度変わります。
Sub Macro1()
ActiveWorkbook.Save
End Sub
・現時点、開いているファイルの保存場所
C:\Documents and Settings\aaa\デスクトップ\作業用
・移動させたいフォルダ
C:\Documents and Settings\aaa\デスクトップ\作業用\保存用
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ちょっと補足
4行目まちがい
ActiveWorkbook.Close Savechanges:=False
win7 excel2010なら下記でも問題なく動きます
No.2
- 回答日時:
FSOを使って移動させル方法があります。
http://officetanaka.net/excel/vba/filesystemobje …
ちょっと作ってみました。
参考にしてください。
Sub 保存して移動する()
ActiveWorkbook.Save
元のファイルパス = ActiveWorkbook.FullName
ActiveWorkbook.Close savechanges = False
作業用パス = "C:\Documents and Settings\aaa\デスクトップ\作業用"
移動先 = "C:\Documents and Settings\aaa\デスクトップ\作業用\保存用 "
ファイル名 = Dir(元のファイルパス)
''ミス回避
If ファイル名 = ThisWorkbook.Name Then
MsgBox "自分は移動できない"
Exit Sub
ElseIf InStr(元のファイルパス, 作業用パス) = 0 Then
MsgBox "作業用フォルダ以外のデータのため中止"
Exit Sub
Else
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''移動します
FSO.MoveFile 元のファイルパス, 移動先
Set FSO = Nothing
End If
End Sub
No.1
- 回答日時:
上書き保存⇒Excel終了⇒ファイル移動
の順ではなく
名前をつけて保存(\作業用\保存用 フォルダ内)
↓
元ファイルの削除(\作業用 フォルダ内)
※名前をつけて保存した時点で元ファイルの削除は可能になります
↓
Excel終了
の順にすれば問題は無いかと
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
開いているファイルを削除し、別名で保存する方法
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
-
4
エクセルファイルを自身のファイルで削除する方法
Excel(エクセル)
-
5
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
6
VBAにおいて、ファイルの移動にMoveFileを使っていますが、
Visual Basic(VBA)
-
7
エクセル VBA ファイルをフォルダへ移動させる
その他(Microsoft Office)
-
8
エクセルVBA 開いているブックのコピー
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
11
Excel VBAで、Application.InputBoxのキャンセルと入力値ゼロを区別したい。
Visual Basic(VBA)
-
12
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
13
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
14
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
15
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
16
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
17
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CSVファイルの特定行の削除
-
OneDrive必要なものでしょうか
-
彼女の過去の恋愛に嫉妬してし...
-
Googleドライブについて
-
[Unity]シーンファイルの中が消...
-
iTunesに再生回数が復活しない...
-
Excel: ファイル名になぜ、[...
-
EXCELVBAにて文字列にして「01...
-
HPビルダー未使用ファイルの...
-
シェルでテキストファイルを半...
-
スパイウェア?wbemtest.exe
-
添付ファイるが開けません
-
DVDの音楽のみをMP3形式で保存...
-
iTunesでの音楽ファイルの移動...
-
vbsからのExcelマクロ呼び出し...
-
パソコンのExcelファイルを、今...
-
エクセルの固定範囲にCSVを貼り...
-
VBでbasファイルのインポート、...
-
VBA ファイル一覧を取得して全...
-
ユーザーフォームをコピーする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
彼女の過去の恋愛に嫉妬してし...
-
CSVファイルの特定行の削除
-
vbsからのExcelマクロ呼び出し...
-
OneDrive必要なものでしょうか
-
Excel: ファイル名になぜ、[...
-
EXCELVBAにて文字列にして「01...
-
ファイルが移動してもリンクの...
-
docxをmht形式で保存したファイ...
-
複数のExcelファイルにある同名...
-
FTPのgetとputの使いわけ。
-
WINDOWS CMDからゴミ箱のファ...
-
iCloud for Windowsをアンイン...
-
エクセルのファイル:「自分」が...
-
[Unity]シーンファイルの中が消...
-
5000個のtiffファイルをpdfへ変...
-
VBAにおいて、ファイルの移...
-
Excelに貼り付けた画像を圧縮す...
-
自動で.xlsを閉じて指定フォル...
-
このファイルは外部のエディタ...
おすすめ情報