Question

我有一个填充的宏，然后将跟踪号保存到.csv文件，我想在关闭工作簿时让工作表（1）处于活动状态。我遇到的问题是它将保存并关闭工作表上的工作簿（＆＃34; Tracking＆＃34;）。我试图选择或激活工作表（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

VBA：CSV保存后选择特定工作表为活动并关闭

1 个答案: