[原创]把.mdb文件导出EXCEL修改后，重新导入原ACCESS中

kezhiye

用户定义类型未定义是什么呢

nawong

Sub ImportToAccess1()
conn.Open pathstr & "DB_RoHS"
conn.Execute "Delete from tblLotNo"
sqlString = "INSERT INTO tblLotNo SELECT * FROM [Excel 8.0;DATABASE='" & ThisWorkbook.FullName & "';HDR=YES].[FExcel$A1:B7643]"

conn.Execute sqlString
conn.Close
Set conn = Nothing
End Sub

kezhiye

如果ACCESS数据表在局域网user01号机(IP地址为192.168.1.101)的D:\中量管理目录下,而user02、user03、user04三台电脑(IP地址分别为192.168.1.102,192.168.1.103,192.168.1.104)的E:\中量管理目录下均有同样格式的EXCEL工作表,那么一楼以下代码的导入导出路径应该如何写呢?

Sub ExportToExcel()'导出EXCEL
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\DBBASE.MDB;" & _
"Jet OLEDB:Engine Type=4"

Sub ImportToAccess()'导入原ACCESS
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\DBBASE.MDB;" & _
"Jet OLEDB:Engine Type=4"

[此贴子已经被作者于2007-5-8 10:54:27编辑过]

wsri

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\user01\D:\中量管理\DBBASE.MDB;" & _
"Jet OLEDB:Engine Type=4"
试试

kezhiye

是用user01这样的机号呢?还是用192.168.1.几的IP地址呢?

nawong

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\user01\中量管理\DBBASE.MDB;" & _
"Jet OLEDB:Engine Type=4"
其中的_中量管理_要共享

秦关明月

向高手学习!

sunxh

谢谢楼主分享.

青见

    向楼主请教一个问题:导入Access时对EXCEL各列的格式要求太严,如果不把对应的各列单元格格式设置正确导入时就出现错误,但平时工作中难免对单元格格式设置不严格,能否用代码实现忽略这方面的错误呢,期待楼主及高手的回复,谢谢了!

hamsky

帮助很大！谢谢了