可以使用VBA代码中的“ActiveWorkbook.SaveAs”方法来创建带有可变文件名的Excel表格。这种方法可以将变量作为文件名的一部分，并使用字符串连接运算符将其与固定文件路径组合。下面是一个示例代码：

Sub SaveWorkbook()
    Dim fileName as String
    Dim savePath as String

    '取得文件名和保存路径
    fileName = "Report_" & Format(Date, "yyyy-mm-dd")
    savePath = "C:\Users\UserName\Documents\"

    '创建Excel表格
    ActiveWorkbook.SaveAs Filename:=savePath & fileName & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

在这个例子中，“fileName”变量包含了当前日期，它将被添加到固定文件名“Report_”之后。最终，文件路径和文件名将被组合成“C:\Users\UserName\Documents\Report_yyyy-mm-dd.xlsx”，并将该文件保存为Excel工作簿（XLSX格式）。