返回列表 上一主題 發帖

[發問] 請教*.csv檔，如何在儲存格加上顏色後，再存成.csv檔~~

vesperlee

帖子
15 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-29 
最後登錄
2021-7-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-14 22:41 | 顯示全部帖子

[發問] 請教*.csv檔，如何在儲存格加上顏色後，再存成.csv檔~~

請教*.csv檔，如何在儲存格加上顏色後，再存成.csv檔~~

請教如何使用VBA開啟一個"測試.csv"檔後，副程式裏在"測試.csv"檔內運算，
並在儲存格內加上顏色。但在存檔後，顏色會不見。

請教如何使用VBA，開啟"測試.csv"檔後，運算完存檔成  "測試.csv" (覆蓋原本的檔)
而不是 另存成一個  "測試.xls"  的新檔。

謝謝！感恩~~。
以下為 相關問題資料。感恩~指教~~~。


資料整理-102.12.14.rar (27.54 KB)
收藏 分享

vesperlee

帖子
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顏色還是會不見！
麻煩指教~~~，謝謝~~~

TOP

vesperlee

帖子
15 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-29 
最後登錄
2021-7-4 
3#
發表於 2013-12-15 16:22 | 顯示全部帖子
殘念~~~！
剛剛看了一下，*.csv檔和*.xls檔  的大小果真差很多。原來*.csv是文字格式的檔案,
謝謝  GBKEE 大大的說明。

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題