求组，提示对象变量未设置

laag111

我是想另存为一个文件，以其中一个单元格命名，但是单元格是公式
Sub 另存为()
Dim wb As Workbook
wb.SaveAs ThisWorkbook.Path & "\" & [sheet2!a31].Value & ".xlsx"
End Sub
请教各位大佬，怎么改

3190496160

Sub 另存为()
Application.DisplayAlerts = False
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveCopyAs ThisWorkbook.Path & "\" & [sheet2!a31].Value & ".xlsx"
Application.DisplayAlerts = True
End Sub

3190496160

变量wb没有赋予它实际的意义

laag111

3190496160 发表于 2021-1-8 22:45
Sub 另存为()
Application.DisplayAlerts = False
Dim wb As Workbook

呃，提示因为文件格式或文件扩展名无效，请确认文件未损坏

laag111

直接另存为就可以打开，用宏直接另存为就不行这个打不开的原因时xlsx里面包含了宏，那有没有可能在用宏进行另存为的时候去掉宏，得到一个干净的xlsx呢