- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 148
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-21
- 最後登錄
- 2023-3-13
|
如果檔名在儲存格 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 |
|
發表於 2019-12-20 15:58
| 