自动将工作簿中的某些工作表保存为CSV文件

我find了一个体面的解决scheme将Excel工作表保存为CSV文件，使用VB将工作簿中的所有工作表保存为CSV文件。 不过，我希望能够修改这个代码，只保存表单名以_t结尾的工作表。

我正在使用下面的代码：

 Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close savechanges:=False ThisWorkbook.Activate Next Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat Application.DisplayAlerts = True ' Temporarily turn alerts off to prevent the user being prompted ' about overwriting the original file. End Sub 

可以这样做吗？

Answer 1

在worksheet.name属性上使用Right或Instr -Method获取最后的字符/检查您的searchstring是否存在。

在你for each循环中添加下面的代码：

 If Right(WS.name, 2) = "_t" Then Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close savechanges:=False ThisWorkbook.Activate End if