VBA：CSV保存并closures后，select特定工作表为活动状态

我有一个macros，填写然后将跟踪号码保存到.csv文件，我想closures工作簿时有工作表（1）处于活动状态。 我遇到的问题是它将保存并closures工作簿工作簿（“跟踪”）。 我试图select或激活工作表（1），然后重新保存并closures，但我似乎无法工作。

这里是我保存.csv文件和closures工作簿的代码。

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，你可以尝试使用内build的workbook_open。

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

select工作表和范围的更改。

 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