如何用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之二，毫秒篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
在vb中如何获得毫秒精度级别的时间？vb的时间函数不支持毫秒，需要利用windows的基本API，编写程序才能获取毫秒级 ......
引言:
做一个控件, 用于 数据采样如示波器, 可以添加,删除曲线, 设置曲线的相关属性: 线型,颜色,等...
过程:
先创建 线 类, 在用户控件里实现 线 对象创建, 并声明一个 集合, 用于 存放建立的线对象.
问题 ......
不能直接使用CopyMemoryStr，应该将字符串转为byte数组，然后使用CopyMemory
Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long, ptr0 As Long
Dim ab() As Byte
& ......
重拾VB之三，二进制文件篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
读取、修改二进制文件仍是大部分编程语言的基本开发技能。可以提高处理文件效率，主要应用在通信、交换数据等方面。
'open filena ......
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便的制作出自己的OCX控件供我们在编程中使用同时还可以把它送给你周围喜欢编程的朋友!
下面列出制� ......
