Importer une feuille de calcul Excel dans Access à l'aide de VBA

J'essaie d'importer une feuille de calcul Excel dans Access à l'aide d'un simple code VBA. Le problème que j'ai rencontré est il y a 2 feuilles de calcul dans le fichier Excel, et j'ai besoin de la 2ème feuille de calcul à importer. Est-il possible de spécifier le besoin de la feuille de calcul dans le code 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

Dois-je mettre StrFileName à 'StrFileName'&'.Worksheetname' ? C'est que le bon schéma de nommage pour qui?

quelque chose comme:

StrFileName = StrFileName & ".WorkSheetName"
InformationsquelleAutor Randal | 2011-09-13
  1. 12

    Passer le nom de la feuille avec le paramètre de Plage de la DoCmd.Méthode Transférerfeuillecalcul. Voir l'encadré intitulé "les Feuilles de calcul dans la Gamme de paramètres" en bas de cette page.

    Ce code importations à partir d'une feuille nommée "temp" dans un classeur nommé "temp.xls" et stocke les données dans une table nommée "tblFromExcel".

    Dim strXls As String
strXls = CurrentProject.Path & Chr(92) & "temp.xls"
DoCmd.TransferSpreadsheet acImport, , "tblFromExcel", _
    strXls, True, "temp!"
    • quelque chose d'aussi simple que d'un point d'exclamation peut faire toute la différence. Thanxs.
    • Vous devez noter que, si la table cible existe déjà dans la base de données Access et a la même structure, les données importées sera ajouté à la fin.
    • Son travail m ayant la même structure de la table comme dans excel, mais à chaque fois son créé une nouvelle table
    InformationsquelleAutor HansUp