We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim strSelectedFile As String Set fdg = Application.FileDialog(msoFileDialogFilePicker) ' fdg.InitialFileName = "c:\" With fdg .Filters.Clear .Filters.Add "Excel Files", "*.xls" .Filters.Add "Excel 2007", "*.xlsx" ' .AllowMultiSelect = True .InitialView = msoFileDialogViewDetails If .Show = -1 Then DoCmd.SetWarnings False DoCmd.RunSQL ("Delete * from DynamicReportTest") For Each vrtSelectedItem In .SelectedItems strSelectedFile = vrtSelectedItem MsgBox strSelectedFile DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "DynamicReportTest", strSelectedFile, False, , False Next vrtSelectedItem Else MsgBox "No File Selected" End If End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.