问:
我们公司在共享文件夹中会放很多固定的日报,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,用微信扫描查看。
示例下载:
点击下载此附件