VBA将Excel范围复制到不同的工作簿

Question

我试图找到一种方法将一个工作簿（在本例中为 A6:J21）中的范围复制到另一个工作簿。 我以为它会像下面这样......

currentWorksheet = xlWorkBook.Sheets.Item("Command Group")
excelRange = currentWorksheet.Range("A6:J21")
excelDestination = newXlSheet.Range("A6:J21")
excelRange.Copy(excelDestination)

但它给了我一个关于excelRange.Copy(excelDestination)的错误。

下面的代码按预期运行，所以我不确定我哪里出错了..

Dim xRng As Excel.Range = CType(currentWorksheet.Cells(7, 7), Excel.Range)
Console.WriteLine(xRng.ToString)
Dim val As Object = xRng.Value()
testString = val.ToString
Console.WriteLine(testString)
newXlSheet.Cells(1, 1) = testString

Answer 1

要回答您的问题“为什么 B 正在运行，而不是 A”。

在 A: currentWorksheet = xlWorkBook.Sheets.Item("Command Group")

首先，您缺少对象分配的SET 。 其次，您正在使用Workbook.Sheets.Item()它返回一个Sheets object 。 Sheets object可以表示图表表或工作表，因此没有.Range()方法。

您可以通过单步执行此代码来验证这一点：

Dim currentWorksheet As Sheets
Set currentWorksheet = ThisWorkbook.Sheets.Item("Command Group")
excelRange = currentWorksheet.Range("A1:A21")

它会出错，并告诉您未找到该方法。

修复 A：确保通过使用强类型返回 Worksheet 对象。

Dim currentWorksheet as Worksheet
Set currentWorksheet = ThisWorkbook.Sheets.Item("Command Group")

为了修复未来的代码并简化调试过程，我强烈建议始终在所有模块的顶部声明Option Explicit 。

为简洁起见，您可以将代码缩短为：

Dim currentWorksheet as Worksheet
Set currentWorksheet = ThisWorkbook.Sheets("Command Group")

Answer 2

这应该可以，如果您遇到问题，请告诉我：

Sub foo()
Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open(" path to copying book ")
Set y = Workbooks.Open(" path to destination book ")

'Now, copy what you want from x:
x.Sheets("name of copying sheet").Range("A1").Copy

'Now, paste to y worksheet:
y.Sheets("sheetname").Range("A1").PasteSpecial

'Close x:
x.Close

End Sub

或者，您可以：

Sub foo2()
Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open(" path to copying book ")
Set y = Workbooks.Open(" path to destination book ")

'Now, transfer values from x to y:
y.Sheets("sheetname").Range("A1").Value = x.Sheets("name of copying sheet").Range("A1") 

'Close x:
x.Close

End Sub

从一个工作簿复制并粘贴到另一个

Answer 3

请参阅以下代码将数据从一个工作表（例如 file1）复制到另一个（例如 file2）。 我创建这个文件是为了避免从另一个工作簿复制格式，因为它会导致文件（比如 file1）崩溃。 目的是仅将值逐个单元格地从一张工作表复制到另一张工作表。

Sub Copydatafrom_sheets()
    'This will copy sheet cell by cell without selecting the cells.
    'commented items are not used in the code execution
    Dim i As Long
    Dim j As Long
        i = 1
        j = 1
    Application.ScreenUpdating = False
    Dim file1 As Workbook ' defined as workbook
    Dim file2 As Workbook ' defined as workbook
    Dim range1 As Range
    Dim range2 As Range ' not used
    Dim Copied_data As String ' to store data in this string while iterating
    Set file1 = Workbooks.Open("G:\MyProject - Backup\QAQC\Data Combined - 2.xlsx") ' file where orinal data is stored, use your own file names
    Set file2 = Workbooks.Open("G:\MyProject - Backup\QAQC\Test3.xlsm") ' File where it shall be copied
    Set range1 = file1.Sheets("ASC_Table_1").Range("A1:V25944") 'set the range to be copied
    For Each cell In range1
    
        Copied_data = file1.Sheets("ASC_Table_1").Cells(i, j).Value
        'MsgBox (Copied_data)
        file2.Sheets("Sheet2").Cells(i, j) = Copied_data
          If j <= 22 Then j = j + 1
            If j > 22 Then
                 i = i + 1
                 j = 1
            End If
    Application.StatusBar = Format((i / 25994), "Percent")
    Next
    Application.ScreenUpdating = True
    file2.Save 'Optional
    End Sub