[VFP] Automation 應用 - 儲存為 xls 格式

配合 HR 提出的需求，HR PC 上是 Office 2016 希望轉出來的 Excel 格式為 xls 格式，這樣才能匯入政府網站，原是想說把副檔名改為 xls 就行，沒想到打開 Excel 時，會出現下面的錯誤

SaveAs 語法

loExcel.ActiveWorkbook.SaveAs("D:\Excel.XLS")

打開 Excel 時出現的錯誤訊息

利用 Excel 錄製 VBA 來觀察，看看轉為 xls 到底還需要甚麼參數，FileFormat:=xlExcel8 就是你啦

Sub 巨集1()
'
' 巨集1 巨集
'

'
    ChDir "C:\Users\jengting\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\jengting\Desktop\活頁簿1.xls", _
        FileFormat:=xlExcel8, 
        Password:="", 
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, 
        CreateBackup:=False
End Sub

把 VFP Automation 語法改為下述，xlExcel8 參數值為 56，就可以順利轉為 xls 格式啦

loExcel.ActiveWorkbook.SaveAs("D:\Excel.XLS" , 56)

延伸閱讀
• [VFP] Automation 在 Excel 上的應用

參考資料
• VFP 論壇
• Excel Automation
• Use VBA SaveAs in Excel 2007-2016