VB中求一段完整的excel数据导入access中已有表格内的代码
求一段完整的excel数据导入access中已有表格内的代码,表格内已经有数据,现添加进去的是追加在后面的,而不是覆盖原内容...
求一段完整的excel数据导入access中已有表格内的代码,表格内已经有数据,现添加进去的是追加在后面的,而不是覆盖原内容
展开
展开全部
access 中代码：参数1：导入的表名，参数2：excel文件名
Function ImportSpreadsheet(ByVal strTblName As String, ByVal strXlsName As String)
On Error Resume Next
DoCmd.TransferSpreadsheet _
TransferType:=acImport, _
SpreadsheetType:=acSpreadsheetTypeExcel8, _
TableName:=strTblName, _
FileName:=CurrentProject.Path & "/\Input/\" & strXlsName, _
HasFieldNames:=True
End Function
以上是本人在2003中的代码，如果是2007或以上，得改一下上面SpreadsheetType的参数。
Function ImportSpreadsheet(ByVal strTblName As String, ByVal strXlsName As String)
On Error Resume Next
DoCmd.TransferSpreadsheet _
TransferType:=acImport, _
SpreadsheetType:=acSpreadsheetTypeExcel8, _
TableName:=strTblName, _
FileName:=CurrentProject.Path & "/\Input/\" & strXlsName, _
HasFieldNames:=True
End Function
以上是本人在2003中的代码，如果是2007或以上，得改一下上面SpreadsheetType的参数。
追问
看不懂,能解释一下吗? 我的是2007版的,参数应该怎么改,还有,你的代码能完整一点吗?
追答
这就是一段完整的代码，可以用宏或窗口进行调用，完成相应的从Excel表格的追加式导入。
如果在2007版里，xlsx文件，那参数 SpreadsheetType:=acSpreadsheetTypeExcel8值要改成acSpreadsheetTypeExcel10
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
