通过前三篇的介绍,对VBA有了更进一步的认识了吧。
(一) VBA简介
(二) VBA跨Excel读取数据
(三) VBA模糊查找数据
现在我直接贴出我写的其中一个sub的内容吧。完整的内容从资源里面看吧
Sub GetATValue()
Debug.Print
Debug.Print "Start ++++++++++++++++++++++++++++++++++++"
Dim RootFolder, FolderArray(), FolderName, CurrentFolderPath, FileName, CurrentFilePath
'获取当前路径
RootFolder = ActiveWorkbook.Path & "\" '当前工作路径
Debug.Print "根路径:" & RootFo