亲测,成功搞定
Excel文档保存的时候,提示“文档未保存”?
先打开你需要处理的excel,然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序Sub 恢复保存()
name0 =
ActiveWorkbook.Name
j =
Sheets.Count
For i = 1 To
j
Sheets(1).Visible = -1
Sheets(1).Move
Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
Next
End Sub
然后接着运行宏,后停止。最后关闭即可!
最近发现较多此问题,解决方法就是每个表移出去再移回来就可以了。
如果懂得使用宏,写法如下,说白了就是将每个表移出去再移回去。