将单张纸保存为CSV文件

我是VBA的新手，我试图对这个主题做一些研究，但没有运气。 我有一个工作簿与多个工作表，但我只想将工作表6作为CSV文件保存到某个位置，而无需打开一个新的文件。 我将如何去使用VBA链接到像button的东西？ 谢谢

Answer 1

创build一个button并将其链接到这个macros：

 Sub Sheet6ToCSV() Application.ScreenUpdating = False: Application.EnableEvents = False: Application.DisplayAlerts = False On Error GoTo Cleanup Dim fold As String: fold = "C:\SO\" Dim fName As String: fName = "MySheet6" Worksheets("Sheet6").Copy With ActiveWorkbook .SaveAs fold & fName .Close False End With Cleanup: Application.ScreenUpdating = True: Application.EnableEvents = True: Application.DisplayAlerts = True End Sub