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

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

Sub ExportData()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    
    '获取当前打开的工作簿和工作表1
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(1)
    
    '获取新工作簿并添加工作表2
    Set newWb = Workbooks.Add
    Set newWs = newWb.Worksheets.Add
    
    '将工作表1的第4行A1:E4复制到工作表2的最后一行下面A:E
    lastRow = newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Row + 1
    ws.Range("A4:E4").Copy newWs.Range("A" & lastRow)
    
    '保存并关闭新工作簿
    newWb.SaveAs "导出数据.xlsx"
    newWb.Close
    
    MsgBox "数据导出完成。"
End Sub

使用方法：

1. 打开需要导出数据的工作簿。
2. 按下Alt + F11打开VBA编辑器。
3. 将以上代码复制粘贴到VBA编辑器的代码窗口中。
4. 按下F5运行代码。
5. 等待导出完成，弹出消息框提示完成。
6. 在同一文件夹下，找到名为“导出数据.xlsx”的新工作簿，打开查看导出结果。