VB基础类
帮帮忙吧，excel导入access遇到问题
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Private Sub ExportExcelSheetToAccess1(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim SQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim Constr As String
Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0; " & "Data Source= " & sAccessDBPath
conn.Open Constr
SQL = "select * into " & sAccessTable & " from [excel 8.0;database= " & sExcelPath & "].[ " & sSheetName & "$] "
conn.Execute SQL
conn.Close
Set conn = Nothing
End Sub
这是网上的一段代码
我修改后运行如下运行，提示“类型不匹配”
Private Sub Command1_Click()
Call ExportExcelSheetToAccess1([sheet1$], " D:\ssq.xls", "CompareBase", "D:\MHT_Data.mdb")
End Sub
如果将参数[sheet1$]改为"sheet1"又提示无效括号名称，请哪位大哥指点一下，谢谢了
Dim SQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim Constr As String
Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0; " & "Data Source= " & sAccessDBPath
conn.Open Constr
SQL = "select * into " & sAccessTable & " from [excel 8.0;database= " & sExcelPath & "].[ " & sSheetName & "$] "
conn.Execute SQL
conn.Close
Set conn = Nothing
End Sub
这是网上的一段代码
我修改后运行如下运行，提示“类型不匹配”
Private Sub Command1_Click()
Call ExportExcelSheetToAccess1([sheet1$], " D:\ssq.xls", "CompareBase", "D:\MHT_Data.mdb")
End Sub
如果将参数[sheet1$]改为"sheet1"又提示无效括号名称，请哪位大哥指点一下，谢谢了
...全文
相关推荐
vb批量将excel数据导入access以及批量将access数据库中的数据导入excel源代码
标题提到的“vb批量将excel数据导入access以及批量将access数据库中的数据导入excel源代码”是解决这类问题的一种有效方案。下面将详细介绍这两个过程的关键知识点。1.
EXCEL数据导入到ACCESS数据库的三种方式
直接导入：直接导入是将Excel数据永久性地转移到Access数据库中。首先，在Access中创建一个新的表或选择已存在的表，然后通过“外部数据”菜单选择“Excel”选项。
实现将excel中的数据批量导入到access
### 实现将Excel中的数据批量导入到Access在IT领域，数据迁移是一项常见的任务，特别是在不同格式或平台间的数据转换过程中。
vb excel与access相互导入导出的源码
**错误处理与优化**： 在实现导入导出过程中，必须考虑错误处理，例如文件不存在、权限问题或数据格式错误。使用`On Error`语句来捕获并处理可能出现的异常。
利用VB将EXCEL中的数据导入ACCESS
- 考虑到性能问题，在处理大量数据时，可能需要优化代码逻辑或采用批处理方式导入数据。#### 五、总结通过以上步骤，我们可以有效地将Excel文件中的数据导入到Access数据库中。
