运行时错误，5487，由于文件许可错误，Word无法完成保存操作。

dywcb

提取Word表格中的某个单元格的内容，并作为文件名，指定路径另存文件，运行代码时提示“运行时错误，5487，由于文件许可错误，Word无法完成保存操作。”但是如果在代码中直接输文件名是可以成功另存的。请问大神这种情况如何解决。谢谢

wdpfox

是你提取单元格中的文字不对，你调试代码，即逐步运行，即可得知

dywcb

wdpfox 发表于 2021-2-5 12:10
是你提取单元格中的文字不对，你调试代码，即逐步运行，即可得知

谢谢，已找到原因。单元格内容中的回车符占了两位，原来只删除了一位。

413191246se

楼主，请参考：

1. Sub LoopCells()
   
2.     Dim t As Table, c As Cell, r As Range
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             Set r = c.Range
   
6.             r.MoveEnd 1, -1
   
7.             MsgBox "[" & r.Text & "]"
   
8.         Next
   
9.     Next
   
10. End Sub

复制代码

依然是月

遇到同样的问题，怎么解决的啊

413191246se

楼上朋友：单元格包括回车符"chr(13)"和隐含结束符"chr(7)"，删除后方可保存，请见下面的宏：

1. Sub aaaa_SaveAs()
   
2.     Dim s$
   
3.     s = ActiveDocument.Tables(1).Cell(2, 2).Range.Text
   
4.     s = Replace(s, Chr(7), "")
   
5.     s = Replace(s, Chr(13), "")
   
6.     MsgBox "*" & s & "*"
   
7.     '.SaveAs 在高版本中要写为 .SaveAs2
   
8.     ActiveDocument.SaveAs FileName:=s & ".docx"
   
9.     ActiveDocument.Close
   
10. End Sub

复制代码