设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 792|回复: 1
打印 上一主题 下一主题

[与其它组件] [求助]请高手看看 关于导入EXCEL

[复制链接]
跳转到指定楼层
1#
发表于 2005-3-18 05:08:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在导入EXCEL时(追加记录),遇到源EXCEL表格字段与目标表结构不同时也会导入的情况,这样会造成数据不完整,如何判断EXCEL表的结构与目标表结构相同?如不相同作不导入处理.

另:在导入时我用

Private Sub cmd_Import_Click()

    On Error GoTo cmd_Import_err

        Dim rs As Object

        Set rs = Me.Recordset.Clone

        

        '设置CancelError为 True 时,无论何时选取“取消”按钮,均产生 32755 (cdlCancel) 号错误

        CommonDialog6.CancelError = True

        MsgBox "导入数据时只可使用与程序导出的电子表格结构相同的文件。" & Chr(13) & Chr(13) & Chr(13) & "注意! 目标表中已存在的记录将不被导入。", vbInformation, "Information"

        CommonDialog6.DialogTitle = "导入数据"

        '显示“另存为”对话框

        CommonDialog6.ShowOpen

        '导入数据到'表_对帐单'表中<追加>

        Dim FileName As String

        FileName = CommonDialog6.FileName

        DoCmd.SetWarnings False

        DoCmd.TransferSpreadsheet acImport, 8, "表_对帐单", FileName, True, ""

        DoCmd.SetWarnings True

        Me.Recordset.Requery

        cbo_条形码输入.Requery

        If rs.RecordCount = 0 Then

            cmd_Del.Enabled = False

            cmd_编辑.Enabled = False

            cmd_Export.Enabled = False

            cmd_addtoreport.Enabled = False

        Else

            cmd_Del.Enabled = True

            cmd_编辑.Enabled = True

            cmd_Export.Enabled = True

            cmd_addtoreport.Enabled = True

        End If

        If Chk_手工输入条形码.Value = True Then

            cbo_条形码输入.SetFocus

        Else

            txt_条形码扫入.SetFocus

        End If

        MsgBox "数据成功导入!", vbInformation, "导入"

cmd_Import_err:

    If err.Number = 32755 Then

        If Chk_手工输入条形码.Value = True Then

            cbo_条形码输入.SetFocus

        Else

            txt_条形码扫入.SetFocus

        End If

    ElseIf err.Number = 2391 Then

        'MsgBox err.Number

        MsgBox "在导入数据时发生错误,错误原因可能是:导入电子表格的数据格式与要求不符.", vbCritical, "导入数据错误!"

        Exit Sub   

    End If

End Sub

但我无法判断导入是否真的成功或在重复导入一个表时,这段代码也会提示导入成功,

我想在导入前先得到记录集的总数,在导入后在与之比较,来判断是否有数据导入,但比较麻烦,有其它更好的方法吗?

[此贴子已经被作者于2005-3-17 21:39:00编辑过]

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-3-19 05:16:00 | 只看该作者
"我想在导入前先得到记录集的总数,在导入后在与之比较,来判断是否有数据导入,但比较麻烦,有其它更好的方法吗?"不麻烦呀,在导入前OPEN一个RecordSet,将其RecordCount保存到一个变量里,导入后(无论是否成功)再将此变量与当前的RecordCount相比即可。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 17:24 , Processed in 0.083712 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表