标签: applescript-excel

情景

Word文档嵌入在Excel 2011文件中.我需要将其保存为pdf.

如果它是Excel 2010,那么它不会是一个问题,因为Win Pcs中的MS-Office支持OLE自动化.

我做了什么？

这是我在Excel 2010中尝试的代码.

Option Explicit

Sub Sample()
    Application.ScreenUpdating = False

    Dim shp As Shape
    Dim objWord As Object
    Dim objOLE As OLEObject

    Set shp = Sheets("Sheet1").Shapes("Object 1")

    shp.OLEFormat.Activate

    Set objOLE = shp.OLEFormat.Object

    Set objWord = objOLE.Object

    objWord.ExportAsFixedFormat OutputFileName:= _
            "C:\Users\Siddharth Rout\Desktop\Sid.pdf", ExportFormat:= _
            17, OpenAfterExport:=True, OptimizeFor:= _
            0, Range:=0, From:=1, To:=1, _
            Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=0, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

    objWord.Application.Quit

    Set objWord = Nothing
    Set shp = Nothing
    Set objOLE = Nothing …

我想将CSV文件作为2D数组读入,然后将其返回到CSV文件.假设这是我的CSV文件.这是一个excel文件和| 暗示相邻的细胞:

family | type
Doctor | Pediatrics
Engineer | Chemical

据我所知,AppleScript上没有数组,只有列表和记录.如果使用XLSX文件更好,请告诉我.

我的Applescript在Safari中遇到了这个错误(偶尔).

Result:
   error "Safari got an error: Can’t get document \"DOC TITLE\"." 
   number -1728 from document "DOC TITLE"

我认为这是因为页面没有加载,但我有一个Javascript在继续之前检查"完成",以及一个try语句延迟错误的另一秒.

不过,我仍然遇到这个问题.它似乎相当随机.

有什么建议？

Applescript(整个Tell声明):

tell application "Safari"
set the URL of the front document to searchURL
delay 1
repeat
    if (do JavaScript "document.readyState" in document 1) is "complete" then exit repeat
    delay 1.5 -- wait a second before checking again
end repeat
try
    set doc to document "DOC TITLE"
on error
    delay 1
    set doc to document "DOC TITLE"
end try
set …

在Excel 2016中,以下AppleScript:

tell application "Microsoft Excel"
    activate
    open "Macintosh HD:Users:path:to:file"
end tell

打开一个对话框,要求用户授予访问权限 使用以前的Excel版本,文件立即打开.似乎微软不允许在没有明确用户许可的情况下从脚本中打开文件.
有没有办法绕过对话框？