| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 499 人关注过本帖
标题:VB在导入Excel表到access的时候,只能导入部分数据(付源代码) 请老师指点
只看楼主 加入收藏
pxinfo
Rank: 1
等 级:新手上路
帖 子:51
专家分:5
注 册:2019-6-30
结帖率:60%
收藏
已结贴  问题点数:20 回复次数:2 
VB在导入Excel表到access的时候,只能导入部分数据(付源代码) 请老师指点
在导入Excel表的时候,导入第一个表可以完全导入,当导入第二个表的时候只能导入部分数据 ,不知道是VB代码的问题呢还是ACCESS数据库的问题。请老师指导。谢谢 付源代码
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: VB 导入 分数 源代码 老师 
2019-07-26 22:01
jklqwe111
Rank: 8Rank: 8
等 级:贵宾
威 望:26
帖 子:273
专家分:923
注 册:2014-4-13
收藏
得分:20 

以下代码你试一下

程序代码:
Private Sub 收入_Click()
Dim strFieldsName As String
Dim strValue As String
Dim strSQL As String
Dim cnnADO As New ADODB.Connection

Dim fileadd As String
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Dim r As Long

cnnADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=6109003091;Data Source=" + App.Path + "\四知.mdb;Persist Security Info=False"
   
cnnADO.Open
CommonDialog1.ShowOpen
CommonDialog1.Filter = "" '选择你要的文件
fileadd = CommonDialog1.FileName
If fileadd = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False ' =  True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表

r = 1
Do While (Trim(xlSheet.cells(r, 1)) <> "") Or (xlSheet.cells(r, 1) <> 0)

strValue = "'" & Trim(xlSheet.cells(r, 1)) & "','" & Trim(xlSheet.cells(r, 2)) _
           & "','" & Trim(xlSheet.cells(r, 3)) & "','" & Trim(xlSheet.cells(r, 4)) _
            & "','" & Trim(xlSheet.cells(r, 5)) & "','" & "Off" & "'"

strSQL = "insert into 支出明细表 ( 档案号 ,姓名 ,支出摘要 ,金额 ,时间 ,结算) values(" _
           & strValue & ")"
cnnADO.Execute strSQL
r = r + 1
Loop
xlApp.DisplayAlerts = False '不进行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing
   Set DataGrid1.DataSource = Adodc1
   

 cnnADO.Close

 Set cnnADO = Nothing

 

 End Sub

2019-07-28 11:25
pxinfo
Rank: 1
等 级:新手上路
帖 子:51
专家分:5
注 册:2019-6-30
收藏
得分:0 
谢谢老师的指导,搞定了
2019-07-28 22:19
快速回复:VB在导入Excel表到access的时候,只能导入部分数据(付源代码) 请老师 ...
数据加载中...
 
   



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

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