-PR-
締切り
済み

エクセル、マクロの登録方法

  • すぐに回答を!
  • 質問No.16370
  • 閲覧数113
  • ありがとう数1
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 50% (1/2)

エクセルのマクロ登録で、ファイルの保存を登録したい。
毎回違うファイル名で登録したいので、マクロ実行時に
ファイル名登録のところで一時中断させて
ファイル名を入力可能なようにマクロを作成できませんか?
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

Application.GetSaveAsFilename を使用して ファイル名を指定すれば可能でしょう。 ...続きを読む
Application.GetSaveAsFilename を使用して
ファイル名を指定すれば可能でしょう。
補足コメント
panzy

お礼率 50% (1/2)

早速の回答ありがとうございます。
初心者なのですみませんが、どのように使用するのか
解りません。マクロはキー操作の登録しかわかりません。
その後編集するのでしょうか。その場合
何処をどのように修正したらよいのかお願いします。
投稿日時 - 2000-12-05 21:07:37
お礼コメント
panzy

お礼率 50% (1/2)

早速のご回答ありがとうございます。
まだ全くの初心者なのでこれからも
宜しくお願いします。
投稿日時 - 0000-00-00 00:00:00


  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

失礼しました。もう少し説明を・・・保存をキー記録したら ActiveWorkbook.SaveAsFilename:="ファイル名"------ ができませんか。これを Dim getFileName getFileName = Application.GetSaveAsFilename(fileFilter:="(*.xls), *.xls") If g ...続きを読む
失礼しました。もう少し説明を・・・保存をキー記録したら
ActiveWorkbook.SaveAsFilename:="ファイル名"------
ができませんか。これを
Dim getFileName
getFileName = Application.GetSaveAsFilename(fileFilter:="(*.xls), *.xls")
If getFileName <> False Then
ActiveWorkbook.SaveAs Filename:=getFileName
End If
とします。GetSaveAsFilenameでダイアログが表示されて入力することになります。終わったら保存ボタンを押しますがまだ保存はされません。If以下の行でキャンセルでなかったら保存されることになります。
また、保存ファイル名を例えばA1セルに入力しておき
ActiveWorkbook.SaveAs Filename:=Range("A1")でもいいですが、フルパス(保存したいドライブやフォルダも)を入れておく必要があるでしょう。
Ifの次の行をRange("A1")=getFileName に変えて、壊れてもいいテスト用のシートで研究して下さい。
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