qq_41075226的博客

原创 Excel透视表设置动态范围

代码如下：'创建Dim xlApp As New Excel.ApplicationDim xlWork0 As Excel.Workbook Dim index As LongDim path As StringOn Error Resume Next '获取目录下指定文件 path = ThisWorkbook.path & "\" StrFile = Dir(path) Do While Len(StrFile) > 0