vb中怎样将excel表导入到access中

最新推荐文章于 2024-08-30 09:33:36 发布
原创 最新推荐文章于 2024-08-30 09:33:36 发布 · 3.7k 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#excel #access #vb #数据库 #string #database

这段VB代码演示了如何将指定路径的Excel文件（123.xls）中的'sheet1'工作表数据导入到同一路径下的Access数据库（123.mdb）中的'sheet1'表。首先打开Excel文件，然后通过SQL语句将数据导入到Access数据库中，并更新Data1控件以显示导入后的数据。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Private   Sub   Command1_Click()  
      Text1.Text   =   App.Path   &   "/123.xls"           'EXCEL文件  
      Text2.Text   =   App.Path   &   "/123.mdb"           '数据库  
      Text3.Text   =   "sheet1"  
      Text4.Text   =   "sheet1"  
      Data1.DatabaseName   =   App.Path   &   "/123.mdb"  
   
      Dim   db   As   Database  
      Dim   sheet   As   String,   excelpath   As   String,   AccessPath   As   String,   AccessTable   As   String  
      AccessPath   =   Text2.Text                   &nbs

最低0.47元/天 解锁文章

200万优质内容无限畅学
xch2125535
关注
如何将excel里的数据批量导入ACCESS，要用vb代码？
miaozk2006的专栏
09-20 1516
  下面是对EXECL的基础操作说明： Set xlApp = CreateObject("Excel.Application") ‘激活EXCEL应用程序 xlApp.Visible = False ‘隐藏EXCEL应用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) ‘打开工作簿，strDestination为一个EXC...
