papaya

回復 9# GBKEE

採用xlNormal=>OK了!
但後續有產生一些小問題~
打開更改類型後的檔案會顯示"復原_Sheet1"名稱的工作表︰

下載 (139.89 KB)

2019-3-10 12:37

請問︰
能利用程式將更改後的檔案內的工作表名稱不變(本來的"工作表名稱"就是與"檔案名稱"相同的)
或
將更改後檔案(EX︰今日總表(均值排序)-1_1-(基準日：2019-03-05))的提示框點"關閉"，並將工作表名稱"復原_Sheet1"再改為="檔案名稱"~

下載 (121.98 KB)

2019-3-10 12:42

謝謝您^^

GBKEE

回復 11# papaya
你的CSV 檔是從網路下載嗎? (可能裡面有不可見字元)
沒辦法用VBA將(復原_Sheet1"改為="檔案名稱

papaya

回復 11# papaya

是的!我的csv檔是從網路下載而來。
不好意思，第1次接觸改檔的問題，麻煩您許多^^"
謝謝您耐心的為我解惑~感恩

PS:可否勞駕您將下列2個發問題刪除~
http://forum.twbts.com/thread-21580-1-1.html
http://forum.twbts.com/thread-21562-1-1.html
謝謝您^^"

papaya

回復 12# GBKEE

下載 (25.81 KB)

2019-3-20 05:58

變更檔案類型.rar (23.18 KB)

下載次數: 2

2019-3-20 06:02

GBKEE超版大:
剛剛發現下載後的.csv檔案，以手動點重新命名，將其檔案名稱中的︰(冒號)改為空白後，其工作表的名稱中的︰(冒號)也會自動改為空白，
所以可否請您在將資料夾內的.csv檔案更改為.xls檔案之前，先將資料夾內所有的.csv檔案之名稱中的︰(冒號) 改為空白後，再將資料夾內的.csv檔案更改為.xls檔案。

如果上述的步驟VBA語法可以達成，尚請您再次賜教。
謝謝您^^

papaya

回復 12# GBKEE
超版大:
不好意思，忘了附上測試用的檔案。補上~~~
今日總表(均值排序)-(基準日：2019-03-05).rar (13.67 KB)

下載次數: 4

2019-3-21 07:05

papaya

回復 12# GBKEE

補充說明:
因為目前有將各個檔案先以重新命名手動將資料夾內的檔案名稱中的︰(冒號)一個一個改為空白後，再以您的解答檔執行更改檔案類型~測試成功。
所以才想是否能將上述的手動過程，以程式語法代之?
如果可行，煩請您賜教!謝謝您!

GBKEE

回復 16# papaya

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Path As String, A As String, B As String
   
4.     Path = ThisWorkbook.Path  '請修改為你的資料夾
   
5.     A = Dir(Path & "\*.CSV")
   
6.     Do While A <> ""
   
7.         Name Path & "\" & A As Path & "\" & Replace(A, "：", "")
   
8.         A = Replace(A, "：", "")
   
9.          With Workbooks.Open(Path & "\" & A)
   
10.              .SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlNormal
    
11.              .Close True
    
12.          End With
    
13.         A = Dir
    
14.     Loop
    
15. End Sub

複製代碼

papaya

回復 17# GBKEE
超版大:
以15#的附件範例測試~沒有成功^^"

下載 (44.96 KB)

2019-3-21 12:29

下載 (22.07 KB)

2019-3-21 12:30

我不知是什麼原因?敬請賜正!謝謝您!

papaya

回復 17# GBKEE
超版大:
OK了!
感謝您多次的耐心幫忙