VBA常用技巧代码解析

可以友

谢谢！无私奉献！

nemo0485

太强悍了  ,谢谢楼主.

yzjqrz

找了很久了

hawzh

太強大了，要學習一下，呵呵

417744370

太棒了，正在学习中。挣取早日学成，解决本单位的问题！

bessie1114

下载来看看。。。

apple_058

非常感谢楼主分享，顶你。

A0101

版主辛苦了，谢谢!

chengshanming

不错的帖子，学习下！

kutenglaoshu

拟把疏狂醉 发表于 2016-8-2 15:24
Sub UsingMacroFunction()
    Dim RCount As Long
    Dim CCount As Long

  Sub CopyData_4()
        Dim RCount As Long
        Dim CCount As Long
        Dim Temp As String
        Dim Temp1 As String
        Dim Temp2 As String
        Dim Temp3 As String
        Dim r As Long
        Dim c As Long
       Dim arr() As Variant
      
'       Application.ReferenceStyle = xlR1C1
  
      
       Temp = "'" & ThisWorkbook.Path & "\[数据表.xls]Sheet1'!"
'       Temp1 = Temp & Rows(1).Address(, , xlR1C1)
       Temp1 = "Counta(" & Temp & Rows(1).Address(, , xlR1C1) & ")"
       CCount = Application.ExecuteExcel4Macro(Temp1)
'       Temp2 = Temp & Columns("A").Address(, , xlR1C1)
       Temp2 = "Counta(" & Temp & Columns("A").Address(, , xlR1C1) & ")"
       RCount = Application.ExecuteExcel4Macro(Temp2)
      
       ReDim arr(1 To RCount, 1 To CCount)
       For r = 1 To RCount
           For c = 1 To CCount
               Temp3 = Temp & Cells(r, c).Address(, , xlR1C1)
               arr(r, c) = Application.ExecuteExcel4Macro(Temp3)
           Next
       Next
       Range("A1").Resize(RCount, CCount).Value = arr
'            Application.ReferenceStyle = xlA1
End Sub

我用的版本是excel2013,想要不打开工作薄而引用里边的内容. 结果也是出现了'内存溢出'; 然后, 我把[数据表.xls] 另存为了 [数据表.xlsx],再去运行代码, 运行流畅,未出现'内存溢出'的error提示.