尝试将表复制到csv文件并使用原始文件名命名

Question

我是VBA的新手，但遇到了问题。 我正在尝试将表复制到.csv文件，并且希望最终结果包含原始.xlsm名称和表名称以及日期/时间。 我已经成功地拼凑了代码，以表的名称和日期/时间将表导出到.csv，但是我在努力获取文件名。 我收到以下错误“对象'_Workbook'的方法'方法'另存为'失败”以下是我所拥有的，任何帮助都会很大！

Sub ExportTableBanquetEarnings()
 Application.ScreenUpdating = False

 Sheets("BanquetEarnings").Visible = True
 Sheets("BanquetEarnings").Select

Dim wb As Workbook, wbNew As Workbook
Dim ws As Worksheet, wsNew As Worksheet
Dim wbNewName As String
Dim wbCurrent As String

wbCurrent = ThisWorkbook.FullName

Set wb = ThisWorkbook
Set ws = ActiveSheet

Set wbNew = Workbooks.Add


With wbNew
   Set wsNew = wbNew.Sheets("Sheet1")
   wbNewName = ws.ListObjects(1).Name
   ws.ListObjects(1).Range.Copy
   wsNew.Range("A1").PasteSpecial Paste:=xlPasteAll
   .SaveAs Filename:="F:\admin\Report Databases\BanquetTipouts" & "\" & 
    wbCurrent & wbNewName & Format(Now, "yyyymmdd_hhmm") & ".csv", _
         FileFormat:=xlCSVMSDOS, CreateBackup:=False
 End With

 Application.DisplayAlerts = False
 ActiveWorkbook.Close
 Application.DisplayAlerts = True

 ActiveWorkbook.RefreshAll

 Sheets("BanquetEarnings").Visible = False
 Sheets("Blank Cost Sheet").Select
 Workbooks.Open "F:\Function Agreements\Cost Sheets M\Payroll Report - 
   V2.xlsm"

End Sub

Answer 1

下面的代码将显示该工作簿的路径

wbCurrent = ThisWorkbook.FullName

我认为您打算使用的是...

wbCurrent = ThisWorkbook.Name

另外，我认为另一个问题可能是Now方法，应该是Now()