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
|Sending email from List Data||2||51|
|Access Runtime 2010 Error||17||33|
|MS Access VBA Print PDF just Current Page||9||15|
|How to use vba code to toggle a text box in access between plain text and rich text or make the output view look like the plain text view where the data is not all lumped together?||3||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!