VBAでエクセルをシート名を気にせず読み込むには？

質問

ACCESS2000のVBAでエクセルを読んでいるプログラムを作成しています。
今までは、その受け取っているエクセルのシート名が固定だったのですが、次回からシート名が可変になります。そこで相談なのですが、シート名が可変でも読み込む方法はありますか。ちなみにシートは１つです。（インポート以外でお願いします。）
現在のコーディング例　一部抜粋
Dim wb As Workbook 'ワークブック
Dim ws As Worksheet 'シート
'マスタのExcelファイルを開く
Set wb = Workbooks.Open("test")
Set ws = wb.Worksheets("SHEET1") <=ここが可変になります。
i = 0
Do Until IsEmpty(ws.Cells(StartRow + i, StoreNoCol))
nohindate = ws.Cells(StartRow + i, 2) '日
i = i + 1
Loop
宜しくお願いします。

回答No.1

saintandre · ベストアンサー

Worksheetsコレクションはワークシート名だけではなく1から始まるインデックス番号でも指定が可能です。

Set ws = wb.Worksheets("SHEET1") <=ここが可変になります。
↓
Set ws = wb.Worksheets(1)

※ヘルプより

>単体の Worksheet オブジェクトを取得するには、Worksheets(index) プロパティを
>使用します。引数 index には、ワークシートのインデックス番号または名前を指定します。
>次の使用例は、作業中のブックのワークシート 1 を非表示にします。
>
>Worksheets(1).Visible = False

お礼

インデックス番号でも指定が可能
ありがとうございます。
助かりました。