特定文件导入Access表

Question

背景：

我每天收到的销售文件，我想自动导入访问。它们目前保存到具有一致命名约定的特定文件夹中。我不会每天检查这些文件，并希望使导入过程成为一个按钮过程。我不需要文件夹中的其他文件，所以我不能只导入整个文件。

文件命名约定： DAILY.SALES.20160611

（的20160611是年 - 2016年，月日 - 6月和11天）

帮助需要：

我可以导入所有文件，但我无法弄清楚如何只指定那些以“Daily.Sales”开头的文件。下面是我可以导入所有内容而不指定的代码。我的假设是，它与路径或strFile有关，但我尝试过的任何变体都没有奏效。

这将是很好，如果代码实际上可以，检查文件是否已经被上传之前上传的，但是如果我在每次使用后删除表，并重新上传的一切，这将更容易。

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 = "C:\Desktop\Test\" 

    Dim objXL As Object 
    Dim wb As Object 

    Set objXL = CreateObject("Excel.Application") 

    strFile = Dir(path & "*.xls") 
    While strFile <> "" 

     Set wb = objXL.Workbooks.Open(path & strFile) 

     If wb.Sheets(1).Range("A1") <> "No Data" And wb.Sheets(1).Range("A1") <> "" Then 
      'add files to the list 
      intFile = intFile + 1 
      ReDim Preserve strFileList(1 To intFile) 
      strFileList(intFile) = strFile 
     End If 
     strFile = Dir() 
Debug.Print strFileList(intFile) 
     wb.Close False 
     Set wb = Nothing 
    Wend 

'see if any files were found 
If intFile = 0 Then 
MsgBox "No files found" 
Exit Sub 
End If 

'cycle through the list of files 
For intFile = 1 To UBound(strFileList) 
filename = path & strFileList(intFile) 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Stage", filename, False 

Call Format_Staging_Table 
Call Copy_from_Stage_to_Master 
Call Clear_Staging_Table 

Next intFile 
DoCmd.SetWarnings True 

可以忽略呼叫件，它们一旦我得到它在对数据进行格式化......

感谢任何帮助或建议，任何人可以提供！

Answer 1

好吧，我刚才已经回答这样一个问题，1分钟前。我想你应该看看这个链接。

http://www.accessmvp.com/KDSnell/EXCEL_Import.htm#ImpAllWktsSepTbl

只是修改，以满足您的需求... ...基本上改变路径和文件夹，以匹配您的文件名称...