[英]Copying data from multiple workbooks into a new worksheet with the worksheet name same as the workbook name
我需要將多個工作簿中的數據復制到一個工作簿中。我的工作表名稱與每個工作簿的工作簿名稱相同，因此我的工作表名稱會隨着工作簿而不斷變化，我無法執行代碼。
Private Sub btn_upload_Click()
Const FOLDER As String = "C:\ECGCSplit\"
On Error GoTo ErrorHandler
Dim i As Integer i = 3
Dim sheetName As String
sheetName = Dir(FOLDER, vbDirectory)
Do While Len(sheetName) > 0
If Right$(sheetName, 4) = "xlsx" Or Right$(sheetName, 3) = "xls" Then
Dim sheetName As String
Set sheetName = Right(fileName, 4)...(I am getting error here)
Dim currentWkbk As Excel.Workbook
Set currentWkbk = Excel.Workbooks.Open(FOLDER & sheetName)
Cells(i, 2) = fileName
Cells(i, 3) = currentWkbk.Sheets(sheetName).Cells(5, 4).Value
Cells(i, 4) = currentWkbk.Sheets(sheetName).Cells(11, 4).Value
Cells(i, 5) = currentWkbk.Sheets(sheetName).Cells(15, 4).Value
Cells(i, 6) = currentWkbk.Sheets(sheetName).Cells(19, 4).Value
Cells(i, 7) = currentWkbk.Sheets(sheetName).Cells(22, 4).Value
Cells(i, 8) = currentWkbk.Sheets(sheetName).Cells(26, 4).Value
Cells(i, 9) = currentWkbk.Sheets(sheetName).Cells(30, 4).Value
Cells(i, 10) = currentWkbk.Sheets(sheetName).Cells(34, 4).Value
Cells(i, 11) = currentWkbk.Sheets(sheetName).Cells(39, 4).Value
Cells(i, 12) = currentWkbk.Sheets(sheetName).Cells(44, 4).Value
Cells(i, 13) = currentWkbk.Sheets(sheetName).Cells(49, 4).Value
Cells(i, 14) = currentWkbk.Sheets(sheetName).Cells(54, 4).Value
Cells(i, 15) = currentWkbk.Sheets(sheetName).Cells(60, 4).Value
Cells(i, 16) = currentWkbk.Sheets(sheetName).Cells(67, 4).Value
Cells(i, 17) = currentWkbk.Sheets(sheetName).Cells(71, 4).Value
Cells(i, 18) = currentWkbk.Sheets(sheetName).Cells(77, 4).Value
Cells(i, 19) = currentWkbk.Sheets(sheetName).Cells(80, 4).Value
Cells(i, 20) = currentWkbk.Sheets(sheetName).Cells(90, 4).Value
Cells(i, 21) = currentWkbk.Sheets(sheetName).Cells(98, 4).Value
Cells(i, 22) = currentWkbk.Sheets(sheetName).Cells(104, 4).Value
Cells(i, 23) = currentWkbk.Sheets(sheetName).Cells(108, 4).Value
Cells(i, 24) = currentWkbk.Sheets(sheetName).Cells(111, 4).Value
Cells(i, 25) = currentWkbk.Sheets(sheetName).Cells(115, 4).Value
Cells(i, 26) = currentWkbk.Sheets(sheetName).Cells(119, 4).Value
Cells(i, 27) = currentWkbk.Sheets(sheetName).Cells(128, 4).Value
Cells(i, 28) = currentWkbk.Sheets(sheetName).Cells(135, 4).Value
Cells(i, 29) = currentWkbk.Sheets(sheetName).Cells(140, 4).Value
Cells(i, 30) = currentWkbk.Sheets(sheetName).Cells(147, 4).Value
Cells(i, 31) = currentWkbk.Sheets(sheetName).Cells(154, 4).Value
Cells(i, 32) = currentWkbk.Sheets(sheetName).Cells(162, 4).Value
Cells(i, 33) = currentWkbk.Sheets(sheetName).Cells(166, 4).Value
Cells(i, 34) = currentWkbk.Sheets(sheetName).Cells(169, 4).Value
Cells(i, 35) = currentWkbk.Sheets(sheetName).Cells(172, 4).Value
Cells(i, 36) = currentWkbk.Sheets(sheetName).Cells(182, 4).Value
Cells(i, 37) = currentWkbk.Sheets(sheetName).Cells(188, 4).Value
Cells(i, 38) = currentWkbk.Sheets(sheetName).Cells(193, 4).Value
Cells(i, 39) = currentWkbk.Sheets(sheetName).Cells(199, 4).Value
Cells(i, 40) = currentWkbk.Sheets(sheetName).Cells(210, 4).Value
Cells(i, 41) = currentWkbk.Sheets(sheetName).Cells(215, 4).Value
Cells(i, 42) = currentWkbk.Sheets(sheetName).Cells(222, 4).Value
Cells(i, 43) = currentWkbk.Sheets(sheetName).Cells(225, 4).Value
Cells(i, 44) = currentWkbk.Sheets(sheetName).Cells(229, 4).Value
Cells(i, 45) = currentWkbk.Sheets(sheetName).Cells(232, 4).Value
Cells(i, 46) = currentWkbk.Sheets(sheetName).Cells(236, 4).Value
Cells(i, 47) = currentWkbk.Sheets(sheetName).Cells(239, 4).Value
Cells(i, 48) = currentWkbk.Sheets(sheetName).Cells(248, 4).Value
Cells(i, 49) = currentWkbk.Sheets(sheetName).Cells(253, 4).Value
Cells(i, 50) = currentWkbk.Sheets(sheetName).Cells(258, 4).Value
Cells(i, 51) = currentWkbk.Sheets(sheetName).Cells(265, 4).Value
Cells(i, 52) = currentWkbk.Sheets(sheetName).Cells(269, 4).Value
Cells(i, 53) = currentWkbk.Sheets(sheetName).Cells(272, 4).Value
Cells(i, 54) = currentWkbk.Sheets(sheetName).Cells(279, 4).Value
Cells(i, 55) = currentWkbk.Sheets(sheetName).Cells(283, 4).Value
Cells(i, 56) = currentWkbk.Sheets(sheetName).Cells(286, 4).Value
i = i + 1
currentWkbk.Close
End If
sheetName = Dir
Loop
ProgramExit: Exit Sub
ErrorHandler: MsgBox Err.Number & " - " & Err.Description
Resume
ProgramExit
End Sub
Private Sub btn_upload_Click()
Const FOLDER As String = "C:\ECGCSplit\"
Dim i As Integer
i = 3
Dim fileName As String
fileName = Dir(FOLDER, vbDirectory)
Do While Len(fileName) > 0
If Right$(fileName, 4) = "xlsx" Or Right$(fileName, 3) = "xls" Then
Dim sheetName As String
If Right$(fileName, 4) = "xlsx" Then
sheetName = Mid(fileName, 1, InStr(fileName, ".xlsx") - 1)
ElseIf Right$(fileName, 3) = "xls" Then
sheetName = Mid(fileName, 1, InStr(fileName, ".xls") - 1)
End If
Dim currentWkbk As Excel.Workbook
Set currentWkbk = Excel.Workbooks.Open(FOLDER & fileName)
Cells(i, 2) = fileName
Cells(i, 3) = currentWkbk.Sheets(sheetName).Cells(5, 4).Value
Cells(i, 4) = currentWkbk.Sheets(sheetName).Cells(11, 4).Value
Cells(i, 5) = currentWkbk.Sheets(sheetName).Cells(15, 4).Value
Cells(i, 6) = currentWkbk.Sheets(sheetName).Cells(19, 4).Value
Cells(i, 7) = currentWkbk.Sheets(sheetName).Cells(22, 4).Value
Cells(i, 8) = currentWkbk.Sheets(sheetName).Cells(26, 4).Value
Cells(i, 9) = currentWkbk.Sheets(sheetName).Cells(30, 4).Value
Cells(i, 10) = currentWkbk.Sheets(sheetName).Cells(34, 4).Value
Cells(i, 11) = currentWkbk.Sheets(sheetName).Cells(39, 4).Value
Cells(i, 12) = currentWkbk.Sheets(sheetName).Cells(44, 4).Value
Cells(i, 13) = currentWkbk.Sheets(sheetName).Cells(49, 4).Value
Cells(i, 14) = currentWkbk.Sheets(sheetName).Cells(54, 4).Value
Cells(i, 15) = currentWkbk.Sheets(sheetName).Cells(60, 4).Value
Cells(i, 16) = currentWkbk.Sheets(sheetName).Cells(67, 4).Value
Cells(i, 17) = currentWkbk.Sheets(sheetName).Cells(71, 4).Value
Cells(i, 18) = currentWkbk.Sheets(sheetName).Cells(77, 4).Value
Cells(i, 19) = currentWkbk.Sheets(sheetName).Cells(80, 4).Value
Cells(i, 20) = currentWkbk.Sheets(sheetName).Cells(90, 4).Value
Cells(i, 21) = currentWkbk.Sheets(sheetName).Cells(98, 4).Value
Cells(i, 22) = currentWkbk.Sheets(sheetName).Cells(104, 4).Value
Cells(i, 23) = currentWkbk.Sheets(sheetName).Cells(108, 4).Value
Cells(i, 24) = currentWkbk.Sheets(sheetName).Cells(111, 4).Value
Cells(i, 25) = currentWkbk.Sheets(sheetName).Cells(115, 4).Value
Cells(i, 26) = currentWkbk.Sheets(sheetName).Cells(119, 4).Value
Cells(i, 27) = currentWkbk.Sheets(sheetName).Cells(128, 4).Value
Cells(i, 28) = currentWkbk.Sheets(sheetName).Cells(135, 4).Value
Cells(i, 29) = currentWkbk.Sheets(sheetName).Cells(140, 4).Value
Cells(i, 30) = currentWkbk.Sheets(sheetName).Cells(147, 4).Value
Cells(i, 31) = currentWkbk.Sheets(sheetName).Cells(154, 4).Value
Cells(i, 32) = currentWkbk.Sheets(sheetName).Cells(162, 4).Value
Cells(i, 33) = currentWkbk.Sheets(sheetName).Cells(166, 4).Value
Cells(i, 34) = currentWkbk.Sheets(sheetName).Cells(169, 4).Value
Cells(i, 35) = currentWkbk.Sheets(sheetName).Cells(172, 4).Value
Cells(i, 36) = currentWkbk.Sheets(sheetName).Cells(182, 4).Value
Cells(i, 37) = currentWkbk.Sheets(sheetName).Cells(188, 4).Value
Cells(i, 38) = currentWkbk.Sheets(sheetName).Cells(193, 4).Value
Cells(i, 39) = currentWkbk.Sheets(sheetName).Cells(199, 4).Value
Cells(i, 40) = currentWkbk.Sheets(sheetName).Cells(210, 4).Value
Cells(i, 41) = currentWkbk.Sheets(sheetName).Cells(215, 4).Value
Cells(i, 42) = currentWkbk.Sheets(sheetName).Cells(222, 4).Value
Cells(i, 43) = currentWkbk.Sheets(sheetName).Cells(225, 4).Value
Cells(i, 44) = currentWkbk.Sheets(sheetName).Cells(229, 4).Value
Cells(i, 45) = currentWkbk.Sheets(sheetName).Cells(232, 4).Value
Cells(i, 46) = currentWkbk.Sheets(sheetName).Cells(236, 4).Value
Cells(i, 47) = currentWkbk.Sheets(sheetName).Cells(239, 4).Value
Cells(i, 48) = currentWkbk.Sheets(sheetName).Cells(248, 4).Value
Cells(i, 49) = currentWkbk.Sheets(sheetName).Cells(253, 4).Value
Cells(i, 50) = currentWkbk.Sheets(sheetName).Cells(258, 4).Value
Cells(i, 51) = currentWkbk.Sheets(sheetName).Cells(265, 4).Value
Cells(i, 52) = currentWkbk.Sheets(sheetName).Cells(269, 4).Value
Cells(i, 53) = currentWkbk.Sheets(sheetName).Cells(272, 4).Value
Cells(i, 54) = currentWkbk.Sheets(sheetName).Cells(279, 4).Value
Cells(i, 55) = currentWkbk.Sheets(sheetName).Cells(283, 4).Value
Cells(i, 56) = currentWkbk.Sheets(sheetName).Cells(286, 4).Value
i = i + 1
currentWkbk.Close
End If
fileName = Dir
Loop
End Sub
將數據從一個工作簿的特定工作表復制到另一個具有相同工作表名稱的工作表
[英]Copy data from specific worksheet of a workbook to another with the same worksheet name
將工作表保存到特定單元格中具有相同格式和名稱的新工作簿
[英]Save worksheet to a new workbook with the same format and name from a specific cell
從另一個工作簿復制工作表后獲取創建的工作簿名稱
[英]Getting the created workbook name after copying worksheet from another workbook
將具有多個工作表的工作簿中的數據復制到多個新工作簿中，每個工作表上只有一行
[英]Copy data from workbook with multiple worksheets into multiple new workbooks with only one row on each worksheet
Excel VBA。 從多個工作簿復制數據並粘貼到一個工作簿的同一工作表中
[英]Excel VBA. Copy data from multiple workbooks and paste in one workbook same worksheet
自動將多個工作表上相同單元格的數據復制到新工作表中
[英]Automate copying data from the same cells on multiple worksheets into a new worksheet
VBA 將多個工作簿中的數據復制到另一個工作簿“同一工作表”中，然后更新格式顏色和字體
[英]VBA to copy data from multiple workbooks into another workbook 'same worksheet' then update format color and font
從多個工作簿復制工作表數據，然后按工作表將其粘貼到主數據文件中
[英]Copying worksheet data from multiple workbooks and pasting it into a master data file by worksheet
VBA：將文件夾中所有工作簿的范圍復制到另一個工作簿中的工作表，其中包含每個 wb 的工作簿名稱
[英]VBA: Copy a range from all workbooks in a folder to a worksheet in another workbook with workbook name from each wb included
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.