运行时错误6溢出

daybreakklwb

这是一个弹出客户列表窗体。偶尔出现溢出。请大侠们指点一下。谢谢！

说明一下
《外部数据库》表中的内容是从外部导入的，以下是导入程序
Sub 导入_产品台账数据()
   
    Dim r& '定义引用行r
        r = 21
   
    Dim pathFileSaved As String '定义指定目录的文件名
        pathFileSaved = Worksheets("引用参数").Cells(r, "A").Value
            bakFileNm = Worksheets("引用参数").Cells(r, "B").Value
                myfilename = pathFileSaved & bakFileNm
    t = Timer
   
    If Dir(myfilename) = "" Then MsgBox ("当期产品台账不存在，请与管理员联系"): Exit Sub '判断台账是否存在
        
    On Error Resume Next '判断台账是否打开
    If Len(Workbooks(bakFileNm).Name) > 0 Then
        If eRR.Number = 9 Then
            Workbooks.Open Filename:=myfilename, ReadOnly:=True
        End If
    End If
   
    Windows(bakFileNm).Activate '导入台账数据后关闭文件
        Worksheets("数据库").Activate
            ActiveWorkbook.Sheets("数据库").Range("数据库!数据表").Select
                Selection.Copy
                    ThisWorkbook.Sheets("外部数据库").Range("A1").PasteSpecial Paste:=xlValues
    Windows(bakFileNm).Activate
        Worksheets("样品模").Activate
            ActiveWorkbook.Sheets("样品模").Range("样品模!样模数据").Select
                Selection.Copy
                    ThisWorkbook.Sheets("外部数据库").Range("A65535").End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = xlCut
    MsgBox "导入数据完毕，用时 " & (Timer - t) & " 秒"
   
    Windows(bakFileNm).Activate '激活并关闭产品台账'
        ActiveWorkbook.Close False
            ThisWorkbook.Activate
End Sub
发生错误时都是在导入之后，但大多时候导入后均未出错。是否导入有问题。
谢谢大侠们的回复

蓝桥玄霜

没有表格附件不能测试代码。

Zamyi

范围太大，缩小RANGE的范围

daybreakklwb

Zamyi 发表于 2012-8-10 14:32
范围太大，缩小RANGE的范围

谢谢！
但大多时候没问题，可以用，而且很多表单都是引用同一个数据范围，均未发生问题。
同时谢谢2楼，由于太多关于商业数据，不能上传附件。

Zamyi

r=cells在03版下需要约270M连续内存，当内存吃紧时就会溢出。

daybreakklwb

Zamyi 发表于 2012-8-10 14:58
r=cells在03版下需要约270M连续内存，当内存吃紧时就会溢出。

谢谢！
我的内存应该没问题。3G

讲古派

不是有个代码 当遇到错误时可以忽略错误继续运行下一行代码的吗?你找找,再根据你的代码插入到相应位置.

Zamyi

讲古派 发表于 2012-8-10 15:24
不是有个代码 当遇到错误时可以忽略错误继续运行下一行代码的吗?你找找,再根据你的代码插入到相应位置.

“当遇到错误时可以忽略错误继续运行”是要根据具体情况而定，随便使用会使结果面目全非。

daybreakklwb

谢谢各位帮助。原因我找到了，是数据范围内有不相应的单元格自定义格式。

以后的我

daybreakklwb 发表于 2012-8-11 13:14
谢谢各位帮助。原因我找到了，是数据范围内有不相应的单元格自定义格式。

你能说具体点吗，我也遇到了你这个问题啊~~~~，急啊。。。。。。。