Imports XExcel = Microsoft.Office.Interop.Excel
Imports System.Collections.ObjectModel
Public Class Form1
Private Sub ButtonX1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX1.Click
Dim pSourcePath As String, pResultPath As String
Dim pSourceWB As XExcel.Workbook
pSourcePath = “T:\ExcelTest”
pResultPath = “T:\ExcelTest\Result”
‘先新建目标文件
Dim pExcelApp As New Microsoft.Office.Interop.Excel.Application
Dim pResultWB As XExcel.Workbook = pExcelApp.Workbooks.Add(XExcel.XlWBATemplate.xlWBATWorksheet)
Dim pFiles As ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(pSourcePath, FileIO.SearchOption.SearchTopLevelOnly, “*.xls”)
If (pFiles.Count <= 0) Then
Return
End If
For Each pFile As String In pFiles
pSourceWB = pExcelApp.Workbooks.Open(pFile)
Dim pResultSheet As XExcel.Worksheet = pResultWB.Sheets.Add()
Dim pSourceSheet As XExcel.Worksheet = pSourceWB.Sheets(1)
With pSourceSheet
.UsedRange.Copy(pResultSheet.Range(pResultSheet.Cells(1, 1), pResultSheet.Cells(100, 10))) ‘,
pResultSheet.Name = pSourceWB.Name
pSourceWB.Close(False)
End With
Next
pResultWB.SaveAs(pResultPath & “\” & “Result.xls”)
pResultWB.Close()
pExcelApp.Workbooks.Close()
pExcelApp.Quit()
For Each pFile As String In pFiles
My.Computer.FileSystem.DeleteFile(pFile)
Next
MsgBox(“合并完成”)
End Sub
End Class
最新电影，电视剧，尽在午夜剧场
近期评论