vb代码解析

发布网友 发布时间：2024-07-21 11:01

我来回答

共2个回答

热心网友 时间：2024-07-21 11:40

Set fK = Application.FileSearch //设置文件搜索对象

With fK
.LookIn = "D:" '若是C碟 自行改C:
.FileName = "*.XLS"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
DoCmd.TransferSpreadsheet acImport, 8, "A表", .FoundFiles(i),TRUE
Next
End If
End With
相当于
fK.LookIn = "D:" '若是C碟 自行改C:
fK.FileName = "*.XLS"
If fK.Execute(SortBy:=msoSortByFileName,SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To fK.FoundFiles.Count
DoCmd.TransferSpreadsheet acImport, 8, "A表", fK.FoundFiles(i),TRUE
Next
End If
fK.LookIn = "D:" '若是C碟 自行改C: //默认从D盘开始搜索
fK.FileName = "*.XLS" //搜索的文件名为XLS扩展名
If fK.Execute(SortBy:=msoSortByFileName,SortOrder:=msoSortOrderAscending) > 0 Then
//搜索的的结果按照文件名排序，排序是升序排列，这里将如果搜索到的文件数量大于0，也就是说，搜索到了符合条件的文件
For i = 1 To fK.FoundFiles.Count
DoCmd.TransferSpreadsheet acImport, 8, "A表", fK.FoundFiles(i),TRUE
Next //做一个循环，从1开始到文件个数的，步长为1，其实就是顺序调用序号
里面的代码表示转换XSL文件的数据到ACCESS.

热心网友 时间：2024-07-21 11:40

感觉前面少了点定义，你看看前面还有没有定义类的
Set fK = Application.FileSearch 设定fk
With fK 关于fk进行如下操作
.LookIn = "D:" '若是C碟 自行改C: fk的查询路径为d:
.FileName = "*.XLS" fk的查询文件类型为*.xls
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then 判断exl文件中是否存在数据
For i = 1 To .FoundFiles.Count 依据表格中数据行列数进行循环
DoCmd.TransferSpreadsheet acImport, 8, "A表", .FoundFiles(i),TRUE
向access中添加数据
Next 继续循环
End If 结束判断
End With 结束关于关系
Set fK = Nothing 释放文件查询，即释放内存