标题:求助:关于vb.net导入excel到access的问题
只看楼主
huangyz_xy
Rank: 2
等 级:论坛游民
帖 子:101
专家分:30
注 册:2016-10-2
结帖率:77.78%
 问题点数:0 回复次数:3 
求助:关于vb.net导入excel到access的问题
我是菜鸟,刚刚接触,请问如何把一个excel表里面指定sheet导入到access里面和sheet名相同table里面,如果里面存在同名table,询问是追加进去还是删除后重新建一个table。
程序代码:
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & App.Path & "\datas\Data_Source.mdb" & "';Persist Security Info=False"
    conn.Open
    If rst.State = adStateOpen Then rst.Close
    rst.Open "SELECT * FROM MsysObjects", conn, adOpenKeyset, adLockOptimistic
    For intloop = 0 To rst.RecordCount - 1
        If rst.Fields("name") = "NRCellDU" & "_" & ComDU_Type Then  
            kill = 1
        End If
        rst.MoveNext
    Next intloop
   
    If ComDU_Type = "" Then
        MsgBox "请选择NRCellDU类型都再确认导入!", vbInformation, "Yams"
        Exit Sub
    Else
        If kill = 1 Then
            If MsgBox("<NRCellDU_" & ComDU_Type & ">已经存在,是否删除后重新导入?", vbCritical + vbOKCancel, "删除警告") = vbOK Then
                conn.Execute "DROP TABLE NRCellDU_" & ComDU_Type
                SQL = "select *  into NRCellDU_" & ComDU_Type & " from  [Excel 12.0 Xml;database=" & txtNRCellDU & "].[NRCellDU$]"
                conn.Execute SQL
            Else
                Exit Sub
            End If
        Else
            SQL = "select *  into NRCellDU_" & ComDU_Type & " from  [Excel 12.0 Xml;database=" & txtNRCellDU & "].[NRCellDU$]"
            conn.Execute SQL
        End If
    End If

Snap2.rar (1.63 KB)

以上是vb6的部分代码,用如何实现呢?
搜索更多相关主题的帖子: vb.net 导入 If conn excel 
2019-10-04 18:27
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:183
帖 子:942
专家分:4724
注 册:2013-2-16
得分:0 
也能用Ado访问,这段代码基本上不需要怎么改动,都可以直接用了吧?
2019-10-22 13:52
ipsc1978
Rank: 1
来 自:广东湛江
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-11-7
得分:0 
最后把EXCEL另存为文本文件 制表符分隔,这种方式导入导出不受OFFICE版本和组件的约束,兼容性好。要不在不同的机上不同的OFFICE版本会让你的程序在兼容性上非常头痛。

海军退伍军人
原BBSXP官方论坛版主
原DSS跳舞机官方论坛版主
2019-11-07 23:50
gbhytg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-6-1
得分:0 
insert INTO [atm_err] SELECT [字段列表] From [Sheet1$] IN '" & excel文件路径 & "' 'EXCEL 8.0;'执行这个SQL语句就可以,注意EXCEL 8.0,是和Excel版本相关,可以网上查查
2020-06-02 18:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-497106-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.104530 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved