Question

我打算从名为＆＃34; STN-1＆＃34;的工作表中复制一系列单元格。使用＆＃34;提交＆＃34;到sheet1中的另一个工作簿按钮。我写的代码是这样的：

Private Sub CommandButton1_Click()
Dim MyData As Workbook

Set MyData = Workbooks.Open("C:\Users\askhan\dropbox\surgery\osce bank\SUR-OSCE 
AY2014-15-G1-QUESTIONS.XLSX")
Worksheets("sheet1").Select
With Worksheets("sheet1").Range("A1:f50").Select
Selection.Copy
Range ("a1:f50")
ActiveSheet.Paste
End With
MyData.Save
End Sub

但它给出了编译错误。如果有人可以更正此代码，我对使用宏非常陌生。

Answer 1

试试这个。您可以完全避免Select。 .Copy参数允许可选参数指定目标，如下所示：

Private Sub CommandButton1_Click()
Dim myData as Workbook

Set MyData = Workbooks.Open( _
    "C:\Users\askhan\dropbox\surgery\osce bank\SUR-OSCE AY2014-15-G1-QUESTIONS.XLSX")

MyData.Worksheets("sheet1").Range("A1:f50").Copy _
    Workbooks("Other Book").Worksheets("Sheet1").Range("A1")
MyData.Save


End Sub

当然，您需要修改目标工作簿/工作表/范围目的地以满足您的需求。

将一系列单元格从工作表复制到另一个工作簿

1 个答案: