摘要: Sub dbhb() '多表文件合并'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*" For i = 1 To 100' ra 阅读全文
posted @ 2020-02-11 11:50 紫辰花月 阅读(170) 评论(0) 推荐(0) 编辑