加入自动追加字段名的代码,方便excel格式不是很规范的时候也能自动导入,函数调用方法:TransExcelToAccess("F:/temp", "tablename"),第一个参数是目录,第二个参数是access里的表名
Dim xlApp As Excel.Application 可以换成Dim xlApp As Object,这样就不需要引用Excel组件
加入自动追加字段名的代码,方便excel格式不是很规范的时候也能自动导入,函数调用方法:TransExcelToAccess("F:/temp", "tablename"),第一个参数是目录,第二个参数是access里的表名
Dim xlApp As Excel.Application 可以换成Dim xlApp As Object,这样就不需要引用Excel组件