這個(gè)是我在工作中編寫的代碼中的一個(gè)小篇章，拿出來(lái)和大家分享一下，一個(gè)簡(jiǎn)單而實(shí)用的合并VB.NET Excel文件的函數(shù)，能夠?qū)⒍鄠€(gè)XLS文件中指定數(shù)量的工作表自動(dòng)合并到一個(gè)XLS文件里。當(dāng)然，如果只是數(shù)據(jù)合并，則使用ADO就可以實(shí)現(xiàn)，但如果要保留表格格式，則恐怕只能使用俺的方法了。

一、VB.NET Excel文件函數(shù)代碼：

view plaincopy to clipboardprint?  
Option Explicit   
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 strPathstrPath = strPath & "\"   
'如果需要合并文件中的工作表數(shù)量小于1則退出   
If SheetCount < 1 Then Exit Function  
'刪除掉該路徑下原來(lái)的合并文件   
If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls"  
'獲得第1個(gè)XLS文件   
strSrcFile = Dir(strPath & "*.xls")   
'如果文件不存在則退出   
If Len(strSrcFile) = 0 Then Exit Function  
'創(chuàng)建一個(gè)Excel實(shí)例   
Set xlApp = CreateObject("Excel.Application")   
'新建一個(gè)工作簿   
Set xlNewBook = xlApp.Workbooks.Add   
'調(diào)整新建工作簿里工作表的數(shù)量   
ReDim nNewRows(1 To SheetCount)   
For i = 1 To SheetCount - xlNewBook.Sheets.Count   
xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count)   
Next  
'循環(huán)查找當(dāng)前路徑下的所有XLS文件   
Do  
'打開找到的XLS文件   
Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile)   
'循環(huán)復(fù)制源XLS文件里的工作表   
nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount)   
For i = 1 To nSheets   
Set xlSheet = xlSrcBook.Sheets(i)   
'獲得源XLS文件中第i個(gè)工作表實(shí)際數(shù)據(jù)的行列數(shù)   
nRows = xlSheet.UsedRange.Rows.Count   
nCols = xlSheet.UsedRange.Columns.Count   
'使用范圍對(duì)象粘貼源XLS文件數(shù)據(jù)到合并結(jié)果文件中   
Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols))   
xlRange.Select  
xlRange.Copy   
xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8   
'保存合并結(jié)果文件中第i個(gè)工作表的行數(shù)   
nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count   
Next  
'關(guān)閉打開的源XLS文件   
xlSrcBook.Close   
'繼續(xù)查找下一個(gè)XLS文件   
strSrcFile = Dir()   
Loop Until Len(strSrcFile) = 0   
'保存并關(guān)閉合并結(jié)果文件   
xlNewBook.SaveAs strPath & "合并后的文件.xls"  
xlNewBook.Close   
'退出Excel實(shí)例   
xlApp.Quit   
'釋放資源   
Erase nNewRows   
Set xlRange = Nothing 
Set xlSheet = Nothing 
Set xlNewBook = Nothing 
Set xlSrcBook = Nothing 
If Err.Number = 0 Then MergeXlsFile = True 
End Function  
Option Explicit  
 
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 strPathstrPath = strPath & "\"  
'如果需要合并文件中的工作表數(shù)量小于1則退出  
If SheetCount < 1 Then Exit Function  
'刪除掉該路徑下原來(lái)的合并文件  
If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls"  
'獲得第1個(gè)XLS文件  
strSrcFile = Dir(strPath & "*.xls")  
'如果文件不存在則退出  
If Len(strSrcFile) = 0 Then Exit Function  
'創(chuàng)建一個(gè)Excel實(shí)例  
Set xlApp = CreateObject("Excel.Application")  
'新建一個(gè)工作簿  
Set xlNewBook = xlApp.Workbooks.Add  
'調(diào)整新建工作簿里工作表的數(shù)量  
ReDim nNewRows(1 To SheetCount)  
For i = 1 To SheetCount - xlNewBook.Sheets.Count  
xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count)  
Next  
'循環(huán)查找當(dāng)前路徑下的所有XLS文件  
Do  
'打開找到的XLS文件  
Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile)  
'循環(huán)復(fù)制源XLS文件里的工作表  
nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount)  
For i = 1 To nSheets  
Set xlSheet = xlSrcBook.Sheets(i)  
'獲得源XLS文件中第i個(gè)工作表實(shí)際數(shù)據(jù)的行列數(shù)  
nRows = xlSheet.UsedRange.Rows.Count  
nCols = xlSheet.UsedRange.Columns.Count  
'使用范圍對(duì)象粘貼源XLS文件數(shù)據(jù)到合并結(jié)果文件中  
Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols))  
xlRange.Select  
xlRange.Copy  
xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8  
'保存合并結(jié)果文件中第i個(gè)工作表的行數(shù)  
nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count  
Next  
'關(guān)閉打開的源XLS文件  
xlSrcBook.Close  
'繼續(xù)查找下一個(gè)XLS文件  
strSrcFile = Dir()  
Loop Until Len(strSrcFile) = 0  
'保存并關(guān)閉合并結(jié)果文件  
xlNewBook.SaveAs strPath & "合并后的文件.xls"  
xlNewBook.Close  
'退出Excel實(shí)例  
xlApp.Quit  
'釋放資源  
Erase nNewRows  
Set xlRange = Nothing 
Set xlSheet = Nothing 
Set xlNewBook = Nothing 
Set xlSrcBook = Nothing 
If Err.Number = 0 Then MergeXlsFile = True 
End Function   

二、VB.NET Excel文件調(diào)用方法：

view plaincopy to clipboardprint?  
Sub main()   
If MergeXlsFile("c:\temp", 1) Then  
MsgBox "數(shù)據(jù)已成功合并!", vbInformation, "提示"  
Else  
MsgBox "數(shù)據(jù)合并失敗!", vbCritical, "提示"  
End If  
End Sub  

【編輯推薦】

1. 詳細(xì)分析VB.NET WithEvents
2. 淺析VB.NET局部靜態(tài)變量
3. 原理分析VB.NET開發(fā)控件
4. 自己動(dòng)手用代碼實(shí)現(xiàn)VB.NET ListView加載數(shù)據(jù)
5. 詳細(xì)介紹VB.NET MyClass