excel vba 怎么把sheet4导出，以sheet4里面B5单元格内容作为新工作簿的名字。

Question

excel vba 怎么把sheet4导出，以sheet4里面（B5单元格内的文字）作为新工作簿的名字。
我想做一个宏，导出一个工作簿的sheet4.。

Answer 1

Sub fencun()
Application.ScreenUpdating = False
a = Sheets(4).[B5]
Sheets(4).Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Application.ScreenUpdating = True
End Sub

Answer 2

Sub 将sheet4工作表另存为单独的工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
Set sht = Worksheets("sheet4")
    sht.Copy
    ActiveWorkbook.SaveAs ipath & sht.Range("B5").Value & ".xls"
ActiveWorkbook.Close

Application.ScreenUpdating = True
End Sub