PublishObjects.Add不工作的Excel的MAC
问题描述:
我有一个Excel的下工作正常,窗户,但卓越者不工作的Mac代码(2011):PublishObjects.Add不工作的Excel的MAC
rng_str = "$A$1:$C$20" & (scrsheet_row_indx + 8) & """"
rng_str = Left(rng_str, Len(rng_str) - 1)
strFile = ThisWorkbook.Path & "\" & "Scorecard.htm"
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
strFile, "scorecards", rng_str, _
xlHtmlStatic, "PublishToHtml", "")
.Publish (True)
End With
请让我知道如果有人能帮助我 - 如果你需要完整的代码,请让我知道。
在此先感谢!
答
在Mac OS上运行宏时,在引用文件路径时需要小心,因为不同的分隔符用于不同的操作系统。
在你的代码已经使用\
在串联与ThisWorkbook.Path
和"Scorecard.htm"
但只有Windows使用\
作为它的分隔符。
不同的分隔符如下:
的Windows:C:\myfolder\mydocument.txt
的Unix:/usr/myuser/mydocument.txt
经典的Mac OS:Hard Drive:My Folder:My Document
圆这个问题的方法是在更换使用Application.PathSeparator
\
串联:
strFile = ThisWorkbook.Path & Application.PathSeparator & "Scorecard.htm"