- ベストアンサー
EXCELでファイル名をセルに入れるには？
mishidaの回答
以下のVBA関数を作ってみました。 Function f_name() f_name = ThisWorkbook.Name End Function セルに =f_name() と入力すると、ファイル名が表示されます。 念のためVBA関数の入力方法ですが、Excel2000では、ツール-マクロ-Visual Basic Editorを選び、開いたVisual Basic Editorの画面で挿入-標準モジュールを選びます。 表示された標準モジュール（たぶんModule1）に、上記のVBAを入力し、保存します。 すると、自ブックのファイル名を返す関数「f_name()」が、workseet上で使用できるようになります。 VBAの詳細につきましては、書籍などをご覧になるといいでしょう。
関連するQ&A
- エクセルのセルでシート名を指定
ヘルプで調べてみたのですが、わからなかったので質問します。 セルにシートの名前を式で挿入したいのですが、そのような方法はあるのでしょうか？ 例えば、シート名が「従業員ID」だった時に、あるセルで、 ＝このシートのシート名 というような式を挿入すれば、自動的に「従業員ID」というシート名が挿入されるような式のことです。 いまいち質問の仕方が不明瞭で申し訳ありません。 私が使っているのは、 OS：Win2000、エクセル2000です。
- ベストアンサー
- オフィス系ソフト
- エクセルのセル参照でファイル名の変更について
今、エクセルで別ファイルからセル参照でデータを持ってきているものがあるのですが、 データの参照先のファイル名を、どうしても変更する必要が出てきました。 データ自体が月毎で集計するので、今後も参照先のファイル名は一部分ですが 変更する事になります。 セル参照の数式が入っているファイルで、置換をしようとすると、「値の更新」という表記で ファイルを選択する画面が開いてしまい、該当ファイルを選択しても、一つのセルしか 更新しません。この方法だとすごく時間がかかってしまうので、一度にファイル名を変更する 方法はないでしょうか？ いい方法がありましたら教えていただければと思います。よろしくお願いいたします。 エクセルは2010を使用しています。
- 締切済み
- その他MS Office製品
- エクセルファイルのファイル名で検索
あるフォルダからエクセルファイルに記載されているファイル複数を検索で表示させたいと思っています。（表示させたあとにファイルを開き編集します。）エクセルファイルのA列に１セルに１つファイル名が記載されています。 ファイル名は複数あります。 A1セル "aaa.doc" A2セル "bbb.doc" A3セル "ccc.doc" 何か良い方法はないでしょうか。 よろしくお願いします。
- 締切済み
- Windows 10
- エクセルの関数を使って、セルの名前をファイル名に反映させたい
エクセルの関数を使って、セルの名前をファイル名に反映させたいのですが。。できますでしょうか？？？ 大量のファイルが（だいたい同じ中身だけれど、ファイル名は個人名にしたい）あるのですが関数を使ってファイル名を作ることはできますでしょうか。 当方、マクロ VBAは ？？です。 よろしくお願いいたします。
- ベストアンサー
- フリーウェア・フリーソフト
- 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ファイルの読み込み先のエクセルファイルから、行いたいと考えております。 よろしくお願致します。
- 締切済み
- オフィス系ソフト
- 今開いているエクセルのファイル名をセルに取り込みたい
日付（yymmdd.txt)の付いた名前のテキストファイルを 自動的にエクセルにCSVで取り込む様に、マクロを組みました。なので、このファイル名に日付が付いているので、この日付をどうにかしてエクセルに取り込みたいのですが、方法をご存知無いですか？ TXTとエクセルは同じフォルダに入れて管理する予定なので、エクセルファイルの居るフォルダ内のファイル名を取り込むのでも構いません。 どなたか良い案ありませんか？ よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- エクセルで保存時のファイル名
エクセルでファイルを書き込む（「ファイル」－「名前を付けて保存」） 時に、セル内にあるテキストをファイル名として自動的に書き込み時に 指定する事はできるでしょうか。 例えば Ａ１セルに"名古屋"、Ａ２セルに"10月"と入っている時に 「名前を付けて保存」で、ファイル名＝名古屋10月.csv （ファイルの種類はＣＳＶ）としたいのですが。 ご教授、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのセルの分け方を教えて下さい
教えて下さい！ エクセルでひとつのセルの中にいくつかの項目が入ってしまい、それを項目ごとのセルに分けたいのですが、できるのでしょうか？ 例：ひとつのセルに『名前 住所 TEL 郵便番号 FAX』などと、ひとつのセルに１行で入っています。 『名前』『住所』『TEL』・・とセルを分けたいのです。 よろしくお願い致します。
- 締切済み
- SE・インフラ・Webエンジニア
- エクセルでセル値をファイル名にして保存しようと思っています。
エクセルでセル値をファイル名にして保存しようと思っています。 エクセル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
お礼
速攻ご回答ありがとうございます 一発の式があってもいいと思ってたんですが・・・ f_name().....つかわせていただきます 何より、早かったのが助かりました。 ありがとうございました。