- ベストアンサー
エクセルで保存時のファイル名
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
エクセルVBAを使わないと無理だと思います。 ActiveWorkbook.SaveAs Filename:= _ "c:\" & Range("a1").Value & Range("a2").Value & ".csv", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ボタンを作成して、上記のマクロを貼り付けてボタンを押すとＣドライブに求めているファイルができると思います。
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17068)
＃２です。すみません間違いました。 arg2:=6に訂正。 ａｒｇ２の６は「カンマ区切り」指定のようです。
- imogasi
- ベストアンサー率27% (4737/17068)
もうできたようだけど、かっこよく 標準モジュールに Sub test01() myFileA = Range("A1") & Range("A2") Application.Dialogs(xlDialogSaveAs).Show arg1:=myFileA, arg2:=7 End Sub を貼り付け、 Ａ１に実績表 Ａ２に１０月分 と入っているとして 実行して、「名前をつけて保存」のダイアロウグの「ファイル名」は 「実績表１０月分」と出ました。別フォルダ保存でＰＡＴＨが要るようならば、前につけてください。ａｒｇ２の7は「カンマ区切り」指定のようです。
お礼
回答ありがとうございました。 いろいろな方法がありますね、私ももう少しスキルがあればとは 思うのですが、「おじさん(47歳)」ですのでなかなか・・・。
関連するQ&A
- 【Excel】Excelで作ったファイルをCSVで保存するには？
超初心者な質問ですみません。（>_<） Excelで作成したファイルをCSVで保存したいんです。 (1)Excelファイルを開く。 (2)「名前をつけて保存」を選択し、ファイル名のお尻にYYYYMMDDをつけ（Product_20050901.csv）、「ファイルの種類」を「CSV（カンマ区切り）」にして保存する。 (3)指定フォルダにCSVファイルが作成される。 (4)出来上がったCSVファイルを開こうとすると、「SYLK：ファイル形式が正しくありません」という警告が出てファイルが開かない。 という現象が起きてしまいます。 何がいけなかったんでしょう？ どうしたらCSVで保存できますか？教えてください！
- ベストアンサー
- Windows系OS
- Excel CSVファイル セル名を名前として保存
いつもありがとうございます。エクセル２００３XPです。 毎回USBメモリーに上書きされてくる、同名のCSVファイルを別エクセルファイルに読み込む作業をしております。 その作業は外部データの読み込みを記憶マクロとして問題ないのですが、エクセルに読み込んだCSVファイルは、かぶらないようにそのつど、Kill を使い削除しております。 ただ完全に削除なので対策として、 読み込んだCSVファイルの１行目のセル名をファイル名として名前を変えて保存、 PCの"C:\Documents and Settings\元データ に毎回CSVもしくは、エクセルファイルに名前を変更して保存する処理をボタンひとつで出来ないか、考えております。 ネットで色々と検索をしておりますが、勉強不足です。 参考でサンプルマクロは見つけましたが、どのように変更すれば良いか分かりません。ご享受いただければ助かります。 CSVファイル名 ： log001.csv(毎回、USB) 保存したいファイル名 ： CSVファイルを開いた時のA１のセル名（日付です） 保存場所 ： PCのマイドキュメントの元データファイル 保存したいファイル形式 ： CSVもしくはExcelファイル Sub THSFILE_SAVE() Dim myFname0 As String Dim myFname As String On Error GoTo ERRH '現在のファイル名取得 myFname0 = ThisWorkbook.Name '新しいファイル名をセルA1の値とする myFname = Sheets(1).Range("A1").Value '同じ階層に保存 ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & myFname If myFname0 <> myFname & ".xls" Then '前の名前のファイルを削除する場合は下の一行を有効にしてください 'Kill ThisWorkbook.Path & "\" & myFname0 End If Exit Sub ERRH: End Sub この処理はCSVファイルの読み込み先のエクセルファイルから、行いたいと考えております。 よろしくお願致します。
- 締切済み
- オフィス系ソフト
- エクセル保存時に自動で日付
お世話になります。 エクセル２００３で保存するときに、 ファイル名の頭に、あるセルの日付を毎回打たなくても自動でつけることってできますか？ マクロでもかまいませんが。 たとえばA1に061212と入っていたら、 そのブックを保存するときに、061212 業務日報って自動で保存時の名前に出るように なるでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルで、ファイル内に入力した日付を、保存時のファイル名に反映したい
エクセルで、ファイル内に入力した日付を、保存時のファイル名に反映したい。 お世話になります。請求書の作成・保存を効率よくしたいと考えています。 例：作ったファイルの、ある特定のセル（日付を入力）で平成22年6月と表示された状態で名前をつけて保存をクリックすると、ファイル名の欄に自動的に2206・・と反映され、なおかつ、自分の言葉で現場名などを入力して2206グーマンション・・という風にして保存したいです。もっというと、保存先のフォルダも自動的に2206フォルダとかに入るようにできないでしょうか？？ 詳しい方、教えていただけるとありがたいです・・！お願いします
- ベストアンサー
- オフィス系ソフト
- 今開いているエクセルのファイル名をセルに取り込みたい
日付（yymmdd.txt)の付いた名前のテキストファイルを 自動的にエクセルにCSVで取り込む様に、マクロを組みました。なので、このファイル名に日付が付いているので、この日付をどうにかしてエクセルに取り込みたいのですが、方法をご存知無いですか？ TXTとエクセルは同じフォルダに入れて管理する予定なので、エクセルファイルの居るフォルダ内のファイル名を取り込むのでも構いません。 どなたか良い案ありませんか？ よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- ファイル名を「任意のセル内容＋指定した語句」にしたい
エクセルのファイル名を 「ある決まったセルに入力された文字」＋「こちらで指定した語句」に出来ないかと思っています。 例）セルA1にある文字「100200-01」、指定した語句「注文書」 結果「100200-01注文書」というファイル名がつく。 また、これを、保存先を指定しなく、それぞれ操作者が指定した保存先に保存することは可能でしょうか？ 保存場所を任意で指定できないのであれば、 ファイルを保存する作業はしなくて、ファイル名だけつける処理のみでもよいです。「名前をつけて保存」のWINDOWが開いて、ファイル名欄にこちらの指定したファイル名が入った状態になるまでを自動化するというのでもいいです。 以上よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルでセル値をファイル名にして保存しようと思っています。
エクセルでセル値をファイル名にして保存しようと思っています。 エクセル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
- EXCEL VBAでカンマ区切りCSVファイルに変換する方法
EXCELで作成したシートをVBAでカンマ区切りCSVファイルに変換する方法を教えてください 下記のプログラムではXLSファイルで保存されますが、カンマ区切りCSVにする方法が分かりませんでした。 '保存先パス名 NetPath = "V:\AAAA\" ' セルA1 には、ファイル名記入 BkName = ThisWorkbook.Sheets("Sheet1").Range("A1").Text & ".XLS" 補足：マクロを実行した時に自動でネットワークドライブ(V:\AAAA)へ保存、ファイル名はSheet1のセルA1の文字をファイル名として 保存するようにしたいです。 宜しくお願い致します。
- 締切済み
- Visual Basic
- エクセルのファイルを、A2セルに入っている日付をファイル名として、保存したい。
エクセルのＶＢＡでファイルに名前を付けて、指定場所に保存したいのですが、過去の質問を読んでもよく分からなかったので教えてください。 Ａ２セルに、2007/07/26 という日付が入っています。 この日付をファイル名として保存したいのですが、日付の形式は20070726とか、070726にしたいです。 ファイルの保存場所パスは、例えば、 S:\AAA\BBB\CCC\DDD というフォルダの中です。 ActiveWorkbook.SaveAs のあとにどのように続ければよいのでしょうか？ 丸投げで申し訳ありませんがよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルでマクロを使ってCSV保存時のファイル名
初めてエクセルでマクロ(マクロの記録と言うのを使って)をトライしている初心者です。自分なりに色々調べて見ましたが、イマイチ分からないので以下2つ教えて頂けないでしょうか？ 他のアプリに取込む為、通常使っているエクセルのデータをCSV形式で保存するまでをマクロで作成しマクロボタンまでを作ることは出来ました。それを使いたいと言う同僚が何人かいて、その人にエクセルを渡す場合についてです。 (1)CSV保存するファイル名を、各人好みの元々のエクセルのファイル名にしたい。 (2)保存する場所を、同僚各自のデスクトップにしたい。または各自に指定して保存させたい。 のですが、私が記録したマクロの保存該当部分は以下と思いますが、自分用なので、自分のPCの名前(以下、XXXX部分)になっていて、かつ自分が指定した毎回同じファイル名(以下、AAAA部分)になっているのが問題で、同僚のPCではマクロが実行できませんでした。 この、XXXXとAAAAやその前後の言葉をマクロの修正(VBAで)で書き換えればいいのでしょうか？その場合どのようにすればいいか教えてください。 ChDir "C:\Users\XXXX\Desktop" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\XXXX\Desktop\AAAA.csv", FileFormat:=xlCSV, _ CreateBackup:=False End Sub 長くなりましたが、どうぞ宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
お礼
早々のご回答ありがとうございました。 一部手直し（こちらの勝手な部分）をして無事解決できました。