如何从多个Excel文件中提取指定单元格数据

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

深圳市励拓软件有限公司
2017-02-07 · 互联网+时代高效组织信息化平台

深圳市励拓软件有限公司

汇讯WiseUC企业即时通讯软件是一款以组织内沟通交流为基础，即时通讯为核心，融合办公协同、IT系统集成，帮助企业降低运营成本、提升组织效率的企业级沟通协同平台。

向TA提问

关注

展开全部

Set SH0 = Worksheets("Sheet1")

SH0.Range("A2:C65536").ClearContents

IROW = 2

FileArr = FileAllArr(ThisWorkbook.Path & "", "*.xls?", ThisWorkbook.Name, True, False)

For I = 0 To UBound(FileArr)

Set WB = Workbooks.Open(FileArr(I), CorruptLoad:=xlExtractData) '//打开工作簿

Set SHX = WB.Worksheets(1)

SH0.Cells(IROW, 1) = GetPathFromFileName(FileArr(I), False)

SH0.Cells(IROW, 2) = SHX.Range(SH0.Cells(1, 2))

SH0.Cells(IROW, 3) = SHX.Range(SH0.Cells(1, 3))

IROW = IROW + 1

WB.Close False '//保存

Next
复制代码