Question

此代码只打开源文件，但不会从中复制任何内容。我想从源文件中复制数据并将其粘贴到目标文件中。

function showPoint(){
    base_image = new Image();
    base_image.src = '../dfe/svgs/target.svg';
    base_image.onload = function(){
        parent.targetISshown = true;
        context.drawImage(base_image, parent.currentMouseClickPosition.x - 10, parent.currentMouseClickPosition.y -10, 20, 20);
    }
}

Answer 1

尝试调试，执行以下操作：

Sub Copy()

    Dim x As Workbook
    Dim y As Workbook

    Set x = Workbooks.Open("Source File")
    Set y = Workbooks.Open("Destination File")

    Debug.Print x.Name
    Debug.Print y.Name

    Debug.Print x.Sheets("Sheet1").Range("A1").value
    Debug.Print y.Sheets("Sheet1").Range("A1")

    Debug.Print x.Sheets("Sheet1").Range("A1").Address
    Debug.Print y.Sheets("Sheet1").Range("A1").Address

End Sub

Answer 2

您遗失了.Value行的结尾：

y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1").Value

或尝试：

y.Sheets(1).Cells(1, 1).Value = x.Sheets(1).Cells(1, 1).Value

我猜你在两个工作簿中都没有Sheet1，所以让我们尝试不同的表示法。

尝试使用以下方法调试代码：

msgbox y.Sheets("Sheet1").Range("A1").Value
msgbox x.Sheets("Sheet1").Range("A1").Value

我猜你的文件没有正确打开。

如何将数据从一个Excel工作表复制到另一个Excel工作表？

2 个答案: