Access VBA Dynamic Excel Import

Question

I'm trying to dynamically import an Excel Spreadsheet into Access. The problem is, i need to import a specific sheet (this part sorted out), but I'm having problems importing a sheet whose name changes month to month.

Code example:

DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, "MonthSales", FileName, 1, "Sales_Month!"

On the "Sales_Month!" is where i need it to be dynamic. I can import it directly if the sheet has always the same name. So my question is, can i import it with some sort of wildcard?

For example: "Sales_*!"

Note: This Excel Workbook has several worksheets.

Answer 1

This should be simple a solution, looking for Excel Sheet names in a for cycle with Left operator:

Dim xls As New Excel.Application, sht As String, Wkb As Workbook, Wksh As Worksheet
Set Wkb = xls.Workbooks.Open(FileName)

For Each Wksh In Wkb.Worksheets
  if left(Wksh.Name, 6) = "Sales_" then
      DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, "MonthSales", FileName, 1, Wksh.Name
      Exit For
  end if
Next Wksh

Wkb.Close
xls.Quit
Set Wkb = Nothing
Set xls = Nothing
Exit Sub