Excel VbA 读取某个文件夹下所有文件的内容.docVIP

Excel VbA 读取某个文件夹下所有文件的内容 Sub GetAFolderMoreWorkBooks() Dim fPath As String ‘路径名 Dim fName As String ‘文件名 Dim sName As String ‘工作表名称 Dim cellRange As String ‘单元格范围 Dim fNameCount As Integer ‘文件数目 Dim fNameList() As String ‘文件名列表 Dim rValue As Variant ‘某个单元格中的值 Dim j As Integer Dim oldCol As Integer ‘文件夹下表格的活动单元格 Dim newCol As Integer ‘新生成表格的活动单元格 j = 1 oldCol = 11 newCol = 1 fPath = C:\Documents and Settings\USER\デスクトップ\check sName = レビュー記録 fName = Dir(fPath \ *.xls) While fName ‘获取该文件夹下所有表格的名字 fNameCount = fNameCount + 1 ReDim Preserve fNa