返回列表 上一主題 發帖

EXCEL 03 及 07 巨集兼容問題

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 »
發表於 2012-5-29 20:08 | 顯示全部帖子
Sub 查詢Excel版本()
On Error GoTo error1
Dim myVersion As String
    Select Case Val(Application.Version)
        Case 5
            myVersion = "5.0"
        Case 7
            myVersion = "95"
        Case 8
            myVersion = "97"
        Case 9
            myVersion = "2000"
        Case 10
            myVersion = "2002"
        Case 11
            myVersion = "2003"
        Case 12
            myVersion = "2007"
       Case 14
            myVersion = "2010"
        Case Else
            myVersion = "版本不明"
    End Select
    MsgBox "你的Excel是" & myVersion & "版", vbInformation
error1: End Sub
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
2#
發表於 2012-5-31 21:50 | 顯示全部帖子
Sub 巨集1()
If Val(Application.Version) >= 12 Then '2007 SAVE
ActiveWorkbook.SaveAs "C:\Users\user\Desktop\活頁簿1.xls", FileFormat:=xlExcel8
Else
ActiveWorkbook.SaveAs "C:\Users\user\Desktop\活頁簿1.xls"
End If
End Sub

路徑自己改一改
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題