如何将excel中的指定区域批量导入到Access中

hmlyzq · 发表于 2013-7-30 23:20

网上看到的一般方法都是在excel第一行是类别的情况下导入的
但是我的工作表通常第一第二行都是工作表名称编号之类的内容，不需要导入
如下图所示
捕获3.JPG

在按常规操作导入到access中时就出来这种情况，第一第二行是不需要的（实际上第一列也不需要）
捕获4.JPG

所以想请教如何批量导入指定区域到access中
每个工作表格式都一模一样，区域宽度相同，都是从B4到I4
但是区域的高度不一定，如何自动识别出这一点呢（也就是到B列数值中为空的那一行为止
这样的工作薄有一百多个，每个都有几十上百张工作表，实在是，恳请各位大能多多帮忙了{:soso_e109:}

工具统计.rar (12.22 KB, 下载次数: 11)

lichangjun2012 · 发表于 2013-8-7 23:41

本帖最后由 lichangjun2012 于 2013-8-7 23:46 编辑

Sub 保存数据()
Dim CNN As New ADODB.Connection
Dim sql As String
Dim mySheet As Worksheet
Dim rw As Integer
Dim nm
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\测试.mdb"
For Each mySheet In Worksheets
nm = mySheet.Name
rw = Sheets(nm).Cells(Rows.Count, 2).End(xlUp).Row
sql = "insert into 表1 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & nm & "$" & "b3:i" & rw & "]"
CNN.Execute sql
Next
cnn.close:set cnn = nothing
End Sub

复制代码

lichangjun2012 · 发表于 2013-8-7 23:47

将代码复制，在工作簿中插入模块，2处地方要修改，本人初学，只能做到一次操作一个工作簿

1. 测试.mdb 改为数据库名称 2.表1 改为你数据库中的表名称'

其实再加一点遍历文件夹下的工作簿代码就能完善你的要求了，我不会搞

此代码要求你数据库表中的字段名与工作表中的字段名相同

hmlyzq · 发表于 2013-8-8 16:14

嗯，是相同的，我现在的一个思路是，把一个工作簿内的所有工作表都汇总到一张表上，然后只需要导入那张汇总表就行了
现在的问题还是回到了你所说的遍历文件夹下所有工作簿的一个表

		自动登录	找回密码
密码			免费注册

[求助] 如何将excel中的指定区域批量导入到Access中