No.1ベストアンサー
- 回答日時:
以下のマクロをX.xlsの標準モジュールに作ります。
Dim セル位置 As Long
Sub Main()
セル位置 = 2
'★自ブック内のSheet1のセルをクリア(コード略)
Proc "A.xls"
Proc "B.xls"
Proc "C.xls"
End Main
Sub Proc(ByVal パス名 As String)
Dim ブック As Workbook
Dim シート As WorkSheet
Dim 名前 As String
Set ブック = Workbooks.Open(パス名) '★エラーハンドリング省略
For Each シート In ブック.WorkSheets
名前 = シート.Name
If Instr(名前, "test") > 0 Then
ThisWorkbook.Sheet1.Cells(4, セル位置) = 名前
セル位置 = セル位置 + 1
End If
Next
ブック.Close
End Sub
あとはMainを実行するだけ。
この回答へのお礼
お礼日時:2009/06/25 17:58
早速のご回答ありがとうございました。
細かい修正はありましたが、ほぼご教授頂いたとおりで希望通りの動きができました!ありがとうございました。
No.2
- 回答日時:
(1)ブック名のブックを開く。
(2)各シート名は
Sub test02()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
MsgBox sh.Name
Next
End Sub
で捕まえられる。
(3)文字列を含むは、INSTR関数で見つけられる。
エクセル関数のFindやCountifも使えそうだが、見つからなかったときの処理が難しい。
Sub test03()
x = "adfghj"
x = "yubhjk"
On Error GoTo err1
p = WorksheetFunction.Find("bbh", x)
MsgBox p
Exit Sub
On Error GoTo err1
err1:
MsgBox "含まない"
End Sub
(4)含んでいるSh.Nameをシートのセルに書き出し次の行に書き込めるよう行ポンターを+1
(5)全シートを点検終わったらブックを閉じる。
次のブックを開くに移る。
(6)ブックが有るフォルダ内にありエクセルブックで対象外がないなら、VBSでフォルダの全ファイルを捕まえる方法あり、xls以外は対象にしないことも出来る。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) マクロを教えてください 1 2022/11/28 14:52
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
VBAで別ブックのシートを指定し...
-
VBA コードを実行すると画面が...
-
別ブックをダイアログボックス...
-
【マクロ】違うフォルダにある...
-
VBS Bookを閉じるコード
-
エクセルのマクロについて教え...
-
【ExcelVBA】インデックスが有...
-
コードを直していただきたいで...
-
エクセルのマクロを使ってメー...
-
VBAで複数のブックを開かずに処...
-
【VBA】全シートの計算式を全て...
-
複数シート名とブック名が一致...
-
pythonでクラスで複数のメソッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報