VB把excel数据导入ACCESS__用vba将excel数据导入word

相关文章推荐

茫然的筷子 · vba判断一个字符串是否为全数字 - CSDN文库· 1 月前 ·

坏坏的海龟 · VBA) (Property Let ...· 1 月前 ·

开朗的牛排 · 解读黎曼猜想 - 脉脉· 6 月前 ·

独立的冲锋衣 · 原神隐者王多尔库成就攻略 ...· 1 年前 ·

有情有义的卤蛋 · 国际湿地城市简介 - 苏州市创建国际湿地城市专题· 1 年前 ·

文雅的开水瓶 · 9个全温州最贵的地方，贫穷的我看完瑟瑟发抖！ ...· 1 年前 ·

销魂的开心果 · 《皮皮鲁与鲁西西之罐头小人》：童话是不会过时的· 1 年前 ·

Set conn = New ADODB.Connection Dim Constr As String Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\db.mdb" conn.Open Constr SQL = "select * into t2 from [excel 8.0;database=c:\book1.xls].[sheet1$]" conn.Execute SQL conn.Close Set conn = Nothing

xls文件到mdb,用AutoHotkey实现如下：

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

Microsoft.ACE.OLEDB.12.0 代替Microsoft.Jet.OLEDB.4.0 用Excel 12.0 Xml; 代替Excel 8.0;

推荐文章

茫然的筷子 · vba判断一个字符串是否为全数字 - CSDN文库

1 月前

坏坏的海龟 · VBA) (Property Let 語句 | Microsoft Learn

1 月前

开朗的牛排 · 解读黎曼猜想 - 脉脉

6 月前

独立的冲锋衣 · 原神隐者王多尔库成就攻略原神隐者王多尔库成就怎么达成_原神_九游手机游戏

1 年前

有情有义的卤蛋 · 国际湿地城市简介 - 苏州市创建国际湿地城市专题

1 年前

文雅的开水瓶 · 9个全温州最贵的地方，贫穷的我看完瑟瑟发抖！|喜来登|温州|学区房_新浪新闻

1 年前

销魂的开心果 · 《皮皮鲁与鲁西西之罐头小人》：童话是不会过时的

1 年前