vba打開excel文件遍歷sheet的名字和指定單元格的值

今天項目上有個應用，獲取指定Excel文件下的所有sheet的名稱以及當前sheet中指定單元格的值，並把他們寫到固定的sheet中去，看了下，文件比較多，而且每個文件sheet的個數比較多，也不一樣，所以打算寫個程序來幫我們實現任務，代碼很簡單，也寫的比較死板。歡迎大家給出意見及你的代碼：

Sub aaaa()
Dim sh1, sh2 As Worksheet
Dim shName, cellValue As String
'On Error Resume Next

Set sh1 = Workbooks(1).Sheets(1)
'Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\TA Opex Report 2014.xlsx"
Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\Rolling PL Template v1 (2).xlsx"

For i = 1 To Workbooks(2).Worksheets.Count
    Workbooks(2).Activate
    Set sh2 = ActiveWorkbook.Worksheets(i)
    sh2.Activate
    n = sh2.Name
    'v = sh2.Cells(5, 7).Value  'G5單元格
    v = sh2.Cells(4, 3).Value  'C4單元格
    
    Workbooks(1).Activate
    sh1.Activate
    sh1.Cells(i, 1) = n
    sh1.Cells(i, 2) = v
    
Next
Workbooks(2).Close
End Sub
  

版權：以上代碼由本人開發，版權歸 http://www.cnblogs.com/mq0036 個人所有。若用於非商業目的，您可以自由轉載，轉載請注明出處。