VBA：CSV保存後に特定のワークシートを選択して閉じる

Question

マクロを埋め込んでトラッキング番号を.csvファイルに保存し、ワークブックを閉じるときにワークシート（1）を有効にします。私が抱えている問題は、ワークシート上のワークブック（「トラッキング」）を保存して閉じることです。ワークシート（1）を選択またはアクティブ化してから再保存して閉じようとしましたが、動作させることができません。

ここに、.csvファイルを保存してブックを閉じるコードを示します。

Dim ws as Worksheet 
Set ws = ActiveWorkbook.Worksheets("Tracking")  
ws.Select 

Dim sFileName As String 
sFileName = ActiveWorkbook.path & "\" & Left(ws.name, InStr(1, ActiveWorkbook.name, ".") - 1) & ".csv" 

Application.DisplayAlerts = False 

'Save Current workbook just in case latest additions not saved. 
ActiveWorkbook.Save 

'Now create a CSV of the active sheet. 
ws.SaveAs Filename:=sFileName, FileFormat:=xlCSV, CreateBackup:=False 

Application.DisplayAlerts = True 'turn it back on 
ActiveWorkbook.Close True 'Close and quit excel 
Application.Quit 

Answer 1

あなたがしようとしているのは、特定のシートでExcelを開いている場合は、組み込みのworkbook_openを試すことができます。

Private Sub Workbook_Open() 
    Sheets(“Sheet1”).Select 
End Sub 

シートと範囲を選択するための変更。

Sub Macro1() 
Dim ws As Worksheet 
Set ws = ActiveWorkbook.Worksheets("Sheet2") 
ws.Select 

Dim sFileName As String 
sFileName = ActiveWorkbook.Path & "\" & Left(ws.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".csv" 

Application.DisplayAlerts = False 

'Save Current workbook just in case latest additions not saved. 
Sheets(1).Select 
Range("A1").Select 
ActiveWorkbook.Save 

'Now create a CSV of the active sheet. 
ws.SaveAs Filename:=sFileName, FileFormat:=xlCSV, CreateBackup:=False 

Application.DisplayAlerts = True 'turn it back on 
ActiveWorkbook.Close True 'Close and quit excel 
Application.Quit 
End Sub