papaya

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-3-9 04:37 | 只看該作者

[發問] 如何變更資料夾內所有檔案的檔案類型？

本帖最後由 papaya 於 2019-3-9 04:42 編輯

今日總表(均值排序)-(基準日：2019-03-05).zip (80.04 KB)

想一次將一個資料夾內的所有Microsoft Office Excel 逗點分隔值檔案 (.csv)
都更改為Microsoft Excel 工作表 (.xls)檔案。

請問︰有什麼方法或語法可以解決?
謝謝！

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

19^#

發表於 2019-3-21 15:16 | 只看該作者

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

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

18^#

發表於 2019-3-21 12:31 | 只看該作者

[版主管理留言]

GBKEE(2019/3/21 15:03): 17# 的程式碼有小缺失.已修正,再試試看

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2019-3-21 11:26 | 只看該作者

本帖最後由 GBKEE 於 2019-3-21 15:01 編輯

回復 16# papaya

Option Explicit
Sub Ex()
Dim Path As String, A As String, B As String
Path = ThisWorkbook.Path '請修改為你的資料夾
A = Dir(Path & "\*.CSV")
Do While A <> ""
Name Path & "\" & A As Path & "\" & Replace(A, "：", "")
A = Replace(A, "：", "")
With Workbooks.Open(Path & "\" & A)
.SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlNormal
.Close True
End With
A = Dir
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

16^#

發表於 2019-3-21 07:42 | 只看該作者

本帖最後由 papaya 於 2019-3-21 07:46 編輯

回復 12# GBKEE

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

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

15^#

發表於 2019-3-21 07:06 | 只看該作者

回復 12# GBKEE
超版大:
不好意思，忘了附上測試用的檔案。補上~~~

今日總表(均值排序)-(基準日：2019-03-05).rar (13.67 KB)

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

14^#

發表於 2019-3-20 06:04 | 只看該作者

本帖最後由 papaya 於 2019-3-20 06:05 編輯

回復 12# GBKEE

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

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

TOP

papaya