• ベストアンサー

マクロで、セル内の文字をファイル名にしたい

Sub Auto_Close() ' ' CSV作成 Macro ' マクロ記録日 : 2006/7/13 ユーザー名 : 00849 ' ' Fname = Range("I15") ChDir "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証" ActiveWorkbook.SaveAs Filename:= _ "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\Fname", _ FileFormat:=xlCSV, CreateBackup:=False ThisWorkbook.Close End Sub 　上記のように作ると、ファイル名が「Fname.csv」となってしまいます。 　これを、"I15"に打ち込んだ文字をファイル名で表示させるには、どうしたらよいでしょうか？ 　ほぼ初心者です。 　よろしくおねがいします。

質問者が選んだベストアンサー

  • ベストアンサー
  • goomania
  • ベストアンサー率56% (84/149)
回答No.2

ご質問者さんがお書きになったマクロの一部を修正するだげです。 >"D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\Fname" を "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\" & Fname に書き直してみてください。

hayase0849
質問者

お礼

できました！！ ＆が足りなかったんですね。 ありがとうございます！！

その他の回答 (1)

  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.1

"D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\Fname", を "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\" & Range("I15") とすれば良いのでは？　ただしI15の内容は先頭に￥をつけないようにしてください

hayase0849
質問者

お礼

