[已解决]谢谢枯禅老师，导出数据时电脑提示出错

lhj323323

eMfEOij1.rar (42.43 KB, 下载次数: 1)

2010-11-10 18:37 上传

点击文件名下载附件
[求助]导出数据时电脑提示出错

老师：

我在运行程序时，电脑离提示如下错误

运行时错误'91'
对象变量或with块变量未设置

请问我该怎么改？

另，结果表[网点明细]中的已有数据请不要删除,即A列、B列、第1行和第2行

[此贴子已经被作者于2010-11-10 20:49:53编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-11-10 18:46

没细看代码，看看是不是这个意思？

Sub 分类汇总()
'将数据源[核算码日报]的F列余额按网点导入到[网点明细]的[D:H]列
Dim Myr3%, Myr2%, arr, i%, col%, r1, r2
Dim m%
't = Timer
Application.ScreenUpdating = False

arr = Sheet5.Range("b2:f" & Sheet5.[b65536].End(xlUp).Row) '设定数据源[核算码日报]的取数区域

Sheet6.Activate '网点明细
Myr3 = [a2].CurrentRegion.Rows.Count '结果表的a列第2行单元格标题所在的行的最大行数
Range("d3:h" & Myr3) = "" '清空数据导入区
For i = 1 To UBound(arr)
    Set r1 = Rows(1).Find(arr(i, 1)) 'r1未设变量，将[网点明细]的第1行（辖内机构号）与arr的第1列即[核算码日报]的B列进行对比
    col = r1.Column

    Set r2 = Columns(1).Find(arr(i, 2), , , xlWhole) 'r2未设变量，将[网点明细]的第1列（核算码）与arr的第2列即[核算码日报]的C列进行对比
   If Not r2 Is Nothing Then
    m = r2.Row

 '*****************************************************
    '方法1,由于Sheet5还存在借方余额在E列,如核算码6225,而我们多数是将F列的余额导出,如用方法1,将在执行按纽[分类汇总]前依靠用户手工将Sheet5中E列的余额调整到F列,并自行添加负号
         'Cells(m, col) = arr(i, 5) '
    '方法2,解决了方法1的不足
         'If arr(i, 14) = 0 And arr(i, 13) > 0 Then
         If arr(i, 5) = 0 And arr(i, 4) > 0 Then
            Cells(m, col) = -arr(i, 4)
         Else
            Cells(m, col) = arr(i, 5)
         End If
        End If
 '*****************************************************
Next i
Application.ScreenUpdating = True

    'MsgBox Timer - t
End Sub

跳转到最佳答案楼层

枯禅

没细看代码，看看是不是这个意思？

Sub 分类汇总()
'将数据源[核算码日报]的F列余额按网点导入到[网点明细]的[D:H]列
Dim Myr3%, Myr2%, arr, i%, col%, r1, r2
Dim m%
't = Timer
Application.ScreenUpdating = False

arr = Sheet5.Range("b2:f" & Sheet5.[b65536].End(xlUp).Row) '设定数据源[核算码日报]的取数区域

Sheet6.Activate '网点明细
Myr3 = [a2].CurrentRegion.Rows.Count '结果表的a列第2行单元格标题所在的行的最大行数
Range("d3:h" & Myr3) = "" '清空数据导入区
For i = 1 To UBound(arr)
    Set r1 = Rows(1).Find(arr(i, 1)) 'r1未设变量，将[网点明细]的第1行（辖内机构号）与arr的第1列即[核算码日报]的B列进行对比
    col = r1.Column

    Set r2 = Columns(1).Find(arr(i, 2), , , xlWhole) 'r2未设变量，将[网点明细]的第1列（核算码）与arr的第2列即[核算码日报]的C列进行对比
   If Not r2 Is Nothing Then
    m = r2.Row

 '*****************************************************
    '方法1,由于Sheet5还存在借方余额在E列,如核算码6225,而我们多数是将F列的余额导出,如用方法1,将在执行按纽[分类汇总]前依靠用户手工将Sheet5中E列的余额调整到F列,并自行添加负号
         'Cells(m, col) = arr(i, 5) '
    '方法2,解决了方法1的不足
         'If arr(i, 14) = 0 And arr(i, 13) > 0 Then
         If arr(i, 5) = 0 And arr(i, 4) > 0 Then
            Cells(m, col) = -arr(i, 4)
         Else
            Cells(m, col) = arr(i, 5)
         End If
        End If
 '*****************************************************
Next i
Application.ScreenUpdating = True

    'MsgBox Timer - t
End Sub

那么的帅

没找到 内容时 ，会出现上述提示。

不知道你这段代码的含义

lhj323323

QUOTE:

以下是引用那么的帅在2010-11-10 18:48:00的发言：

没找到 内容时 ，会出现上述提示。

不知道你这段代码的含义

爱疯老师：

程序的目的是：

数据源的B列是5个营业部的代码，C列是这5个营业部在某一天涉及的业务，D列是这些业务的中文名称，E列暂时没有和，F列是程序需要调用的营业额

我需要统计在某一天这5家营业部在各项业务上发生的营业额。

即

用数据源[核算码日报]中的B列与结果表[网点明细]的第1行进行匹配

用数据源[核算码日报]中的C列与结果表[网点明细]的第1列进行匹配

两个标准都匹配上的就将F列期未贷方余额导入到结果表的D列到H列中

不知我解释清楚没有