Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Command3_Click() Dim strFile As String 'Filename Dim strFileList() As String 'File Array Dim intFile As Integer 'File Number Dim filename As String Dim path As String DoCmd.SetWarnings False path = "G:\Store Planning\Projects\Parts Tracker\ToImport\" 'Loop through the folder & build file list strFile = Dir(path & "*.xls") While strFile <> "" 'add files to the list intFile = intFile + 1 ReDim Preserve strFileList(1 To intFile) strFileList(intFile) = strFile strFile = Dir() Wend 'see if any files were found If intFile = 0 Then MsgBox "No files found" End If 'cycle through the list of files For intFile = 1 To UBound(strFileList) filename = path & strFileList(intFile) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tmpShipping", filename, True 'Erroring on this line Next intFile DoCmd.SetWarnings True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Frustrated by Access database design - what am I missing||3||33|
|Access Query: Text to Date||10||29|
|Using a combo box ListItemsEditForm property||5||40|
|Replacing an Access Error with a Custom Message||3||29|