VB6からExcellのSheetNo.を設定する方法

質問

ＶＢ６でＥｃｅｌｌをデータベースとして使用します。
Ｅｘｃｅｌｌのファイルを開きＳｈｅｅｔ１のセルデータを読み込むことは出来ますが、Ｓｈｅｅｔ２以降のシートを指定する方法が判りません。教えてください。Ｅｃｅｌｌファイルは下記の手順でオープンしてます。

Dim fnm As String
Dim exl As Object

gStrExcelDir = CurDir

fnm = gStrExcelDir + "ファイル名"

Set exl = CreateObject("Excel.Application")
exl.Application.Workbooks.Open FileName:=fnm

ここまででＳｈｅｅｔ１のセルデータの読み込みはできます。
次に新しいＳｈｅｅｔＮｏ．を設定する方法が判りません。
よろしく御願い致します。

回答No.2

samtomsan · ベストアンサー

すみません、VB6でしたね。
With句を使わず

strSheetNo = exl.Worksheets(2).Cells(c, l)

あるいは

strSheetNo = exl.Worksheets("Over_C").Cells(c, l)

でよいかと思います。

お礼

ありがとうございました。

シートNo.の指定は数値でも文字でもＯＫでした。

初心者なのでこんな事でもすぐつまずいてしまいます。
本当に助かりました。

回答No.1

samtomsan

例えば

With Worksheets(2)
・・・・・
End With

ですね。

補足

ありがとうございました。
With Worksheets(2)
With Worksheets("Over_C") 'Over_C：Sheet2の変更後の名称
の２通り試しましたが
strSheetNo = exl.Cells(c, l)
でセルを読み出すとSheet1の内容を読み出します。