如何用VB实现Excel文件的自动合并
简单而实用的合并Excel文件的函数，能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里。当然，如果只是数据合并，则使用ADO就可以实现，但如果要保留表格格式，则恐怕只能使用俺的方法了。
一、函数代码：
Option Explicit
'* ************************************************************** *
'* 函数名称：MergeXlsFile
'* 功能：自动合并指定路径下的所有XLS文件到一个文件中
'* 参数说明：strPath：需要合并的XLS文件所在路径。
'* SheetCount：需要合并的单个工作簿中工作表数量
'* 作者：lyserver
'* 联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean
Dim i As Integer
Dim strSrcFile As String
Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer
Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object
On Error Resume Next
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
'如果需要合并文件中的工作表数量小于1则退出
If SheetCount < 1 Then Exit Function
'删除掉该路径下原来的合并文件
If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls"
'获得第1个XLS文件
strSrcFile = Dir(strPath & "*.xls")
'如果文件不存在则退出
If Len(strSrcFile) = 0 Then Exit Function
'创建一个Excel实例
Set xlApp = CreateObject("Excel.Application")
'新建一个工作簿
Set xlNewBook = xlApp.Workbooks.Add
'调整新建工作簿里工作表的数量
ReDim nNewRows(1 To SheetCount)
For i = 1 To SheetCount - xlNewBook.Sheets.Count
xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count)
Next
'循环查找当前路径下的所有XLS文件
Do
'打开找到的XLS文件
Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile)
'循环复制源XLS文件里的工作表
相关文档：
最简单用VB把asp封装成dll的入门程序
当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到<%%>标签之间的代码,并且执行它(也可以是<scri ptrunat=server></script....>之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.� ......
“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
今天做一个VB程序的自显注册码。我也不知道该怎么叫，就是找到出现注册码的地方，然后用对话框弹出来。说白了就是用MessageBox把一个字符串给弹出来（没追求阿。。。）
为了有点追求，今天不导入user32里面的API，而是把VB里面自带的Msgbox函数给挖出来调用，就是引用MSVBVM60.rtcMsgBox函数。我� ......
