PublishObjects.Add不工作的Excel的MAC

Question

我有一个Excel的下工作正常，窗户，但卓越者不工作的Mac代码（2011）：

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 

请让我知道如果有人能帮助我 - 如果你需要完整的代码，请让我知道。

在此先感谢！

Answer 1

在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"