多个文本文件分别拷贝到同一个Excel的不同Sheet
摘要：遇到一个需求，需要将多个文件拷贝到同一个Excel的不同Sheet中，每个文本文件一个Sheet，Sheet的名字用文本文件的名字，使用VBA可以很方便地实现这个功能，不过一直对于VB的语法有些生疏，放在这里做备份。Sub importTextFiles()'' Import Text Files to a Excel File.''Dim FilePath, FileNameFilePath = "D:\Items\"FileName = Dir(FilePath + "*.txt")Do While FileName
阅读全文
posted @ 2013-01-04 22:22