如何重命名与文件名不同的工作表名称

Question

我有一些vba来创建工作表名称为“ SheetName”的新工作簿，然后将数据传输到新工作表并以文件名另存为CSV格式 该文件名正在复制我之前声明的工作表名称，而我不想这样做。

Private Sub TransferData()

'---Submit Button Code - Transfers data to new workbook, renames and saves to folder.

Dim SheetName As String
Dim SavePath As String
Dim FileName As String
SheetName = "IATData"
SavePath = "savedfolderpath"
FileName = IAT.SaveDateBox.Value & IAT.SaveTimeBox.Value & IAT.SaveAssessorBRIDBox & IAT.BRIDBox


'Create new workbook for saved CSV
With Application
    .SheetsInNewWorkbook = 1
    .Workbooks.Add
    .Sheets(1).Name = SheetName
End With

'Turn off Auto-Calculate
Application.Calculation = xlCalculationManual
'Turn off Alert Displays
Application.DisplayAlerts = False

'Determine Empty Row
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Transfer the data to the master
'---Front Page---
Cells(emptyRow, 1).Value = IAT.BRIDBox.Value
Cells(emptyRow, 2).Value = IAT.AgentNameBox.Value

'Save new workbook etc.
ActiveWorkbook.SaveAs FileName:=SavePath & FileName, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks("IAT Form.xlsm").Activate
MsgBox "Details sent to data folder under: " & FileName

End Sub

希望新工作簿的工作表名称为“ IATData”，文件名由上述单元格引用组成，但工作表也将继续命名为文件名。

Answer 1

CSV中没有“工作表名称”：这是纯文本文件格式，工作表名称始终显示为文件名。

CSV除了数据外没有其他内容-Excel没有放置表名的位置（实际上CSV中甚至没有“表”）。如果您在记事本中打开CSV，则可以理解我的意思。

Answer 2

将新工作簿另存为 .CSV 时，图纸名称会丢失。该文件只是一个文本csv文件。当Excel重新打开此.csv时，工作表名称将默认为文件名。