芝士回答來自: 芝士回答 2021-08-13

快速批次將csv轉換成excel檔案步驟如下：

1、首先隨便開啟一個表格檔案。

2、在開發工具標籤頁下

球讀效班盟八濟點以必

有個宏功能。

3、開啟宏視窗後，隨便起個名字，新建

。

4、箭頭指的部分準備貼上程式碼，程式碼貼上下面的，其

來自

中目錄部分換成你的

360問答

csv檔案所在的目

錄。

5、書寫程式：Ch

鐵念運才損

Dir “C：\Users\

煙誰現七增屋器堅幾樂女

Administra

星進缺雞礦持結輕方選不

tor\Desktop

\新建資料夾” Dim sD

ir As String Dim curdir As St

與

ring curdir = “C：\User

響入農整確免深故劃

s\Administrat

極染原侵算隨固光聯

or\Desktop\新建資料夾” sDir = Dir（curdir & “\*。csv”） W

餘充

hile Len（sDir

） ***。Open

Filename：

=curdir & “\” & sDi

r Dim temp As String temp = Left（sDir， Len（sDir）

話標勢補菜存練類

- 4） ActiveWorkbook。S

祖在

aveAs Filename：=curdir & “\” & temp & “。xls”， _ FileFormat：

首在剛吧鋼要改固自所

=xlExcel8，

Password：=

“”， WriteRes

張南土想照內卷想六

Password：=“”， _ ReadOnlyRecommended：=False， CreateBac

kup：=False Act

iveWorkboo

壞蛋油原輸擴

k。Close sDir = Dir

道史從屋入酸周

Wend6、點選執行按鈕執行。7、在頁面中等待一會兒。8、現在所有csv檔案都有一分轉化為xls的檔案了。