第二次运行vba出现远程服务器不存在或不可用错误
分类:Excel
在 Excel中用vba新建word文档,第一次可运行代码到结束,接着第二次运行,出现“远程服务器不存在或不可用”提示。
因为CentimetersToPoints(0)这个厘米转换成磅的功能是WORD这个应用才有的,而你写了
Set objWordApp = CreateObject("Word.Application") '新建Word程序实例
所以要在CentimetersToPoints前面加上objWordApp.变成objWordApp.CentimetersToPoints。
同理,我写的代码是Set Wordapp = New Word.Application,所以需要写成Wordapp.CentimetersToPoints。
要么你就不要用CentimetersToPoints直接用磅数(这个是OFFICE通用的大小单位),就是要换算一下。
from https://club.excelhome.net/thread-866900-1-1.html