[AHK]Access和Excel之间导入导出玩法

最新推荐文章于 2022-09-14 09:44:14 发布

liuyukuan

最新推荐文章于 2022-09-14 09:44:14 发布

阅读量5.6k

点赞数 1

分类专栏： AutoHotkey Excel Access

本文链接：https://blog.csdn.net/liuyukuan/article/details/52886851

版权

AutoHotkey 同时被 3 个专栏收录

394 篇文章 125 订阅

订阅专栏

Excel

65 篇文章 2 订阅

订阅专栏

Access

7 篇文章 0 订阅

订阅专栏

/*
ACCESS与EXCEL文件的互导

一、将表导出为EXCEL07-2003表：
Select * INTO [EXCEL 8.0;DATABASE=E:\TEMP\info.XLS].info
FROM Sheet2;

二、将表导出为EXCEL2007/2010表（二进制）：
Select * INTO [EXCEL 12.0;DATABASE=E:\TEMP\info.XLSB]. info
FROM Sheet2;

三、将表导出为EXCEL2007/2010表（XML）：
Select * INTO [EXCEL 12.0 XML;DATABASE=E:\temp\text.xlsx].sheet1 FROM Sheet2;

四、将EXCEL表导入到现有表中：
Insert INTO ABC Select * FROM [EXCEL 12.0 XML;DATABASE=E:\temp\text.xlsx].sheet1;

五、导入EXCEL表并生成新表：
Select * INTO ABC FROM [EXCEL 12.0 XML;DATABASE=E:\temp\text.xlsx].sheet1; 
*/


conn:=ComObjCreate("ADODB.connection")
connectionStrings := "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" A_ScriptDir "\test\TestDB.mdb"
conn.Open(connectionStrings)
Sql:="Select * INTO test4 FROM [Excel 12.0 Xml;HDR=YES;DATABASE=X:\AHK\CSV\test.xls].[Sheet1$];"
conn.execute(Sql)
conn.Close
conn:=
return