excel直接导入access

tw1

excel直接导入access，而不是通过超级列表框和高级表格中转导入的代码.


补充内容 (2024-1-17 20:11):
在论坛上找到的代码，修改了一下，能快速将excel直接导入到mdb里面，代码在8楼。

53770zhang

access好像支持excel直接导入吧

tw1

53770zhang 发表于 2024-1-16 22:16
access好像支持excel直接导入吧

是能直接导入。

xf702

版本不一样，可能显示也不一样，直接导入。。

tw1

xf702 发表于 2024-1-16 22:37
版本不一样，可能显示也不一样，直接导入。。

不是这个意思，我现在直接导入，高级表格，超级列表框的方式都会用，现在是想用代码来设置直接导入进去。

tw1

论坛上access 数据导出到excel去的教程多，可反过来的就很少了。

nishinvdewoyeai

加我 很贱单q1796360769

tw1

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 数据库连接1.连接Access (取运行目录 () ＋ “\Data.mdb”, “”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

XLS转MDB (“1.XLS”, “Data.mdb”)

子程序名	返回值类型	公开	备 注
XLS转MDB
参数名	类 型	参考	可空	数组	备 注
excel文件名	文本型				全路径的excel文件(*.xls)
access文件名	文本型				全路径的access文件(*.mdb)

变量名	类 型	静态	数组	备 注
数据库连接	对象
记录集	对象
工作表	对象
Source	变体型
i	整数型
表名	文本型		0

' ========取 EXCEL表名=================
数据库连接.创建 (“ADODB.Connection”, )
数据库连接.方法 (“Open”, “Provider=microsoft.jet.oledb.4.0;Persist Security Info=False;data source='” ＋ excel文件名 ＋ “';Extended Properties='Excel 8.0;HDR=Yes'”, “”, “”, )
数据库连接.写属性 (“CursorLocation”, 3)
记录集.创建 (“ADOX.Catalog”, )
Source.赋值 (数据库连接, )
记录集.写属性 (“ActiveConnection”, Source)
工作表 ＝ 记录集.读对象型属性 (“Tables”, )
计次循环首 (工作表.读数值属性 (“Count”, ), i)
加入成员 (表名, 工作表.读对象型属性 (“Item”, i － 1).读文本属性 (“Name”, ))
计次循环尾 ()
工作表.清除 ()
记录集.清除 ()
数据库连接.方法 (“Quit”, )
数据库连接.清除 ()
' ======创建ACCESS数据库=============
数据库连接.创建 (“ADOX.Catalog”, )  ' 这一条是创建新的数据库
数据库连接.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ access文件名)
数据库连接.清除 ()
' =======写入数据====================
数据库连接.清除 ()
数据库连接.创建 (“{00000514-0000-0010-8000-00AA006D2EA4}”, )  ' ADODB.Connection
数据库连接.方法 (“Open”, “Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=” ＋ access文件名 ＋ “;Persist Security Info=false”, “”, “”, -1)
计次循环首 (取数组成员数 (表名), i)
如果真 (表名 [i] ≠ “”)
如果真 (取文本右边 (表名 [i], 1) ＝ “$”)
表名 [i] ＝ 子文本替换 (表名 [i], “$”, “”, , , 真)
记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ 表名 [i] ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ 表名 [i] ＋ “$] ”, 0)

计次循环尾 ()
信息框 (“导入成功”, 0, , )
数据库连接.方法 (“Quit”, )
数据库连接.清除 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

XLS转MDB1 (“2.XLS”, “Data.mdb”)

子程序名	返回值类型	公开	备 注
XLS转MDB1
参数名	类 型	参考	可空	数组	备 注
excel文件名	文本型				全路径的excel文件(*.xls)
access文件名	文本型				全路径的access文件(*.mdb)

变量名	类 型	静态	数组	备 注
数据库连接	对象
记录集	对象
工作表	对象
Source	变体型
i	整数型
表名	文本型		0