　できました！！ 　はじめは、Rangeを””の中に入れていてエラーがでていました。 　もっとマクロを勉強します。 　ありがとうございました！

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • メッセージボックス内で入力した文字をファイル名にしたい

    　Sub Auto_Close() ' ' CSV作成 Macro ' マクロ記録日 : 2006/7/13 ユーザー名 : 00849 ' ' Fname = Range("H17") ChDir "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証" ActiveWorkbook.SaveAs Filename:= _ "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\" & Fname, _ FileFormat:=xlCSV, CreateBackup:=False ThisWorkbook.Close End Sub 　このプログラムだと、"H17"に入力した文字をファイル名にします。 　そうではなく、メッセージボックスを表示させ、そこに文字などを入れ、それをファイル名とするにはどのように作成したらよいのでしょうか？ 　具体的には、メッセージボックス内は「ファイル名を入力してください。」とし、その下に入力欄を作るというようにしたいです。

  • ExcelのマクロでCSVファイルを開くと遅いのですが

    ExcelのマクロでCSVファイルを開くと遅いのですが速く開く方法はありますか？ 普通にファイル－開くに比べてかなり遅いです。 下記のVBAで記述してあります。 Workbooks.Open Filename:=fname ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Close savechanges:=False

  • Ｅｘｃｅｌのマクロで、セル内の文字をファイル名にしたい

    ”プロト.xls”というＥｘｃｅｌファイルの中に、以下の動作をするマクロを作成したいのです。 (1)”C:\顧客\顧客納期連絡.xls”というＥｘｃｅｌファイルを開き、 　それを”C:\顧客\A.csv”という名前のｃｓｖファイルにする。 (2)”C:\顧客\A.csv”を”xxxxxxxxxxxxxxxxxx”（※注１）という名前にしてコピーする。 ※注１：”xxxxxxxxxxxxxxxxxx”の部分は、”プロト.xls”ファイルのＳｈｅｅｔ”マスター”のセルＤ９から取得させる。 そのセルは、　C:\顧客\ABCDEF0215.csv　と記述しています。 (3)コピー後、”C:\顧客\A.csv”を削除する。 ------------------------------------------------------------------- Sub 顧客納期連絡() ' ' 顧客納期連絡 Macro ' マクロ記録日 : 2010/2/15 ユーザー名 : xxxxxxx ' ' ChDir "C:\顧客" Workbooks.Open Filename:="C:\顧客\顧客納期連絡.xls" ActiveWorkbook.SaveAs Filename:="C:\顧客\A.csv", FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Save ActiveWindow.Close ActiveWorkbook.Save Dim fname1 As String Dim fname2 As String fname1 = "C:\顧客\A.csv" fname2 = Workbooks("プロト.xls"), Sheets("マスター"), Cells("D9") FileCopy fname1, fname2 Kill "C:\顧客\A.csv" End Sub ------------------------------------------------------------------- 上記のマクロを作成したのですが、ＦｉｌｅＣｏｐｙの行で、構文エラーか型に一致していない、 というエラーになりマクロ再生が停止します。 セルの内容をファイル名にしたいのですが、何か良い方法はございませんでしょうか？ 私は超初心者なので、何卒宜しくお願い致します。

  • エクセルと同じファイル名でｃｓｖを作成するマクロ

    エクセルからＣＳＶファイルをYYMMDD付でマクロを使って 作ろうとしていますが拡張子の「.xls」がどうしても残ってしまいます。 例えば、「test.xls」が「test.xls070326.csv」のように。 これを「test070326.csv」とするにはどうしたらよいでしょう。 今のコードはつぎのようにしています。 Sub test1() Dim flname As Variant Dim wb As Workbook flname = ActiveWorkbook.Name + CStr(Format(Date, "yymmdd")) ActiveSheet.Copy ActiveSheet.SaveAs Filename:=flname, _ FileFormat:=xlCSV ActiveWindow.Close savechanges:=False ActiveWorkbook.Close End Sub これでもＣＳＶとしては使えるのですが、気持ちがすっきりしません。 どなたか正解をお願いします。

  • ファイル名に変数を割り当てたい

    EXCEL VBAで ファイル名に変数を割り当てて保存したいのですが、 うまく行きません。どこがおかしいのか教えてください。 C\サンプル\見込200704　を変数で割り当てて保存したい。 バージョン301 = "200704" 四月 = "C:\サンプル\見込" & "バージョン301" Range("A1").Select ActiveWorkbook.SaveAs Filename:=四月, _ FileFormat:=xlCSV, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close False

  • CSV形式で名前を付けて保存　マクロ

    教えてください。 エクセルでシート2を 　「名前を付けて保存」ダイアログを表示させ、 　「保存する場所」をデスクトップにして、 　「ファイル名」をシート１のセルＡ７に設定し、 　「ファイルの種類」をCSV形式に設定と したいので色々と調べそれぞれの構文は分かったのですが、 それらを組み合わせるとエラーがでて上手くできません。 例えば Sub サンプル() Application.Dialogs(xlDialogSaveAs).Show FileFormat:=xlCSV End Sub 上記のように入力すると FileFormat:=xlCSVの箇所でエラーが発生します。 仕事で使えればかなり楽になるので初心者なりに頑張っていますが、 行き詰っており、どなたか教えて頂けないでしょうか？ お願いします。

  • エクセル　マクロの記述（フォルダーの移動、削除）

    現在開いているエクセルのファイルにマクロを記述し、 １　「処理済」というフォルダーに、開いているエクセルファイルを移動して、同じ名前でエクセルを保存する。 ２　「ＣＳＶ」というフォルダーに、開いているエクセルファイルをＣＳＶファイルに変換して名前を「処理.csv」とし保存する。 ３　現在開いているエクセルファイルは削除する。 以上の三つの処理をさせようと、以下のようにしましたが、１，２の処理は出来ましたが、３の開いているエクセルファイルが残ってしまいます。 以上三つの処理が一度に出来るマクロの記述を教えて下さい。 よろしくお願いします Sub マクロ() ActiveWorkbook.SaveAs Filename:="C:\処理済\" & ActiveWorkbook.Name ChDir"C:\CSV" ActiveWorkbook.SaveAs Filename:= "C:\ＣＳＶ\処理.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = False If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close End If Application.DisplayAlerts = False End Sub

  • エクセルＶＢＡでファイルをＣＳＶ保存の仕方

    エクセルのシートをＣＳＶファイルに保存するため以下のようなマクロを書きました。 Sub Macro1() Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\デスクトップ\Book1.csv", FileFormat _ :=xlCSV, CreateBackup:=False ActiveWindow.Close ThisWorkbook.Activate End Sub 一応これで保存できるのですが、自動記録でやったためファイルの名前が出てしまいました。 この部分をわたし以外の誰でも任意の名前をつけ、任意のフォルダーに保存できるように書き換えたいのです。 どのように記述すれば良いかお教えください。お願いします。

  • ＥＸＣＥＬのマクロで保存するときのメッセージ

    ＣＳＶファイルを上書き更新後、ファイルを閉じる作業をしたいのですが、ＥＸＣＥＬ２０００のマクロでその作業を行うと、次のメッセージがでて、次の手作業の要求がきます。 (1)ファイルの上書きするとき 　この場所にＡＡＡというファイルが既にあります。置き換えますか・・・はいのクリック (2)ファイルを閉じるとき 　ＡＡＡへのファイルの変更を保存しますか・・・いいえをクリック この(1)(2)の作業も、マクロに書きたいのですが、どうすればよいのでしょうか 現在のマクロは ActiveWorkbook.SaveAs Filename:= _ "C:\AAA.csv" _ , FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close よろしくお願いします

  • エクセルからＣＳＶファイルに出力したい？

    エクセルのシートからマクロを使ってＣＳＶファイルに出力したいです。 そこで調べたのですが、 http://oshiete1.goo.ne.jp/kotaeru.php3?q=2376607 こちらの質問で以下のようなコードが参考になりました。 Sub Macro1() Dim myBook As String myBook = ActiveWorkbook.FullName myBook = Left(myBook, Len(myBook) - 3) & "CSV" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=myBook, FileFormat:=xlCSV ActiveWindow.Close False End Sub このコードではＣＳＶのファイル名がエクセルシートのファイル名になってしまいます。 今回の質問ですが、ＣＳＶファイルを違う名前で保存するにはどのようにすればいいのでしょうか？ （CSVファイルの名前は常にabc.csvで保存するものとします）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する