CSVファイルとして単一シートを保存する

Question

私はVBAで新しく、このトピックについていくつかの研究をしようとしましたが、運はありません。私は複数のシートを持つワークブックを持っていますが、新しいファイルを開くことなくCSVファイルとしてシート6を特定の場所に保存したいだけです。ボタンのようなものにリンクされているVBAを使って、どうすればいいですか？おかげ

Answer 1

は、ボタンを作成し、このマクロにリンク：あなたは*「新しいファイルを開かずに」*によって

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