多个文本文件分别拷贝到同一个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 佛西亚 阅读(2425) 评论(1) 推荐(0) 编辑