Question

我一直在开发一个VBA，它将根据特定条件从已关闭的工作簿中复制数据并粘贴到主工作簿中的下一个可用行。我可以使用vba将工作表复制并粘贴到工作表，但我无法弄清楚如何从工作簿到工作簿。

我有我的主工作簿，＆＃34;可用性大师＆＃34;，有一个＆＃34;运行数据＆＃34;片。我有一个已关闭的工作簿，＆＃34;添加/删除＆＃34;，带有＆＃34; Combined＆＃34;片。这是我需要掌握的工作表，以查找以＆＃34; Add-Crazy＆＃34;开头的行。并复制所有数据并粘贴到可用性主数据中。

这就是我对同一个工作簿所拥有的内容，但我再次需要它来查看已关闭的工作簿。

Private Sub Copy ()
    a=Worksheets("Combined").Cells(Rows.Count,1)End(xlUp).Row
    For i=2 to a
    If worksheets("Combined").Cells(i,1).Value="Add-Crazy" Then
        Worksheets("Combined").Rows(i).Copy
        Worksheets("Running Data").Activate
        b=worksheets("Running Data").Cells(Rows.Count,1).End(xlUp).Row
        Worksheets("Running Data").Cells(b+1,1).Select
        ActiveSheet.Paste
        Worksheets("Combined").Activate
    End if
    Next
    Application.CutCopyMode=False
    thisworkbook.Worksheets("Combined")
End Sub

根据条件从Closed Workbook复制并粘贴到主文件中

0 个答案: