A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>(上書きモードは不適です)の意味は「下準備.xls」という
>ファイル名で作業をしたものを、常に年間売上.xlsで保存
>したいという具合なのです。
補足ありがとうございます。
以下手順
念のため下準備.xlsのバックアップを取ってください。
下準備.xlsを開く。
[Alt]+[F11]で VBを起動
[挿入]→[標準モジュール]で標準モジュールを追加して、下記をコピペ
----この下から----
Sub デスクトップへ保存()
Dim fname As String
Dim org As Boolean
'ファイル名設定
fname = Environ("USERPROFILE") & "\デスクトップ\年間売上.xls"
'確認メッセージの設定を取得
org = Application.DisplayAlerts
'確認メッセージを出さない
Application.DisplayAlerts = False
'保存
ActiveWorkbook.SaveAs fname
'確認メッセージの設定を元に戻す
Application.DisplayAlerts = org
End Sub
----この上まで----
VBを終了し、Excelへ戻る。
下準備.xlsを上書き保存。
以上手順
後は、上記のマクロを実行すればデスクトップへ"年間売上.xls"という名前で保存されます。
Excelで[ツール]→[マクロ]→[マクロ]
「デスクトップへ保存」を実行
お試しください。
venzo様 ご丁寧にありがとうございます。
頂いた記述は無事に実行されました。Application.Quitをくっつけて
オブジェクトに登録すれば、初心者スタッフも安心して作業できます。
「終わったらこのボタンを押しましょう」と手順を単純化できます。
この1ヶ月「教えてgoo」にて多くの方に無償のご指導を頂きました。
おかげさまで自分でも感心するほど「初心者にやさしい」ファイルが
完成しました。「えっ?これ押すだけで良いんですか?」「あっ、動
いた動いた」・・・。この一週間はこんな感じの毎日でした。
venzo様ありがとうございました。皆様にも改めて御礼申し上げます。
これからもよろしくお願いいたします(37歳・小企業の経理部長 ponta_024)
No.1
- 回答日時:
>(上書きモードは不適です)
これの意味が分りません。
すでにファイルが存在すれば保存しないと言う意味でしょうか?
Sub デスクトップへ保存()
Dim fname As String
Dim org As Boolean
'ファイル名設定
fname = Environ("USERPROFILE") & "\デスクトップ\年間売上.xls"
'ファイルがすでに存在すれば終了
If Dir(fname) <> "" Then Exit Sub
'確認メッセージの設定を取得
org = Application.DisplayAlerts
'確認メッセージを出さない
Application.DisplayAlerts = False
'保存
ActiveWorkbook.SaveAs fname
'確認メッセージの設定を元に戻す
Application.DisplayAlerts = org
End Sub
この回答への補足
返答が遅くなりました。
venzo様 ありがとうございます。
初心者ですので作成依頼のような文面で申し訳ありませんでした。
(上書きモードは不適です)の意味は「下準備.xls」という
ファイル名で作業をしたものを、常に年間売上.xlsで保存
したいという具合なのです。
マクロの記録で記述した場合、他のパソコンで使用する際に
いちいち設定しなければならないので上記条件のものを
考えております。
お時間のあるときにでもご協力いただけたら幸いです(ponta_024)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルのコピー禁止の方法
-
ワードのズーム変更が保存でき...
-
CSVファイルの保存方法をお教え...
-
保存しないで終了したデータ復...
-
読み込み専用になった
-
Wordの文書ファイルの「名前を...
-
ファイルを「名前を付けて保存...
-
VBAでExcelの保存終了を取得したい
-
起動してるソフトは終了してか...
-
「名前を付けて保存」の保存名...
-
解凍後の.zipファイルは消して...
-
圧縮ファイル(rarファイル)は...
-
VCSファイルをCSVファイル に変...
-
ワードのデータをUSBに保存した...
-
パソコン内の全ファイル数を調...
-
誤ってAdobe ReaderでZIPファ...
-
Excelで「同じ名前のファイルが...
-
4.7GB以上のデータをDVDに書き...
-
Total Uninstall以外のアンイン...
-
.pubファイルはどうやって開くの?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードで作成したものをCD-...
-
ワードのズーム変更が保存でき...
-
VBAでExcelの保存終了を取得したい
-
ファイルのコピー禁止の方法
-
ファイルアクセス権のエラーの...
-
Excelファイルをダウロードして...
-
Wordの文書ファイルの「名前を...
-
ワード別名保存で元の文書まで...
-
Windows ZIPファイルを解凍して...
-
文書がCDに保存できない
-
起動してるソフトは終了してか...
-
ファイルの中の更新日時が変わ...
-
「名前を付けて保存」が常に・・・
-
Word文書を同じ名前・同じ場所...
-
ファイルを「名前を付けて保存...
-
●「遅延書き込みデータの紛失」...
-
ワード2003。読み取り専用でな...
-
保存した「一太郎12」の文書...
-
Windows Media Playerのライブ...
-
~xlsx.は有効なWin32アプリケ...
おすすめ情報