Я пытаюсь импортировать электронную таблицу Excel в доступ, используя какой-то простой код VBA. Проблема, в которой я запускаю, есть 2 рабочих листа в файле Excel, и мне нужен 2-й рабочий лист для импортированного , Можно ли указать необходимый лист в коде VBA?
Private Sub Command0_Click()
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.Title = "Select the Excel file to import"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls", 1
.Filters.Add "All Files", "*.*", 2
If .Show = -1 Then
StrFileName = .SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "COR Daily", StrFileName, True
Else
Exit Sub
End If
End With
End Sub
Должен ли я установить StrefileName на 'Strfilename' & '. WorksheetName'
? Это правильное Схема имена для этого?
Что-то вроде:
StrFileName = StrFileName & ".WorkSheetName"