如何实现大量EXCEL表一次性的导入到ACCESS

2011-08-09 09:09:05 5.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【立创开源】太阳能板充电方案单节3.7v锂电池充电一直对太阳能板感兴趣，老是感觉充电好麻烦，要是放在那里就可以自己充电多好，所以尝试做了一个太阳能充电板。因为这几天都是阴天，所以测试效果不太好，但是下雨天也是能充电的，但是基本只能维持电量不掉，电压差不多4.2v以上，电流只有2mA。中午出太阳的时候，隔着玻璃放在太阳下测试，电流有12mA以上。能充起一点点电。等大晴天看一看能不能达到卖家说50mA。┗( T﹏T )┛感觉达不到。这个东西只能当一个玩具(；′⌒`)。不过如果汽车上一些行车记录仪加一个这个，汽车经常在太阳下停车，可能再也不用充电了。阅读详情

我每天要导几十个名称不同的EXCEL文件到ACCESS里，每个EXCEL的表结构是完全相同的，怎么用代码实现一性分别导入ACCESS里？？？

...全文

用Java实现森林冰火人游戏 g.drawString("游戏结束", CELL_SIZE * COLS / 2 - 100, CELL_SIZE * ROWS / 2);g.drawString("难度级别: " + difficultyLevel, 10, CELL_SIZE * ROWS + 60);g.drawString("生命值: " + playerHealth, 10, CELL_SIZE * ROWS + 20);setTitle("森林冰火人"); 阅读详情

fc_zhaoying

Access 7,731 成员 28,797 内容

+ 关注 + 加入社区

切换为时间正序

fc_zhaoying 2011-08-20

打赏
举报

收到，我来试试

WangJerry 2011-08-19

打赏
举报

看看这个例子行不，先从目录中查找出你要导入的Excel,到目录，

http://www.jerrysoft.net/thread-21-1-1.html

然后再做个按钮用

dim xls_file as string

For i = 0 To Me.List3.ListCount - 1
xls_file=Me.List3.ItemData(i)
docmd.runsql("insert into Table select * from [Excel 8.0;Database=" & xls_file & "].[Sheet1"]

Next

这个不知道有没有帮助

zqfddqr 2011-08-13

打赏
举报

[Quote=引用 10 楼 fc_zhaoying 的回复:]
引用 9 楼 wwwwa 的回复:
示例：
MyPath = "r:\temp\*.xls" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then

MsgBox……
[/Quote]楼主搜索VBA代码都已经能够有了。。。。

ACMAIN_CHM 2011-08-11

打赏
举报

楼主还是直接无满意结贴吧。

fc_zhaoying 2011-08-11

打赏
举报

[Quote=引用 9 楼 wwwwa 的回复:]
示例：
MyPath = "r:\temp\*.xls" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then

MsgBox MyName '这……
[/Quote]
请教这些代码是写在哪里的？

WWWWA 2011-08-10

打赏
举报

示例：
MyPath = "r:\temp\*.xls" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then

MsgBox MyName '这里写JETSQL代码
End If
MyName = Dir ' 查找下一个目录。
Loop

也可以用FSO递归查询

ACMAIN_CHM 2011-08-09

打赏
举报

如果楼主不会VBA，则随便找个群找人帮忙吧。

QQ群 48866293 / 12035577 / 7440532 / 13666209
ACCESS专业论坛
http://www.accessbbs.cn/bbs/index.php .
http://www.office-cn.net/vvb/ .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ACMAIN_CHM 2011-08-09

打赏
举报

[Quote]Dir 函数

返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

语法

Dir[(pathname[, attributes])]

Dir 函数的语法具有以下几个部分：

部分描述
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。

设置值

attributes 参数的设置可为：

常数值描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件在Macintosh中不可用。
vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume 在Macintosh中不可用。
vbDirectory 16 指定无属性文件及其路径和文件夹。
vbAlias 64 指定的文件名是别名，只在Macintosh上可用。

注意这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。

说明

在 Microsoft Windows 中， Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。

在 Macintosh 中，这些字符作为合法文件名字符并且不能作为通配符来指定多个文件

由于 Macintosh 不支持通配符，使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称:

Dir("SomePath", MacID("TEXT"))

为选中文件夹中所有文件，指定一空串:

Dir("")

在 Microsoft Windows 中，如果在Dir函数中使用MacID函数，将产生错误。

任何大于256的attribute值都被认为是MacID 函数的值。

在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。
[/Quote]

fc_zhaoying 2011-08-09

打赏
举报

怎么循环

fc_zhaoying 2011-08-09

打赏
举报

dir() 是什么呀？？

ACMAIN_CHM 2011-08-09

打赏
举报

你可以利用 dir() 得到所有的XLS文件名。然后循环执行 docmd.runsql "insert into accessTable1 select * from [Excel 8.0;Database=c:/book1.xls].[Sheet1] "

fc_zhaoying 2011-08-09

打赏
举报

这个试过，代码里也要写好多个文件名，我有上千个文件，要写上千个文件名，太累了。

ACMAIN_CHM 2011-08-09

打赏
举报

insert into accessTable1 select * from [Excel 8.0;Database=c:/book1.xls].[Sheet1]
insert into accessTable1 select * from [Excel 8.0;Database=c:/book2.xls].[Sheet1]
..

fc_zhaoying 2011-08-09

打赏
举报

如在一个目录里这些EXCEL表待导：表1-1，表1-2，表1-3，表1-4，……
表里的字段为：水果，西红柿，苹果，……

要导到ACCESS里形成：表1-1，表1-2，表1-3，表1-4，……
导入后表结构不变。

请问用什么时候代码可以支持批量导入？不需要一个个导？

如何实现大量EXCEL表一次性的导入到ACCESS

相关推荐