导入数据时写入文件名称

时　间:2019-04-08 11:09:04
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:从N个Excel中导入数据时，每导入1个，给明细记录写入文件的名称，以区分是哪一天的数据。
正　文:

问：

我们公司在共享文件夹中会放很多固定的日报，csv格式的，日报名称是用时间命名的，但是文件里面没有日期。

经常需要把N天数据汇总一起做分析，但是由于日报本身没有日期，所以汇总一起后不知道具体某一条记录是哪一天的。请问access有什么好的方法，可以在导入时加一列字段把文件名一起导入进去？

如下图所示：

图一 共享文件夹中N个文件

图二 每个Excel文件中的数据

答：

在导入每一个Excel文件后，用更新查询批量写入文件的名称，具体代码如下：

    '要引用Microsoft Office 11.0 Object Library.
    Dim i As Long
    Dim x As Integer
    Dim file As String
    Dim strDate As String
    DoCmd.SetWarnings False
    If MsgBox("您确认导入数据吗？", vbYesNo, "提示") = vbNo Then
        Exit Sub
    End If
    

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True       '可多选
        .Title = "请选择要导入的Excel表（可多选）"
        .Filters.Clear        '清除文件过滤器
        .Filters.Add "Excel Files", "*.xls;*.xlsx"        '设置文件过滤器
     '   .Show  'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
        If .Show = 0 Then
            MsgBox "你已取消本次操作", vbCritical, "操作提示"
            Exit Sub
        End If

        For i = 1 To .SelectedItems.Count
            file = .SelectedItems(i)
            DoCmd.TransferSpreadsheet acImport, 8, "tbl销售明细", file, True, ""
            x = InStr(file, "导入\")
            strDate = Mid(file, x + 3)
            strDate = Left(strDate, Len(strDate) - 4)
            DoCmd.RunSQL "Update tbl销售明细 SET 日期 = '" & strDate & "' Where 日期 Is Null"

        Next
    End With

视频演示：

点击链接：https://m.qlchat.com/wechat/page/short-knowledge/video-show?id=2000004213656151&liveId=840000166145996，用微信扫描查看。

示例下载：

点击下载此附件