【やりたい事】
ファイル名とシート名を取得したい。
ファイル名は、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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
エクセルでの作業計算方法について
Excel(エクセル)
-
-
4
Excelで、決まった行を繰り返しコピーする
Excel(エクセル)
-
5
【マクロ】フォルダからエクセルファイルの名前を取出すためには
Excel(エクセル)
-
6
エクセルで不等号記号(≠)が上にずれて表示される
Excel(エクセル)
-
7
VBA Private Sub Worksheet_Changeで
Excel(エクセル)
-
8
エクセルの条件付き書式について教えてください
Excel(エクセル)
-
9
エクセル 価格表から単価を呼び出す方法
Excel(エクセル)
-
10
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
Excel(エクセル)
-
11
文字列になっている時間をVBAで処理できません。
Excel(エクセル)
-
12
行数が不規則な一週間ごとの合計値の計算をVBAで実行したいです。
Excel(エクセル)
-
13
エクセルの計算
Excel(エクセル)
-
14
エクセルの関数について教えてください。(データベース、検索)
Excel(エクセル)
-
15
EXCELのシート上に存在する一つの表をその表全体だけをドラッグする場合で、その表が横にも縦にも膨大
Excel(エクセル)
-
16
【マクロ】エクセルにかいてある、フォルダの名前をマクロで開きたい
Excel(エクセル)
-
17
エクセルで 例えば 伊藤と名前のついたファイルを検索する方法を教えてください
Excel(エクセル)
-
18
【マクロ】ファイル名の変更について
Excel(エクセル)
-
19
【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記
Excel(エクセル)
-
20
excel で二つのどちらかを選ぶ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
ファイルを並び替えるときの「...
-
【マクロ】シート名を取得する...
-
VLOOKUP関数とネットワークに置...
-
Teraマクロで日付ディレクトリ...
-
=CELL("filename")で取得したフ...
-
「やよいの青色申告」のファイ...
-
Excelでリンクを使用すると#N/A...
-
エクセルのファイル間のリンク...
-
ハイパーリンクで前回値をひき...
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
エラーになってないのにVBA...
-
エクセルVBAでOptionButtonのオ...
-
押したボタンの位置取得(共通の...
-
EXCELのセルへ、デジタル時計を...
-
【Excel VBA】エラー番号400
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
ファイルを並び替えるときの「...
-
VLOOKUP関数とネットワークに置...
-
エクセル 一括リンクの解除
-
excel INDIRECT 他ファイル参照
-
エクセルファイルから指定した...
-
エディタで効率的な切り出し方法
-
PDF ファイルが開けません。
-
EXCELのマクロを使って、テキス...
-
ハイパーリンクで前回値をひき...
-
エクセルからスキャナVBAで連動...
-
EXCEL VBA ー 同一フォルダ内の...
-
CSVで文字化けしてしまうのを直...
-
エクセルマクロでファイルオー...
-
ミュージックファイルのファイ...
-
エクセルVBAでファイルを連...
-
エクセルVBA+ADOで特定のCSVフ...
おすすめ情報