- ベストアンサー
【Excel】セルの内容をファイル名として保存
こんにちは A1セルに 「9月13日」と表示しています。 このセルの値を用いて、 「報告書9月13日」というファイル名で保存したいのですが、 良い方法はないでしょうか。
- hee1
- お礼率32% (137/422)
- Excel（エクセル）
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
名前を付けて保存ダイアログにアクティブセルの値を表示するマクロ Sub DispSaveAsDlg_ActiveCellValue() Application.Dialogs(xlDialogSaveAs).Show Arg1:=ActiveCell.Value End Sub excelのバージョンはかかれて質問するのが良いと思います。 たとえばexcel２００７以降はマクロがある場合は マクロ有効ブックで保存しなければならないとかありますからね。 ＊ご質問と少し違うかもしれませんが回答してみました。
その他の回答 (1)
- Cupper-2
- ベストアンサー率29% (1342/4565)
マクロ・・・。
関連するQ&A
- 日付を入力したセルをファイル名にして保存するには
こんにちは。ＶＢＡ 初心者です。 あるセルに日付を入力しています。 そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。 そしてこのファイルをマクロで名前をつけて保存するとき、上記のセル（の値）をファイル名したいのですが、2001\3\14と認識され、エラーが出ます。 セルに日付を入力する時に、出来るだけかな入力はせず、日付をファイル名にして保存するにはどういう方法があるでしょうか。 わかりにくい説明で申し訳ありません。ウィンドウズＸＰ・エクセル2003です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数ファイルの同じ位置のセル内容を、それぞれファイル名・シート名にして保存したい
VBA初心者ですが、いろいろなＱ＆Ａを検索して、やりたいことの解決方法を模索しているのですが、私の疑問にドンピシャの回答が見つからず悩んでいます。 目的は、あるフォルダ内の、複数のランダムなファイル名のエクセルファイルについて、それぞれのファイルを開き、アクティブシートのＡ１セルの入力内容に基づき、そのシートの名前を変更し、ファイル名も変更して保存するという作業です。（例えば、Ａ１に「山田」と入っていたら、シート名も「山田」にして、「山田.xls」で保存する。） マクロの自動作成で、例えば「Ａ」というファイルは開いてシート名を変え、ファイル名を付けて保存するくらいのことはできるのですが、ファイル名がランダムに代わったり、ファイル数が複数になるとできません。 このようなマクロを作ることは可能なのでしょうか？。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルでセル値をファイル名にして保存しようと思っています。
エクセルでセル値をファイル名にして保存しようと思っています。 エクセル2003では以下の方法でセル値を取得して保存しています。 'Cell値を取得 strName2 = Sheets("#######").Range("A1").Value strName3 = Sheets("*******").Range("B2").Value 'strName2の値が空の場合、現在のブック名を代入 If strName2 = "" Then strName = ThisWorkbook.Name 'セル値の結合 sName = strName3 + strName2 '名前を付けて保存] ダイアログ ボックスを表示 fName = Application.GetSaveAsFilename(InitialFileName:=sName, fileFilter:="Excel(*.xls), *.xls") 'ファイル名を取得したら保存 If fName <> False Then ActiveWorkbook.SaveAs fName 同様の操作を2007以降で「マクロを有効にして保存」を行いたいのですが、どの様にすればいいのでしょうか？ （自動保存では以下の様になる状態の事です。） ActiveWorkbook.SaveAs Filename:="#:\*******.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 2007の時の「'名前を付けて保存] ダイアログ ボックスを表示」の方法が分かりません。 共通の命令文では出来でしょうから、最終的にはエクセルのバージョンを取得して、IFで分岐させようと思っています。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 指定したセルでファイル名を保存するマクロについて
マクロ初心者です。 A1セルの文字をファイル名にして保存する方法を知りましたが、A1セルとB１セルの文字をファイル名にして保存したい場合、どのようにすれば良いか分かりません。 A1セルに企業コード、B1セルに企業名です。 ファイル名を「請求書（13579いろは株式会社様）」としたいのです。 実際のマクロを一部抜粋しますが、下記の場合はファイル名は 「請求書（13579様）.xls」となります。 Dim WS As Worksheet Dim fname As String fname = "C:\保存先\" & ("請求書(") & WS.Range("a1").Value & ("様)") & ".xls" どなたか教えて下さい。 どうぞよろしくお願い致します。
- ベストアンサー
- Visual Basic
- セルの値をファイル名として習得したい
Ｅｘｃｅｌ2000でセルの値をファイル名として習得したい Excel2000でVBA SaveAsメッソドを使用しファイルを保存しようと考えております。 この際ファイル名をセルの値より取りたいと考えております。 どのようにすればよいかお教えください。 セルの値は関数CONCATENATEを使用しいくつかの文字を結合したものです。
- ベストアンサー
- オフィス系ソフト
- エクセルで保存時のファイル名
エクセルでファイルを書き込む（「ファイル」－「名前を付けて保存」） 時に、セル内にあるテキストをファイル名として自動的に書き込み時に 指定する事はできるでしょうか。 例えば Ａ１セルに"名古屋"、Ａ２セルに"10月"と入っている時に 「名前を付けて保存」で、ファイル名＝名古屋10月.csv （ファイルの種類はＣＳＶ）としたいのですが。 ご教授、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セルの値を使ってファイルを保存
１．現在以下の内容で"C8"セルの値を取得してファイルを保存しています。 Sub ファイル保存() C = Range("C8").Value ActiveWorkbook.SaveAs Filename:="C:\Users\moto\Desktop" & C & ".xls" End Sub ２．ファイル名保存時に"H1"の日付もプラスしたいです。 現在は"H1"セルには"2008/11/17"と記入されてますがこれを"20081117"と変更し、"20081117_A見積書"というファイル名で保存する。("C8"=A見積書）
- 締切済み
- オフィス系ソフト
- [Excel] ファイル名を変数指定して保存するマクロ
Excelで、セルA1の値の名前でファイルを保存したいのですが、マクロがうまくかけません。 ご存知の方、教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 【Excel】特定セルの内容をテキストファイルに書き出したい
こんにちは セルA1に =A2&A3&A4 A2からA4までの文字を繋げて表示しています。 このA1に表示されている内容を テキストファイル(例：abc.txt)に 簡単に保存できるマクロを教えて下さい。 Excel2003 です。
- ベストアンサー
- オフィス系ソフト
- エクセル セル内容をファイル名に
はじめまして。 今現在エクセルにていくつかのセル内容を結合しています。（ファイル名用として） その中には日付をTEXT（A1,yy.mm.dd）としSUBSTITUTE(A2,"/",".")でスラッシュをピリオドに 変換してるセルもあります。 ボタンを作り押したときにそのセルを読み込み、ファイル名にしているのですが 読み込まれた内容にダブルコーテーションがついてしまいます。 「”ファイル名”」の様になってしまい、そのまま保存を押すと .xlsが付かず困っております。 ちなみにボタンに入れてあるマクロは Private Sub CommandButton1_Click() Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("AK14").Value End Sub です。 どなたかご教授頂けませんでしょうか。。。 宜しくお願い致します。
- 締切済み
- Visual Basic
お礼
お礼が遅くなりまして申し訳ございません。 上手く行きました。 バージョンの件、ありがとうございます。 今後、気をつけます。 ありがとうございました。