我如何编写一个macros来打开Excel文件并将数据粘贴到包含macros的文件中？

我有两个excel文件。 其中之一包含一个macros。 另一个是共享的工作簿。 我已经写了一些代码。 它打开共享的woorkbook文件，并select了指定选项卡上的所有数据。

唯一的问题是我不确定如何编写代码，将自动粘贴这个数据到macros的文件？

Sub ImportData_Click() ' open the source workbook and select the source sheet Workbooks.Open Filename:="Test.xlsm" Sheets("Make").Select ' copy the source range Sheets("Make").Range("A1:Z630").Select Selection.Copy ' select current workbook and paste the values starting at U4 Sheets("Make").Select Sheets("Make").Range("A1:Z630").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ' close the source workbook Windows("Test.xlsm").Activate ActiveWorkbook.Close End Sub 

Answer 1

 ThisWorkbook.Activate 

应该做的伎俩。 通过你的macros来判断，把它粘贴在“select当前工作簿并粘贴U4开始的值”之后。

Answer 2

你需要记住你来自哪里：

 Sub ImportData_Click() Dim rDest As Range Set rDest = ThisWorkbook.Sheets("Make").Range("A1:Z360") ' open the source workbook and select the source sheet Workbooks.Open Filename:="C:\TestFolder\Test.xlsm" Sheets("Make").Select ' copy the source range Sheets("Make").Range("A1:Z630").Select Selection.Copy rDest.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWorkbook.Close End Sub 

Answer 3

  Private Sub CommandButton1_Click() Dim mode As String Dim RecordId As Integer Dim sourcewb As Workbook Dim targetwb As Workbook Dim SourceRowCount As Long Dim TargetRowCount As Long Dim SrceFile As String Dim TrgtFile As String Dim TitleId As Integer Dim TestPassCount As Integer Dim TestFailCount As Integer TitleId = 4 'TestPassCount = 0 'TestFailCount = 0 'Retrieve number of records in the TestData SpreadSheet Dim TestDataRowCount As Integer TestDataRowCount = Worksheets("TestData").UsedRange.Rows.Count If (TestDataRowCount <= 2) Then MsgBox "No records to validate.Please provide test data in Test Data SpreadSheet" Else For RecordId = 3 To TestDataRowCount RefreshResultSheet 'Source File row count SrceFile = Worksheets("TestData").Range("D" & RecordId).Value Set sourcewb = Workbooks.Open(SrceFile) With sourcewb.Worksheets(1) SourceRowCount = .Cells(.Rows.Count, "A").End(xlUp).Row sourcewb.Close End With 'Target File row count TrgtFile = Worksheets("TestData").Range("E" & RecordId).Value Set targetwb = Workbooks.Open(TrgtFile) With targetwb.Worksheets(1) TargetRowCount = .Cells(.Rows.Count, "A").End(xlUp).Row targetwb.Close End With ' Set Result Test data value TitleId = TitleId + 3 Worksheets("Result").Range("A" & TitleId).Value = Worksheets("TestData").Range("A" & RecordId).Value 'Compare Source and Target Row count Resultid = TitleId + 1 Worksheets("Result").Range("A" & Resultid).Value = "Source and Target record Count" If (SourceRowCount = TargetRowCount) Then Worksheets("Result").Range("B" & Resultid).Value = "Passed" TestPassCount = TestPassCount + 1 Else Worksheets("Result").Range("B" & Resultid).Value = "Failed" TestFailCount = TestFailCount + 1 End If Next RecordId End If UpdateTestExecData TestPassCount, TestFailCount End Sub Sub RefreshResultSheet() Worksheets("Result").Activate Worksheets("Result").Range("B1:B4").Select Selection.ClearContents Worksheets("Result").Range("D1:D4").Select Selection.ClearContents Worksheets("Result").Range("B1").Value = Worksheets("Instructions").Range("D3").Value Worksheets("Result").Range("B2").Value = Worksheets("Instructions").Range("D4").Value Worksheets("Result").Range("B3").Value = Worksheets("Instructions").Range("D6").Value Worksheets("Result").Range("B4").Value = Worksheets("Instructions").Range("D5").Value End Sub Sub UpdateTestExecData(TestPassCount As Integer, TestFailCount As Integer) Worksheets("Result").Range("D1").Value = TestPassCount + TestFailCount Worksheets("Result").Range("D2").Value = TestPassCount Worksheets("Result").Range("D3").Value = TestFailCount Worksheets("Result").Range("D4").Value = ((TestPassCount + TestFailCount) / TestPassCount) End Sub