Excel VBA导出到其他Excel工作簿

我没有很多VBA excel的经验，所以我需要一些帮助

我创建了一个excel工作表

现在我想创建一个宏，将工作表中的数据发送到其他excel工作簿

我想使用if语句，因此如果project name=x，则宏应将数据发送到工作簿x，并按日期排列导入的工作表

我在网上找到了这个，并做了一些调整

Private Sub CommandButton21_Click()

    Dim Data As Range

    Dim myData As Workbook

    Worksheets("blad1").Select

    Set Data = Range("c2")

    Set myData = Workbooks.Open("C:\test\locatie.xlsx")
    Worksheets("blad1").Select
    Worksheets("blad1").Range("a1").Select

    RowCount = Worksheets("blad1").Range("A1").CurrentRegion.Rows.Count
    With Worksheets("blad1").Range("A1")

.Offset(RowCount, 0) = Data

    End With
End Sub

---

将图纸复制到新文件的简单示例：

IF projectname = "x" THEN 'you have to define projectname

OldName = ThisWorkbook.Name 'name of your open file
Workbook.Add 'Open new file
newName = ActiveWorkbook.Name 'name of the new file
Windows(OldName).Activate 'original file select
Sheets("Sheetname").Activate 'define Sheetname of your original file
ActiveSheet.Select
ActiveSheet.Copy after:=Workbooks(newName).Sheets(1)
Windows(newName).Activate
ActiveWorkbook.SaveAs Filename:=filename1, FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False 'define filename1
Application.DisplayAlerts = True
End If

---

是的，这是可能的。Jeeped你能帮我开始吗？试试这些链接让你开始：和