利用VBA从当前工作簿中的工作表1的第4行A1:E4导出到另一个工作簿的最后一行的下面A:E
时间: 2024-05-27 12:11:41 浏览: 20
Sub ExportData()
Dim wb As Workbook
Dim ws As Worksheet
Dim newWb As Workbook
Dim newWs As Worksheet
Dim lastRow As Long
'打开当前工作簿
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("工作表1")
'获取最后一行
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'创建新工作簿
Set newWb = Workbooks.Add
Set newWs = newWb.Worksheets(1)
'将数据复制到新工作簿
ws.Range("A4:E" & lastRow).Copy Destination:=newWs.Range("A" & newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Row + 1)
'保存新工作簿
newWb.SaveAs "C:\Users\UserName\Desktop\NewWorkbook.xlsx"
'关闭新工作簿
newWb.Close
'释放对象
Set ws = Nothing
Set wb = Nothing
Set newWs = Nothing
Set newWb = Nothing
MsgBox "数据导出完成。"
End Sub