VB6将Excel中的数据导入到Access数据库 代码求解
weixin_47188547的博客
06-09 1361
```Dim Row As Integer CD1.Filter = "Excel文件(*.xls)|*.xls" CD1.ShowOpen If Trim(CD1.FileName) <> "" Then Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Appl
利用VB将EXCEL中的数据导入ACCESS
12-26
操作excel利用VB将EXCEL中的数据导入ACCESS
VB 6.0 将EXCEL数据导入ACCESS数据库
12-27
VB 6.0 将EXCEL数据导入ACCESS数据库
VB把excel数据导入ACCESS
liuyukuan的专栏
01-26 7173
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=c:\db.mdb" conn.Open Constr SQL
vb excel 导入 access
11-30
Dim extend_str As String Dim execl_cnn As New ADODB.Connection Dim execl_rst As New ADODB.Recordset Dim execl_count_rst As New ADODB.Recordset '纪录数量 Dim execl_field_rst As New ADODB.Recordset Dim execl_strconn As String Dim execl_strcmd As String Dim execl_count_str As String Dim insertStr As String 操作oracle数据库的记录集 Dim rst As ADODB.Recordset CommonDialog1.ShowOpen extend_str = Right(CommonDialog1.FileName, 3) If (extend_str = "xls") Then execl_cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & CommonDialog1.FileName & _ ";Extended Properties=Excel 8.0;" ElseIf (extend_str = "dbf") Then execl_cnn.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=" & getDir (CommonDialog1.FileName) execl_cnn.Open End If If (extend_str = "xls") Then execl_strcmd = "SELECT * from `Sheet1$` " execl_count_str = "SELECT count(*) from `Sheet1$` " execl_field_rst.Open execl_count_str, execl_cnn If (execl_field_rst.Fields(0).Value = 0) Then execl_strcmd = "SELECT * from [" & getFileNoExt(getfile(CommonDialog1.FileName)) & "$] " execl_count_str = "SELECT count(*) from [" & getFileNoExt(getfile(CommonDialog1.FileName)) & "$] " End If execl_field_rst.Close ElseIf (extend_str = "dbf") Then execl_strcmd = "SELECT * from " & CommonDialog1.FileName execl_count_str = "SELECT count(*) from " & CommonDialog1.FileName End If execl_rst.Open execl_strcmd, execl_cnn execl_count_rst.Open execl_count_str, execl_cnn If (CommonDialog1.FileName "") Then '进度条设置 ProgressBar1.Min = 0 ProgressBar1.max = execl_count_rst.Fields(0).Value If (execl_rst.RecordCount) Then '如果有记录 If (Option1.Value) Then '如果是仪器总库 If (execl_rst.Fields.Count = 8) Then Set rst = yg_gain_table_recordset("yg_device") execl_rst.MoveFirst Do While (Not execl_rst.EOF) rst.AddNew rst.Fields(0).Value = yg_getNextId("yg_device_id") rst.Fields(1).Value = execl_rst.Fields(0).Value & "" rst.Fields(2).Value = execl_rst.Fields(1).Value & "" rst.Fields(3).Value = execl_rst.Fields(2).Value & "" rst.Fields(4).Value = execl_rst.Fields(3).Value & "" rst.Fields(5).Value = execl_rst.Fields(4).Value & "" rst.Fields(6).Value = execl_rst.Fields(5).Value & "" rst.Fields(7).Value = execl_rst.Fields(6).Value & "" rst.Fields(8).Value = execl_rst.Fields(7).Value & "" rst.Update execl_rst.MoveNext ProgressBar1.Value = ProgressBar1.Value + 1 DoEvents Loop yg_free_recordset rst Else MsgBox "结构不一致" Exit Sub End If End If If (Option2.Value) Then '如果是外借仪器 If (execl_rst.Fields.Count = 12) Then Set rst = yg_gain_table_recordset("yg_out_device") execl_rst.MoveFirst Do While (Not execl_rst.EOF) rst.AddNew rst.Fields(0).Value = yg_getNextId("yg_out_device_id") rst.Fields(1).Value = execl_rst.Fields(0).Value & "" rst.Fields(2).Value = execl_rst.Fields(1).Value & "" rst.Fields(3).Value = execl_rst.Fields(2).Value & "" rst.Fields(4).Value = execl_rst.Fields(3).Value & "" rst.Fields(5).Value = execl_rst.Fields(4).Value & "" rst.Fields(6).Value = execl_rst.Fields(5).Value & "" rst.Fields(7).Value = execl_rst.Fields(6).Value & "" rst.Fields(8).Value = execl_rst.Fields(7).Value & "" rst.Fields(9).Value = execl_rst.Fields(8).Value & "" rst.Fields(10).Value = execl_rst.Fields(9).Value & "" rst.Fields(11).Value = execl_rst.Fields(10).Value & "" rst.Fields(12).Value = execl_rst.Fields(11).Value & "" rst.Update execl_rst.MoveNext ProgressBar1.Value = ProgressBar1.Value + 1 DoEvents Loop yg_free_recordset rst Else MsgBox "结构不一致" Exit Sub End If End If
VB将excel导入access.zip_VBaccess导入execl_excel导入access_vb excel acc
07-14
在这个场景下，"VB将excel导入access"的主题涉及了如何使用VB来实现Excel数据到Access数据库的迁移。这通常在需要将大量结构化数据从Excel工作簿转移到更强大的数据库管理系统，如Microsoft Access时发生。 首先，...
vb批量将excel数据导入access以及批量将access数据库中的数据导入excel源代码
10-18
标题提到的“vb批量将excel数据导入access以及批量将access数据库中的数据导入excel源代码”是解决这类问题的一种有效方案。下面将详细介绍这两个过程的关键知识点。 1. Excel数据导入Access： - **数据连接**：...
VB 把excel中内容添加到access中
白话魔法师
05-15 2440
除了access可以从excel直接导入（有点不符合本人观点）外， 可以用VB来操作。 两个注意点： 1、先查询记录在access是否存在，存在了就不用添加。 2、打开时，用键集游标adOpenKeyset，不然那个查询的记录集的个数是-1，为判断是否存在记录造成困惑。 Private Sub Command1_Click() Dim cn As New A
vb6将Excel表导入到Access中
qq_34881142的博客
07-12 1436
aa = IIf(IsNumeric(Left(List1.List(List1.ListIndex), 1)), "'" & List1.List(List1.ListIndex) & "$'", List1.List(List1.ListIndex) & "$") 从Access中直接将Excel导入 Conn2.Open "Provider=M...
VB.NET excel导入ACCESS中
06-29
自己写的简单导入EXCEL进入ACCESS中，使用的是VS2012，初学者不要见笑。
VB把EXCEL导入到数据库的方法
09-13
VB中将EXCEL的数据导入到数据库的表中,并连接数据库,进行一些基本的操作
VB将Excel数据追加到指定的Access
07-30
通过VB编程的方法将Excel中的数据追加到Access数据库的数据表.
EXCEL数据导入到ACCESS数据库的三种方式
12-16
EXCEL数据导入到ACCESS数据库的三种方式
VB编写Excel导入到数据库
09-04
VB6操作Excel导入到SQL2000数据库，Excel必须保存成2003的格式
用VBA把EXCEL表导入ACCESS数据库中
热门推荐
abdylong1011的专栏
01-07 2万+
首先在指定的access数据库的建立一张表，表格的字段和需要导入EXCEL表的字段保持一致。   方法一：在eccel VBA编辑器编写代码，使用FOR循环导入： Sub 利用Excel的VBA将数据写入Access()     '定义ADODB 连接Access数据库     Dim Cnn As New ADODB.Connection     Dim Rs As New ADODB
VBA批量将Excel数据导入Access数据库
qq_51649461的博客
07-22 8994
将存在于Excel表格中的数据导入已经创建好的Access数据库中。 方式一：逐行扫描工作表，往数组里面存数据时，从单元格中获取值【rs.Fields(j - 1) = Cells(i, j).Value】 方式二：将工作表中的数据读到数组里面，在往数据库中存数据时，从数组里面获取值...
用excel vba，将EXCEL数据追加到ACCESS数据库的某张表中的实例（学习备注）
小贺的专栏
09-27 1万+
Sub test_excelToAccess()     Dim strFile As String     Dim dbData As DAO.Database     Dim appNew As Access.Application '需要引用access lib,也可通过createobject创建access application     Dim strSql As String
VBA学习(64)： Excel表格数据导入Access数据库初探
最新发布
nianfen的博客
08-30 1367
数据导入核心代码，CmdImport_Click()，代码可能有一些无效语句，没有来得及整理，大家将就着看吧，关键是思路。
VB代码示例：一次性将Excel数据导入到Access数据库中
具体到本主题，我们将会探讨如何使用VB（Visual Basic）语言，将Excel电子表格数据高效地一次性导入到Microsoft Access数据库中。这在企业数据处理和报表生成中是一个常见的需求。 首先，要实现这一功能，需要具备...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值