- 帖子
- 15
- 主題
- 7
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-29
- 最後登錄
- 2021-7-4
|
2#
發表於 2013-12-15 02:20
| 只看該作者
Sub test()
Get_Path_LEN = Len(Application.ActiveWorkbook.FullName) '取得檔案完整名路徑及名稱
Get_Date_name_LEN = Len(Application.ActiveWorkbook.Name) '取得 檔案 名稱
Full_path_name = Left((Application.ActiveWorkbook.FullName), Get_Path_LEN - Get_Date_name_LEN) '取得 完整路徑
Open_download_Date = Full_path_name & "測試.csv"
Workbooks.Open Open_download_Date ' 開啟 檔案
'運算測試檔(在csv加入運算及顏色)
Workbooks("測試.csv").Close SaveChanges:=True '====>>>>>存檔後 *.csv顏色還是不見了?
Application.DisplayAlerts = True '恢復警告視窗
End Sub
用這個方法,還是沒辨法改善,*.csv顏色還是會不見!
麻煩指教~~~,謝謝~~~ |
|