VBA 将EXCEL 表2的数据粘贴到ACCESS表中的问题

tubu2018

各位老师大家好！小弟想通过VBA将附件中的“凭证模.XLS”的表2复制粘贴到附件中的"pingzheng01.accdb"的BIAOZHUNPINZHENMO中，要求每次BIAOZHUNPINZHENMO中的记录都要先清除掉再粘贴上凭证模.XLS”的表2新的数据。现在我遇到这样的问题
如里把代码直接放在 凭证模.XLS”的表2中，则提示”MICROSOFT OFFICE ACCESS 数据库引擎无法打 开凭证模.XLS“或无法向其写入数据，它已经被其他用户以独占方式打开，如果新建一个工作薄，把代码放在里面，则提示：此表中的一些单元格超出了电子数据表定义的单元范围》，
下面是我在网上找的代码
Dim JFsg As Double, DFsg, JCsg As Double
Dim JFsg_sum As Double, DFsg_sum As Double


Sub qqq()
Dim connstr As String
Dim conn As New ADODB.Connection
connstr = "C:\Documents and Settings\Administrator\桌面\17，18\1011\pingzheng01.accdb" '你的access的完整路径
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & connstr & ";Persist Security Info=False" '设置access的连线
conn.Open '打开access的连线
conn.Execute "select * into temp FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=YES].[Sheet1$A1:R65536];" '将你的excel的sheet1资料上传到access的临时表temp中
conn.Execute "insert into a(id,name) select * from temp where id not in (select fdate from fhandler) " '将temp表的资料更新到access的a表中
conn.Execute "drop table temp" '删除access的临时表temp
MsgBox "完成！"
conn.Close
Set conn = Nothing
End Sub

请各位老师帮忙，

opiona

电子数据表定义的单元范围  应该是：数据类型的问题
导出Excel到Access：

1.   Str_coon = "HDR=yes';Data Source=" & PATHEXCEL  '//OFFICE2003，2007 通用
   
2.    
   
3.     Rem StrSQL = "INSERT INTO [MS Access;Database=" & Application.StartupPath & "\Database.mdb].[字段设置表] SELECT * FROM [字段设置表$]"

复制代码

魂断蓝桥

Sub a()
Dim cn As Object, Sql As String, M%
Set cn = CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\pingzheng01.accdb"
cn.BeginTrans
Sql = "delete from BIAOZHUNPINZHENMO"
cn.Execute Sql
Sql = "INSERT INTO BIAOZHUNPINZHENMO (FDATE,FTRANSDATE,FPERIOD,FGROUP,FNUM,FENTRYID,FEXP,FACCTID,FCLSNAME1,FOBJID1,FOBJNAME1)" _
        & " select F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11 " _
        & "FROM [Excel 8.0;HDR=NO;DATABASE=" & ThisWorkbook.FullName & "].[sheet2$a4:K]  WHERE F1 IS NOT NULL"
cn.Execute Sql, M
cn.CommitTrans
Set cn = Nothing
MsgBox "插入" & M & "条记录"
End Sub

tubu2018

非常，感谢您！

tubu2018

各位老师：我用上面魂断蓝桥老师的代码，还是出这样的问题