【やりたい事】
ファイル名とシート名を取得したい。
ファイル名は、A1セルに記述。
シート名は、B1セルに記述。
記述すファイルは、ファイル探す.xlsm
なお、ファイル名を記述するコードは以下のとおりできています。
本コード利用でも、別コードでOKでございます。
ご存じの方、いましたら、教えて下さい
【取得したファイルとシート名】
(シート名)
Sheet1
(ファイル名)
C:\Users\2020\OneDrive\Shinji\マクロ\テストフォルダ\a.xlsx
【マクロが記録されているファイル】
ファイル探す.xlsm
※探すファイルとは別フォルダ
【ファイル名をAセルに記録するコード】
※本サイトにて、詳しい方に、教えて頂きました
Sub GetFileName()
Dim myPath As String
Dim myFile As String
myPath = "C:\Users\2020\OneDrive\マクロ\テストフォルダ"
myFile = Dir(myPath & "\*.*")
If myFile <> "" Then
Range("A1").Value = myPath & "\" & myFile
Else
MsgBox "ファイルが見つかりませんでした。"
End If
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
コメント拝見しました。
シート名を書き出すのが『B1セルから』であることを、コードを見たときに理解しやすくする、ということであれば、
以下のような書き換えではいかがでしょうか。
ThisWorkbook.ActiveSheet.Cells(1, i + 1).Value = ws.Name
↓
ThisWorkbook.ActiveSheet.Range("B1").Offset(0, i - 1).Value = ws.Name
No.1
- 回答日時:
シート数がいくつあるかわかりませんので、
存在する分をB1、C1とか気並べるようにしています。
Sub GetFullFilePathAndSheetNames()
Dim myPath As String
Dim myFile As String
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
' フォルダのパスを設定
myPath = "C:\Users\user\Documents\Aフォルダ"
' 指定されたパスのファイルを取得
myFile = Dir(myPath & "\*.*")
' ファイルが存在する場合は、A1セルにファイルのフルパスを書き込む
If myFile <> "" Then
Range("A1").Value = myPath & "\" & myFile
Else
MsgBox "ファイルが見つかりませんでした。"
Exit Sub
End If
' A1セルに書き込んだファイルを開く
Set wb = Workbooks.Open(Range("A1").Value)
' B1以降にシート名を書き込む
i = 1
For Each ws In wb.Sheets
ThisWorkbook.ActiveSheet.Cells(1, i + 1).Value = ws.Name
i = i + 1
Next ws
' ファイルを閉じる
wb.Close False
End Su
早速のお返事ありがとうございます
B1セルにも、シート名がうまく、表示されました
ちなみに、セルを Range("b1").Value のように
表示する事はできないでしょうか。
というのは、ファイル名やシート名のセルを記述する場所を
後で、変更する予定がある為です
最終的には、当該ファイル名とシート名を利用して
他のコードを動かす予定です。
また、それは質問いたします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、 7 2024/01/10 22:50
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Visual Basic(VBA) VBA 1 2024/02/03 22:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルの計算
Excel(エクセル)
-
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
-
4
エクセルでの作業計算方法について
Excel(エクセル)
-
5
Excelについて教えてください
Excel(エクセル)
-
6
エクセルの関数について教えてください。(データベース、検索)
Excel(エクセル)
-
7
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
Excel(エクセル)
-
8
Excelで、決まった行を繰り返しコピーする
Excel(エクセル)
-
9
【マクロ】フォルダからエクセルファイルの名前を取出すためには
Excel(エクセル)
-
10
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
11
Excel元に戻す方法を教えてください。
Excel(エクセル)
-
12
エクセル 価格表から単価を呼び出す方法
Excel(エクセル)
-
13
エクセルで不等号記号(≠)が上にずれて表示される
Excel(エクセル)
-
14
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
15
行数が不規則な一週間ごとの合計値の計算をVBAで実行したいです。
Excel(エクセル)
-
16
EXCELのシート上に存在する一つの表をその表全体だけをドラッグする場合で、その表が横にも縦にも膨大
Excel(エクセル)
-
17
エクセルの条件付き書式について教えてください
Excel(エクセル)
-
18
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
19
excel で二つのどちらかを選ぶ
Excel(エクセル)
-
20
エクセル 文字を増やしたい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
Excelで他のExcelファイルから...
-
エディタで効率的な切り出し方法
-
ファイルを毎回指定してCSV...
-
excelに貼り付けた数値が勝手に...
-
EXCELで複数のファイルから抽出
-
Teraマクロで日付ディレクトリ...
-
エクセル2000でのVBA作成して...
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
エクセルのマクロ機能で前のシ...
-
Excelマクロでオプションボタン...
-
ShowAllDataのエラーを回避したい
-
Excel VBA のdebug(F8キー) が...
-
【エクセル】 キーを押すと、...
-
ThisWorkbook.Pathを実行すると...
-
複数ファイルにある特定のシー...
-
iTunesでAirPlayボタンが表示さ...
-
Wordの画面を左右にスクロール...
-
コマンドボタンで「終了ボタン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
Teraマクロで日付ディレクトリ...
-
EXCELのVBAで画像を選んだ順に...
-
エディタで効率的な切り出し方法
-
excel INDIRECT 他ファイル参照
-
VLOOKUP関数とネットワークに置...
-
エクセル 一括リンクの解除
-
エクセルからスキャナVBAで連動...
-
ハイパーリンクで前回値をひき...
-
ファイルを並び替えるときの「...
-
EXCELで複数のファイルから抽出
-
EXCEL VBA ー 同一フォルダ内の...
-
EXCELファイルが開けない(-_-;)
-
CSVで文字化けしてしまうのを直...
-
Excel VBAで自動的にハイパーリ...
-
PDF ファイルが開けません。
-
エクセルファイルから指定した...
-
EXCELのマクロを使って、テキス...
-
ファイルが無いときにエラーメ...
おすすめ情報