No.2ベストアンサー
- 回答日時:
過去スレが残っていましたので紹介します。
A1セルに特定のフォルダのパスを入れておきます。
Sub Sample1()
Dim buf As String, i As Long
Dim j As Long
buf = Dir(Range("A1").Value & "\*.xls")
Do While buf <> ""
i = i + 1
Workbooks.Open Worksheets(1).Range("A1").Value & "\" & buf
ThisWorkbook.Worksheets(1).Cells(i + 1, 1).Value = buf
For j = 1 To Worksheets.Count
ThisWorkbook.Worksheets(1).Cells(i + 1, j + 1) = Sheets(j).Name
Workbooks(buf).Activate
Next
Workbooks(buf).Close SaveChanges:=False
buf = Dir()
Loop
End Sub
で試してみてください。
No.3
- 回答日時:
ANo.2で、hallo-2007さんが提示されたコードではシートに書き出しているようです。
アレンジして流用すればどうでしょうか。(そのためにはコードを解読しなければなりません。)
>エクセルのファイル名の取得は「Filesearch」を使い取得出来ました。
上記内容がお出来になる方ですから、大丈夫だと思います。
トライして、解らない、うまくいかない、ということなら、試しているコードを提示してみてください。
教えてもらったマクロを動かすことが「出来ました。」ではなく、「理解ができました。」にしてください。
偉そうなことを言って済みません。
No.1
- 回答日時:
下記でシート名(グラフシート含む)が取れます。
Sub testシート名取得()
Dim appobj As Object
Dim sht As Object
Set appobj = GetObject("C:\Exceldata\ABC.xls")
For Each sht In appobj.Sheets
MsgBox sht.Name
Next
Set appobj = Nothing
End Sub
この回答への補足
返事が遅くなりまして申し訳ありません。
ありがとうございます。
甘えてしまうようですがもう一点教えてください。
msgboxですとそれぞれOKを押さないと表示されませんが
ワークシートに書き出すにはどのようにすれば
よろしいのでしょうか?
教えていただいておいて失礼とは思いますがご教授ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
エクセルで複数のシートに画像...
-
Accessのテーブルを既存のExcel...
-
特定のシートのみ再計算させな...
-
Wordで差し込み印刷時に表示す...
-
ワークシートそのものの色を変...
-
EXCELの「シートの見出し」のフ...
-
accessへエクセルの複数のシー...
-
EXCELの図形(テキストボックス)...
-
PowerQueryで行数の指定はでき...
-
エクセルでシートを追加したと...
-
【ExcelVBA】マクロの入ったシ...
-
エクセル 非表示のシートをハ...
-
エクセルのシート連番の振り直し
-
エクセル、特定のシートにパス...
-
エクセルを開くとメニューバー...
-
SUMIF関数【複数のシート...
-
【Excel VBA】コンボボックスで...
-
指定したシート名以外を非表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
特定のシートのみ再計算させな...
-
エクセルでブック内の倍率がバ...
-
ワークシートそのものの色を変...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
特定の複数のシートに同じ処理...
-
エクセルのシー名を二段表示に...
-
Wordで差し込み印刷時に表示す...
-
エクセルで、シートの名前を変...
-
エクセルでリンク貼り付けした...
-
エクセル、特定のシートにパス...
-
accessへエクセルの複数のシー...
-
Accessのテーブルを既存のExcel...
-
【Excel VBA】データ貼り付け先...
-
EXCELの「シートの見出し」のフ...
おすすめ情報