返回列表 上一主題 發帖

EXCEL 03 及 07 巨集兼容問題

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-5-29 17:51 | 顯示全部帖子
回復 1# enoch

Application.Version
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-6-1 15:48 | 顯示全部帖子
回復 7# enoch
用常數帶入試試
  1. Sub ex()
  2. Dim sf As Long
  3. sf = IIf(Val(Application.Version) <= 11, 51, 56)
  4. ActiveWorkbook.SaveAs Filename:="D:\format.xls", FileFormat:=sf
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-6-1 20:04 | 顯示全部帖子
本帖最後由 Hsieh 於 2012-6-1 20:09 編輯

回復 9# alumi
其中11是2003版本的編號
其他2個數值對照下表的FileFormat值
xlWorkbookDefault        51        預設活頁簿
xlExcel8                                56        Excel8
Excel 2010 開發人員參考 > Excel 物件模型參考 > 列舉               
               
XlFileFormat 列舉               
會指定儲存工作表時的檔案格式。               
版本資訊               
新增的版本： Excel 2007               

  • 名稱        值        描述
  • xlAddIn        18        Microsoft Excel 97-2003 增益集
  • xlAddIn8        18        Microsoft Excel 97-2003 增益集
  • xlCSV        6        CSV
  • xlCSVMac        22        Macintosh CSV
  • xlCSVMSDOS        24        MSDOS CSV
  • xlCSVWindows        23        Windows CSV
  • xlCurrentPlatformText        -4158        目前平台文字
  • xlDBF2        7        DBF2
  • xlDBF3        8        DBF3
  • xlDBF4        11        DBF4
  • xlDIF        9        DIF
  • xlExcel12        50        Excel12
  • xlExcel2        16        Excel2
  • xlExcel2FarEast        27        Excel2 FarEast
  • xlExcel3        29        Excel3
  • xlExcel4        33        Excel4
  • xlExcel4Workbook        35        Excel4 活頁簿
  • xlExcel5        39        Excel5
  • xlExcel7        39        Excel7
  • xlExcel8        56        Excel8
  • xlExcel9795        43        Excel9795
  • xlHtml        44        HTML 格式
  • xlIntlAddIn        26        國際增益集
  • xlIntlMacro        25        國際巨集
  • xlOpenDocumentSpreadsheet        60        OpenDocument 試算表
  • xlOpenXMLAddIn        55        開啟 XML 增益集
  • xlOpenXMLTemplate        54        開啟 XML 範本
  • xlOpenXMLTemplateMacroEnabled        53        開啟 Open XML 範本巨集啟用
  • xlOpenXMLWorkbook        51        開啟 XML 活頁簿
  • xlOpenXMLWorkbookMacroEnabled        52        開啟 XML 活頁簿巨集啟用
  • xlSYLK        2        SYLK
  • xlTemplate        17        範本
  • xlTemplate8        17        範本 8
  • xlTextMac        19        Macintosh 文字
  • xlTextMSDOS        21        MSDOS 文字
  • xlTextPrinter        36        印表機文字
  • xlTextWindows        20        Windows 文字
  • xlUnicodeText        42        Unicode 文字
  • xlWebArchive        45        Web 封存
  • xlWJ2WD1        14        WJ2WD1
  • xlWJ3        40        WJ3
  • xlWJ3FJ3        41        WJ3FJ3
  • xlWK1        5        WK1
  • xlWK1ALL        31        WK1ALL
  • xlWK1FMT        30        WK1FMT
  • xlWK3        15        WK3
  • xlWK3FM3        32        WK3FM3
  • xlWK4        38        WK4
  • xlWKS        4        工作表
  • xlWorkbookDefault        51        預設活頁簿
  • xlWorkbookNormal        -4143        一般活頁簿
  • xlWorks2FarEast        28        Works2 FarEast
  • xlWQ1        34        WQ1
  • xlXMLSpreadsheet        46        XML 試算表
學海無涯_不恥下問

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題