返回列表 上一主題 發帖

[發問] VBA 判斷當前EXCEL類型, 再SAVE AS

boomf2

帖子
17 
主題
7 
精華
0 
積分
24 
點名
0  
作業系統
windwo10 
軟體版本
excel2013 
閱讀權限
10 
註冊時間
2017-1-7 
最後登錄
2023-2-18 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-12-20 15:35 | 只看該作者

[發問] VBA 判斷當前EXCEL類型, 再SAVE AS

Hi 大大,

想問一下怎樣寫一個VBA, 來判斷當前檔案類型?

1. 來判斷當前檔案類型
2. CSV?
4. Yes , Save as Excel workbook.


thank you
收藏 分享

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
2#
發表於 2019-12-20 15:58 | 只看該作者
如果檔名在儲存格 RANGE("A1") 內
比如 C:\TEMP\TEST.CSV

If Right(Range("A1"), 4) = ".CSV" Then
     ActiveWorkbook.SaveAs Filename:="C:\Users\Tat\Documents\excel\Book1123123.xls"
Else
    MsgBox "NOT CSV FILE"
End If

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題