怎么用Excel VBA实现读取各个Excel文件指定sheet的内容到指定的一个sheet内

2012-01-11

如何用Excel VBA实现读取各个Excel文件指定sheet的内容到指定的一个sheet内。题目说的比较笼统，下面是具体

如何用Excel VBA实现读取各个Excel文件指定sheet的内容到指定的一个sheet内。
题目说的比较笼统，下面是具体的内容
1）想用一个VBA读取一个文件夹下的各个Excel的一个指定的sheet页。
2）读取的这个sheet页的内容有N列M行，要求把这N列M行读写到指定的一个sheet页内。
3）读取完上个Excel文件的sheet页的内容后，自动读取下一个Excel文件，接着往下记录。

[解决办法]
循环
打开--复制--粘贴--关闭
[解决办法]

探讨
在网上找到了一段历遍文件夹的VBA代码，试验了一下。可以执行。和之前我做的写入部分连接起来就可以达到我之前所说的目的了。
（一点点小补充，感觉好像效率没有直接写数组的方法快，直接运行历遍代码读取网络服务器上的文件夹，大概需要一秒多的时间可以显示出来这个文件夹内一共的.xls数，时间大多在网络通信上。但是和写入部分连接整合之后，用数组5分钟之内能搞定的事情，这个好像需要更长的时间，所以依然在使用着老方法）
VB codeSub test()Dim sFolderAsStringDim wbAs WorkbookDim iAsLongWith Application.FileSearch
.NewSearch
.LookIn="folderpath"' .SearchSubFolders=True
.filename="*.xls"
.FileType= msoFileTypeExcelWorkbooksIf .Execute()>0Then'Else'Error MessageEndIfEndWithEnd Sub

热点排行

OFFICE教程

怎么用Excel VBA实现读取各个Excel文件指定sheet的内容到指定的一个sheet内