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

laag111 · 发表于 2021-1-8 17:49

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

3190496160 · 发表于 2021-1-8 22:45

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 · 发表于 2021-1-8 22:46

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

laag111 · 发表于 2021-1-11 08:46

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

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

laag111 · 发表于 2021-1-11 08:49

本帖最后由 laag111 于 2021-1-11 09:39 编辑

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

		自动登录	找回密码
密码			免费注册