References Excel Sheets Named As Numbers

[CPGDeveloper]

I'm building an Access application that needs to populate an Excel workbook. The sheets of the workbooks are named numerically as the days of the month ("1", "2", "3" through "31").

I'm incrementally increasing a variable through a loop to identify each sheet, but am having trouble referencing the Excel Sheet, for example:

wkbk.Sheets("1") gives me the sheet entitled "1"
wkbk.Sheets(1) gives me the left-most sheet in the workbook.

If x = 1, How do I reference wkbk.Sheets("1")?

Thank You in Advance for your help and time.

 

[James006]

Hi,

You could test

Sheets("" & x & "")

HTH

 

[xenou]

Sheets can be referenced using index or name, depending on whether you provide a number or string value.

Sub Foo()
Dim x As Long
x = 1
Debug.Print Sheets(x).Name
Debug.Print Sheets(CStr(x)).Name
End Sub