利用VBA从当前己打开的工作簿中的工作表1的第4行A1:E4导出到另一个工作簿的最后一行的下面A:E

以下是实现以上要求的VBA代码：

Sub ExportData()
    Dim sourceBook As Workbook
    Dim targetBook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    '获取当前打开的工作簿和工作表1
    Set sourceBook = ActiveWorkbook
    Set sourceSheet = sourceBook.Sheets(1)
    
    '创建新的工作簿和工作表
    Set targetBook = Workbooks.Add
    Set targetSheet = targetBook.Sheets(1)
    
    '将源工作表的第4行A1:E4复制到目标工作表的最后一行
    lastRow = targetSheet.Cells(Rows.Count, 1).End(xlUp).Row
    sourceSheet.Range("A4:E4").Copy targetSheet.Range("A" & lastRow + 1)
    
    '保存并关闭目标工作簿
    targetBook.SaveAs "目标工作簿的路径和名称"
    targetBook.Close
End Sub

需要注意的是，要将代码中的“目标工作簿的路径和名称”替换为实际的路径和名称，否则会出现错误。