10/05/29 21:04:04
【1 OSの種類 .】 WindowsXP SP4
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】Dim hogehoge As Worksheet
【やりたいこと】
・他のブックのシートを書き出したい。
セルA2に任意のブック「piyo.xls」のアドレス「c:\hoge\piyo.xls」を入力しておき、 ブック「piyo.xls」のシート名をセルA4以下に書き出したい。
【やってみたこと】
↓これだと、このマクロのあるブックに含まれるシートがセルA4以下に書き出されてしまう。
Sub MCR_FindSheetName()
Dim tempSheet As Worksheet
Range("A4").Select
For Each tempSheet In Worksheets
With ActiveCell
.Value = tempSheet.Name
.Offset(1).Select
End With
Next
End Sub