' ========取 EXCEL表名=================
数据库连接.创建 (“ADODB.Connection”, )
数据库连接.方法 (“Open”, “Provider=microsoft.jet.oledb.4.0;Persist Security Info=False;data source='” ＋ excel文件名 ＋ “';Extended Properties='Excel 8.0;HDR=Yes'”, “”, “”, )
数据库连接.写属性 (“CursorLocation”, 3)
记录集.创建 (“ADOX.Catalog”, )
Source.赋值 (数据库连接, )
记录集.写属性 (“ActiveConnection”, Source)
记录集.清除 ()
数据库连接.方法 (“Quit”, )
数据库连接.清除 ()
' ======创建ACCESS数据库=============
数据库连接.创建 (“ADOX.Catalog”, )  ' 这一条是创建新的数据库
数据库连接.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ access文件名)
数据库连接.清除 ()
' =======写入数据====================
数据库连接.清除 ()
数据库连接.创建 (“{00000514-0000-0010-8000-00AA006D2EA4}”, )  ' ADODB.Connection
数据库连接.方法 (“Open”, “Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=” ＋ access文件名 ＋ “;Persist Security Info=false”, “”, “”, -1)
记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ “列1” ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ “列1” ＋ “$] ”, 0)
记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ “列2” ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ “列2” ＋ “$] ”, 0)
信息框 (“导入成功”, 0, , )
数据库连接.方法 (“Quit”, )
数据库连接.清除 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 数据库连接1.连接Access (取运行目录 () ＋ “\Data.mdb”, “”)<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> XLS转MDB (“1.XLS”, “Data.mdb”)<br /> <br /> .子程序 XLS转MDB, , 公开<br /> .参数 excel文件名, 文本型, , 全路径的excel文件(*.xls)<br /> .参数 access文件名, 文本型, , 全路径的access文件(*.mdb)<br /> .局部变量 数据库连接, 对象<br /> .局部变量 记录集, 对象<br /> .局部变量 工作表, 对象<br /> .局部变量 Source, 变体型<br /> .局部变量 i, 整数型<br /> .局部变量 表名, 文本型, , "0"<br /> <br /> ' ========取 EXCEL表名=================<br /> 数据库连接.创建 (“ADODB.Connection”, )<br /> 数据库连接.方法 (“Open”, “Provider=microsoft.jet.oledb.4.0;Persist Security Info=False;data source='” ＋ excel文件名 ＋ “';Extended Properties='Excel 8.0;HDR=Yes'”, “”, “”, )<br /> 数据库连接.写属性 (“CursorLocation”, 3)<br /> 记录集.创建 (“ADOX.Catalog”, )<br /> Source.赋值 (数据库连接, )<br /> 记录集.写属性 (“ActiveConnection”, Source)<br /> 工作表 ＝ 记录集.读对象型属性 (“Tables”, )<br /> .计次循环首 (工作表.读数值属性 (“Count”, ), i)<br />     加入成员 (表名, 工作表.读对象型属性 (“Item”, i － 1).读文本属性 (“Name”, ))<br /> .计次循环尾 ()<br /> 工作表.清除 ()<br /> 记录集.清除 ()<br /> 数据库连接.方法 (“Quit”, )<br /> 数据库连接.清除 ()<br /> <br /> ' ======创建ACCESS数据库=============<br /> 数据库连接.创建 (“ADOX.Catalog”, )  ' 这一条是创建新的数据库<br /> 数据库连接.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ access文件名)<br /> 数据库连接.清除 ()<br /> <br /> <br /> <br /> ' =======写入数据====================<br /> 数据库连接.清除 ()<br /> 数据库连接.创建 (“{00000514-0000-0010-8000-00AA006D2EA4}”, )  ' ADODB.Connection<br /> 数据库连接.方法 (“Open”, “Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=” ＋ access文件名 ＋ “;Persist Security Info=false”, “”, “”, -1)<br /> <br /> .计次循环首 (取数组成员数 (表名), i)<br />     .如果真 (表名 <i> ≠ “”)<br />         .如果真 (取文本右边 (表名 <i>, 1) ＝ “$”)<br />             表名 <i> ＝ 子文本替换 (表名 <i>, “$”, “”, , , 真)<br />         .如果真结束<br />         记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ 表名 <i> ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ 表名 <i> ＋ “$] ”, 0)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“导入成功”, 0, , )<br /> 数据库连接.方法 (“Quit”, )<br /> 数据库连接.清除 ()<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> XLS转MDB1 (“2.XLS”, “Data.mdb”)<br /> <br /> .子程序 XLS转MDB1, , 公开<br /> .参数 excel文件名, 文本型, , 全路径的excel文件(*.xls)<br /> .参数 access文件名, 文本型, , 全路径的access文件(*.mdb)<br /> .局部变量 数据库连接, 对象<br /> .局部变量 记录集, 对象<br /> .局部变量 工作表, 对象<br /> .局部变量 Source, 变体型<br /> .局部变量 i, 整数型<br /> .局部变量 表名, 文本型, , "0"<br /> <br /> ' ========取 EXCEL表名=================<br /> 数据库连接.创建 (“ADODB.Connection”, )<br /> 数据库连接.方法 (“Open”, “Provider=microsoft.jet.oledb.4.0;Persist Security Info=False;data source='” ＋ excel文件名 ＋ “';Extended Properties='Excel 8.0;HDR=Yes'”, “”, “”, )<br /> 数据库连接.写属性 (“CursorLocation”, 3)<br /> 记录集.创建 (“ADOX.Catalog”, )<br /> Source.赋值 (数据库连接, )<br /> 记录集.写属性 (“ActiveConnection”, Source)<br /> 记录集.清除 ()<br /> 数据库连接.方法 (“Quit”, )<br /> 数据库连接.清除 ()<br /> <br /> ' ======创建ACCESS数据库=============<br /> 数据库连接.创建 (“ADOX.Catalog”, )  ' 这一条是创建新的数据库<br /> 数据库连接.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ access文件名)<br /> 数据库连接.清除 ()<br /> <br /> ' =======写入数据====================<br /> 数据库连接.清除 ()<br /> 数据库连接.创建 (“{00000514-0000-0010-8000-00AA006D2EA4}”, )  ' ADODB.Connection<br /> 数据库连接.方法 (“Open”, “Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=” ＋ access文件名 ＋ “;Persist Security Info=false”, “”, “”, -1)<br /> <br /> 记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ “列1” ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ “列1” ＋ “$] ”, 0)<br /> 记录集 ＝ 数据库连接.对象型方法 (“Execute”, “SELECT * INTO ” ＋ “列2” ＋ “ FROM [Excel 8.0;DATABASE=” ＋ excel文件名 ＋ “].[” ＋ “列2” ＋ “$] ”, 0)<br /> <br /> <br /> 信息框 (“导入成功”, 0, , )<br /> 数据库连接.方法 (“Quit”, )<br /> 数据库连接.清除 ()

excel转mdb.rar (245.06 KB, 下载次数: 22)

2024-1-17 20:05 上传

点击文件名下载附件

wei88622

存在数据时，没有覆盖数据

tw1

wei88622 发表于 2024-5-14 03:26
存在数据时，没有覆盖数据

删除后就插入数据。