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)檔案。

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

樓主熱帖

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兔年全勤獎章

2^#

發表於 2019-3-9 09:40 | 只看該作者

多看看,世界會變大

Option Explicit
Sub Ex()
Dim Path As String, A As String
Path = ThisWorkbook.Path '請修改為你的資料夾
A = Dir(Path & "\*.CSV")
Do While A <> ""
Name Path & "\" & A As Path & "\" & Replace(A, ".csv", ".xls")
A = Dir
Loop
End Sub

複製代碼

回復 1# papaya

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

TOP

papaya

中學生 Rank: 2

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

3^#

發表於 2019-3-9 11:29 | 只看該作者

回復 2# GBKEE

超版大:您好!
不好意思，請問:
1_程式碼要貼到哪裡?
2_要如何操作?
謝謝您!

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兔年全勤獎章

4^#

發表於 2019-3-9 13:24 | 只看該作者

回復 3# papaya
Path = ThisWorkbook.Path '修改為csv的資料夾
程式碼可貼在任何模組上
早上程式寫好沒確認轉為xls檔事是否正確
剛確認 name 無法改csv的檔案性質為.xls
請改用 .SaveAs 然後在 Kill csv

Option Explicit
Sub Ex()
Dim Path As String, A As String
Path = ThisWorkbook.Path '請修改為你的資料夾
A = Dir(Path & "\*.CSV")
Do While A <> ""
With Workbooks.Open(Path & "\" & A)
.SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlExcel8
.Close True
End With
Kill Path & "\" & A
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

5^#

發表於 2019-3-9 13:59 | 只看該作者

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

回復 4# GBKEE

超版大:您好!
程式碼可貼在任何模組上=>是指選擇資料夾內任一個檔案嗎?還是在同一個資料夾內新增一個excel.xls檔案?

程式碼貼到"今日總表(均值排序)-1_1-(基準日：2019-03-05)"的模組1後，點上方"執行"=>顯示FileFormat:=xlExcel8=>"變數未定義"
請問:要如何修改?謝謝您!

PS:
1_請問:是一次改一個檔案的副檔名嗎?還是一次可以將資料夾內的所有檔案的副檔名由.cvs改為.xls
2_我的作業系統為Win7
謝謝您!

TOP

GBKEE