日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
讓你熟練掌握VB.NETExcel文件運用

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

成都創(chuàng)新互聯(lián)公司2013年至今，先為墨江等服務建站，墨江等地企業(yè)，進行企業(yè)商務咨詢服務。為墨江企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

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

 
 
 
    
  
  
  
  1. view plaincopy to clipboardprint?  
    2.   
  
  
  2. Option Explicit   
    3.   
  
  
  3. Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean  
    4.   
  
  
  4. Dim i As Integer  
    5.   
  
  
  5. Dim strSrcFile As String  
    6.   
  
  
  6. Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer  
    7.   
  
  
  7. Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object  
    8.   
  
  
  8. On Error Resume Next  
    9.   
  
  
  9. If Right(strPath, 1) <> "\" Then strPathstrPath = strPath & "\"   
    10.   
  
  
  10. '如果需要合并文件中的工作表數(shù)量小于1則退出   
    11.   
  
  
  11. If SheetCount < 1 Then Exit Function  
    12.   
  
  
  12. '刪除掉該路徑下原來的合并文件   
    13.   
  
  
  13. If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls"  
    14.   
  
  
  14. '獲得第1個XLS文件   
    15.   
  
  
  15. strSrcFile = Dir(strPath & "*.xls")   
    16.   
  
  
  16. '如果文件不存在則退出   
    17.   
  
  
  17. If Len(strSrcFile) = 0 Then Exit Function  
    18.   
  
  
  18. '創(chuàng)建一個Excel實例   
    19.   
  
  
  19. Set xlApp = CreateObject("Excel.Application")   
    20.   
  
  
  20. '新建一個工作簿   
    21.   
  
  
  21. Set xlNewBook = xlApp.Workbooks.Add   
    22.   
  
  
  22. '調(diào)整新建工作簿里工作表的數(shù)量   
    23.   
  
  
  23. ReDim nNewRows(1 To SheetCount)   
    24.   
  
  
  24. For i = 1 To SheetCount - xlNewBook.Sheets.Count   
    25.   
  
  
  25. xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count)   
    26.   
  
  
  26. Next  
    27.   
  
  
  27. '循環(huán)查找當前路徑下的所有XLS文件   
    28.   
  
  
  28. Do  
    29.   
  
  
  29. '打開找到的XLS文件   
    30.   
  
  
  30. Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile)   
    31.   
  
  
  31. '循環(huán)復制源XLS文件里的工作表   
    32.   
  
  
  32. nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount)   
    33.   
  
  
  33. For i = 1 To nSheets   
    34.   
  
  
  34. Set xlSheet = xlSrcBook.Sheets(i)   
    35.   
  
  
  35. '獲得源XLS文件中第i個工作表實際數(shù)據(jù)的行列數(shù)   
    36.   
  
  
  36. nRows = xlSheet.UsedRange.Rows.Count   
    37.   
  
  
  37. nCols = xlSheet.UsedRange.Columns.Count   
    38.   
  
  
  38. '使用范圍對象粘貼源XLS文件數(shù)據(jù)到合并結(jié)果文件中   
    39.   
  
  
  39. Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols))   
    40.   
  
  
  40. xlRange.Select  
    41.   
  
  
  41. xlRange.Copy   
    42.   
  
  
  42. xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8   
    43.   
  
  
  43. '保存合并結(jié)果文件中第i個工作表的行數(shù)   
    44.   
  
  
  44. nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count   
    45.   
  
  
  45. Next  
    46.   
  
  
  46. '關(guān)閉打開的源XLS文件   
    47.   
  
  
  47. xlSrcBook.Close   
    48.   
  
  
  48. '繼續(xù)查找下一個XLS文件   
    49.   
  
  
  49. strSrcFile = Dir()   
    50.   
  
  
  50. Loop Until Len(strSrcFile) = 0   
    51.   
  
  
  51. '保存并關(guān)閉合并結(jié)果文件   
    52.   
  
  
  52. xlNewBook.SaveAs strPath & "合并后的文件.xls"  
    53.   
  
  
  53. xlNewBook.Close   
    54.   
  
  
  54. '退出Excel實例   
    55.   
  
  
  55. xlApp.Quit   
    56.   
  
  
  56. '釋放資源   
    57.   
  
  
  57. Erase nNewRows   
    58.   
  
  
  58. Set xlRange = Nothing 
    59.   
  
  
  59. Set xlSheet = Nothing 
    60.   
  
  
  60. Set xlNewBook = Nothing 
    61.   
  
  
  61. Set xlSrcBook = Nothing 
    62.   
  
  
  62. If Err.Number = 0 Then MergeXlsFile = True 
    63.   
  
  
  63. End Function  
    64.   
  
  
  64. Option Explicit  
    65.   
  
  
  65.  
    66.   
  
  
  66. Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean  
    67.   
  
  
  67. Dim i As Integer  
    68.   
  
  
  68. Dim strSrcFile As String  
    69.   
  
  
  69. Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer  
    70.   
  
  
  70. Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object  
    71.   
  
  
  71.  
    72.   
  
  
  72. On Error Resume Next  
    73.   
  
  
  73. If Right(strPath, 1) <> "\" Then strPathstrPath = strPath & "\"  
    74.   
  
  
  74. '如果需要合并文件中的工作表數(shù)量小于1則退出  
    75.   
  
  
  75. If SheetCount < 1 Then Exit Function  
    76.   
  
  
  76. '刪除掉該路徑下原來的合并文件  
    77.   
  
  
  77. If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls"  
    78.   
  
  
  78. '獲得第1個XLS文件  
    79.   
  
  
  79. strSrcFile = Dir(strPath & "*.xls")  
    80.   
  
  
  80. '如果文件不存在則退出  
    81.   
  
  
  81. If Len(strSrcFile) = 0 Then Exit Function  
    82.   
  
  
  82. '創(chuàng)建一個Excel實例  
    83.   
  
  
  83. Set xlApp = CreateObject("Excel.Application")  
    84.   
  
  
  84. '新建一個工作簿  
    85.   
  
  
  85. Set xlNewBook = xlApp.Workbooks.Add  
    86.   
  
  
  86. '調(diào)整新建工作簿里工作表的數(shù)量  
    87.   
  
  
  87. ReDim nNewRows(1 To SheetCount)  
    88.   
  
  
  88. For i = 1 To SheetCount - xlNewBook.Sheets.Count  
    89.   
  
  
  89. xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count)  
    90.   
  
  
  90. Next  
    91.   
  
  
  91. '循環(huán)查找當前路徑下的所有XLS文件  
    92.   
  
  
  92. Do  
    93.   
  
  
  93. '打開找到的XLS文件  
    94.   
  
  
  94. Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile)  
    95.   
  
  
  95. '循環(huán)復制源XLS文件里的工作表  
    96.   
  
  
  96. nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount)  
    97.   
  
  
  97. For i = 1 To nSheets  
    98.   
  
  
  98. Set xlSheet = xlSrcBook.Sheets(i)  
    99.   
  
  
  99. '獲得源XLS文件中第i個工作表實際數(shù)據(jù)的行列數(shù)  
    100.   
  
  
  100. nRows = xlSheet.UsedRange.Rows.Count  
    101.   
  
  
  101. nCols = xlSheet.UsedRange.Columns.Count  
    102.   
  
  
  102. '使用范圍對象粘貼源XLS文件數(shù)據(jù)到合并結(jié)果文件中  
    103.   
  
  
  103. Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols))  
    104.   
  
  
  104. xlRange.Select  
    105.   
  
  
  105. xlRange.Copy  
    106.   
  
  
  106. xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8  
    107.   
  
  
  107. '保存合并結(jié)果文件中第i個工作表的行數(shù)  
    108.   
  
  
  108. nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count  
    109.   
  
  
  109. Next  
    110.   
  
  
  110. '關(guān)閉打開的源XLS文件  
    111.   
  
  
  111. xlSrcBook.Close  
    112.   
  
  
  112. '繼續(xù)查找下一個XLS文件  
    113.   
  
  
  113. strSrcFile = Dir()  
    114.   
  
  
  114. Loop Until Len(strSrcFile) = 0  
    115.   
  
  
  115. '保存并關(guān)閉合并結(jié)果文件  
    116.   
  
  
  116. xlNewBook.SaveAs strPath & "合并后的文件.xls"  
    117.   
  
  
  117. xlNewBook.Close  
    118.   
  
  
  118. '退出Excel實例  
    119.   
  
  
  119. xlApp.Quit  
    120.   
  
  
  120. '釋放資源  
    121.   
  
  
  121. Erase nNewRows  
    122.   
  
  
  122. Set xlRange = Nothing 
    123.   
  
  
  123. Set xlSheet = Nothing 
    124.   
  
  
  124. Set xlNewBook = Nothing 
    125.   
  
  
  125. Set xlSrcBook = Nothing 
    126.   
  
  
  126. If Err.Number = 0 Then MergeXlsFile = True 
    127.   
  
  
  127. End Function   
    128.

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

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

網(wǎng)站題目：讓你熟練掌握VB.NETExcel文件運用
文章鏈接：http://www.5511xx.com/article/ccosohg.html