VBA打开文件夹下所有excel文件并复制数据

wlgzs

VBA打开文件夹下所有excel文件并复制数据...看附件
请问如何用VBA复制文件夹中的所有excel文件的数据（各个文件行数并不相同），将复制的内容依次粘贴到分析数据.xls汇总,谢谢。

zhaogang1960

试试
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, arr
    Set sh = ActiveSheet
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    Application.ScreenUpdating = False
    [a1].CurrentRegion.Offset(2).ClearContents
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
                arr = .Sheets(1).[a1].CurrentRegion.Offset(1)
                sh.[a65536].End(xlUp).Offset(1).Resize(UBound(arr) - 1, 8) = arr
                .Close False
            End With
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

zhaogang1960

附件
采集系统.rar (18.59 KB, 下载次数: 566)

2011-3-12 13:51 上传

点击文件名下载附件

wlgzs

非常感谢,我的硬件采集系统终于完善了

mashimaro0425

zhaogang1960 发表于 2011-3-12 13:50
试试
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, arr

请问这一句的dim是什么意思呢？$表示什么data type? arr又是什么呢？
“Dim MyPath$, MyName$, sh As Worksheet, arr“
谢谢

zhaogang1960

mashimaro0425 发表于 2011-12-14 16:55
请问这一句的dim是什么意思呢？$表示什么data type? arr又是什么呢？
“Dim MyPath$, MyName$, sh As Wo ...

请参阅VBA帮助

String 数据类型
      

字符串有两种：变长与定长的字符串。

变长字符串最多可包含大约 20 亿 ( 2^31)个字符。


定长字符串可包含 1 到大约 64K ( 2^16 ) 个字符。
注意 Public 定长字符串不能在类模块中使用。

String 之字符码的范围是 0 到 255。字符集的前 128 个字符（0 到 127）对应于标准的 U.S. 键盘上的字符与符号。这前 128 个字符与 ASCII 字符集中所定义的相同。后 128 个字符（128 到 255）则代表特殊字符，例如国际字符，重音符号，货币符号及分数。String 的类型声明字符为美元号 ($)。


arr是Variant 数据类型，完整声明：Dim arr As Variant
把Array、Split函数生成的一维数组，或数据区域数据赋给该类型变量，可以作为数组使用

hanjianfeng

学习了{:soso_e100:}

mashimaro0425

zhaogang1960 发表于 2011-12-14 17:01
请参阅VBA帮助

String 数据类型

谢谢学习了。

mashimaro0425

zhaogang1960 发表于 2011-12-14 17:01
请参阅VBA帮助

String 数据类型

那如果dim aaa&,这里面的&符号又是什么呢？

zhaogang1960

mashimaro0425 发表于 2011-12-15 14:07
那如果dim aaa&,这里面的&符号又是什么呢？

Long 数据类型
      

Long（长整型）变量存储为 32 位（4 个字节）有符号的数值形式，其范围从 -2,147,483,648 到 2,147,483,647。Long 的类型声明字符为和号 (&)。