EXCEL 轉存CSV之自動執行
閱讀時間約 17 分鐘
目的:
省去開啟EXCEL檔，轉存為CSV檔之手動作業，縮短作業時間，提高工作效率，尤其是對象為複數個檔案場合
1,利用vbs 設計程式，執行後，便可轉換 產出csv檔
1.1 vbs程式應用說明
* input file ---由vbs 第一個引數取得 (即變數 src_file 之Excel file name )
* output file---由vbs 第二個引數取得 (即變數名dest_file 之CSV file name )
* 處理流程 :
1.取得引數
2. Open EXCEL
3.OPEN Excel Book
4. Save as CSV file format --- csv file 不存在時會新增csv file，若既存 會詢問是否覆蓋
5.Close
1.2 程式設計如下參考:
REM --vbs for EXCEL save as csv file--------
if WScript.Arguments.Count < 2 Then
WScript.Echo"Please specify the source and the destination files. Usage: ExcelToCsv <source file: excel> <destination file: csv>"
Wscript.Quit
End If
csv_format = 6
Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)
oBook.SaveAs dest_file, csv_format
oBook.Close False
oExcel.Quit
2.一次轉換一個EXCEL檔
2.1 於cmd 輸入如下命令，便可自動完成轉換作業
CScript //B excel2csv.vbs inpExcelFName outCSVFName
* 輸入決定兩個引數，便可執行
兩個引數亦可以變數代稱， 如set PARi=ExcelFName；set PARo=CSVFName
2.2上述亦可設計cmd執行檔，執行該cmd便可自動完成轉換作業
REM --cmd for EXCEL 轉成 csv -----------
del SH.csv
CALL CScript //B excel2csv.vbs SH.xlsx SH.csv
EXIT
3.整批轉換多個EXCEL檔
3.1 設計cmd執行檔，執行該cmd，便可自動完成整個資料夾內所有EXCEL檔之轉換。
日後，資料夾內之EXCEL檔名，或檔案內容，檔案數量之變更追加均無影響，該cmd 仍可正常執行
3.2 實例說明
* input excel file 可將資料夾內複數個excel 檔案，全部取出作轉換
* output CSV file，執行後產出多個CSV檔，並 存放在指定的資料夾內
*出力之csv file ，若既存 會詢問是否覆蓋
BATCH作業為了省略該動作，故設計為csv 可先全部刪除，再讓它全部新增產出
* 本例input file 共31 個Excel檔案，如下
* 本cmd 執行後， 新增產出 CSV file 共31 個檔案，如下
* 本cmd執行後結果產出之訊息，記錄於 txt file ，檔名: Result_Vol_Xls2Csv.txt ，可供使用者確認，內容如下
* ** Result of excel convert ** * 2024/07/23 週二 11:25:49.48
--------- 執行動作說明 對象檔名 --------
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-偉豪Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-孟陽Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-家苗Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-廖秀玉Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-招治Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-捷女Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-春英Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-林家在Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-林美珠Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-楊雪梨Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-楚玟Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-歐坤一Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-洪王麗珠Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-玉潔Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-王瑛瑛Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-玲慧Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-素梅Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-美玲Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-范美珠Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-趙羅秀英Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-進輝Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-郭秀珍Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-金美娟Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-金菊Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-錦珍Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-陳春香Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-陳禮華Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-陳秀貞Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-雅珶Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-鳳英Y".csv
** already coverted csv file save as C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工\CSV\"衛福部志工服務數-黃敏Y".csv
------------ Convert to csv completed 正常終了 2024/07/23 週二 11:28:19.07
3.3 本cmd檔名: Vol_Xls2Csv.cmd，實例設計如下參考:
@echo off
rem set PAR1=D:\志工\志工EXCEL
set PAR1=C:\Users\admin\Desktop\衛福部志工系統-志工時數\志工
C:
rem D:
cd %PAR1%
echo.
echo *** Convert Excel sheets to csv files ***
IF NOT EXIST %PAR1% ( echo ### ERROR : %PAR1% is not exist
pause & Goto EJob )
::-----vbs執行轉換時，若csv檔名已存在，會跳出視窗，問是否要覆蓋
echo ***
set /p SW="** Do you delete all csv files ? (Y/N) :"
if /i %SW% == Y (del %PAR1%\CSV\*.*
echo * already deleted all csv file in %PAR1%\CSV\*.* >> Result_Vol_Xls2Csv.txt)
::----執行結果出力之表頭設定
echo. > Result_Vol_Xls2Csv.txt
echo * ** Result of excel convert ** * %DATE% %TIME% >> Result_Vol_Xls2Csv.txt
echo. >> Result_Vol_Xls2Csv.txt
echo --------- 執行動作說明 對象檔名 -------- >> Result_Vol_Xls2Csv.txt
echo ***
echo *** Convert Excel sheets to csv files in process 執行中...
::-----讀取所有excel檔，並執行轉換為csv檔
For /f "tokens=1 delims=?" %%A in ( 'forfiles /P "%PAR1%" /M "*.xls*" /c "cmd /c echo @fname" ') do (
CALL :Xls2Csv %%A)
echo ***
echo *** Convert Excel sheets to csv files completed 執行完了
echo ------------ Convert to csv completed 正常終了 %DATE% %TIME% >> Result_Vol_Xls2Csv.txt
:EJob
pause ejob
EXIT
:Xls2Csv
SET xlsFName=%1
::-----CSV子目錄需先存在，Eexcel無副檔名xls 仍可；csv出力時檔名不能既存，需先刪除
IF EXIST %PAR1%\CSV\%xlsFName%.csv (del %PAR1%\CSV\%xlsFName%.csv
echo * already deleted old csv file %PAR1%\CSV\%xlsFName%.csv >> Result_Vol_Xls2Csv.txt)
CALL CScript //B excel2csv.vbs %PAR1%\%xlsFName% %PAR1%\CSV\%xlsFName%.csv
echo ** already coverted csv file save as %PAR1%\CSV\%xlsFName%.csv >> Result_Vol_Xls2Csv.txt
rem pause ---run vbs?
EXIT /B
-----by linct------
留言0
查看全部
你可能也想看
「設計不僅僅是外觀和感覺。設計是其運作的方式。」 — Steve Jobs
身為一個獨立文案，許多人會以為我們的生活只需要面對電腦，從無到有，用精巧的文字填滿空白的螢幕，呈現心目中獨具風格的作品。
——有的時候可以如此，但其實這是我們夢寐以求的偶發日常。
更多的時候，白天的工作時間總被各種繁雜
台股、美股近期明顯回檔，市場敘事發生改變，壞消息一樁接一樁出現，下一步該怎麼走呢？本文將探討近期的宏觀經濟事件，並分享個人的操作思考。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
如果要把EXCEL的內容貼到文件夾上當標籤，預設的狀態下，直接列印列貼上去文字方向會錯誤。
【📝圖文教學】
其實要讓文字轉90度躺下來休息，真的超級簡單
選取要讓文字轉方向的範圍
在字體前面加上一個小老鼠『＠』
分享如果對你有幫助
歡迎訂閱贊助效率職人沙龍
解
這段程式碼假設您的XYZ資料存儲在名為"Sheet1"的工作表中的A1:Cn範圍內，其中n是資料行的數量。它將資料提取出來，然後在新建的工作表中按照網格的形式重新排列。
這篇文章介紹如何使用Excel整理期貨交易所資料並追蹤期貨三大法人籌碼數據。文章涵蓋了期貨三大法人的用途、期貨交易所網站資料認識、運用Excel VBA爬取交易所資料以及資料彙整與半自動輔助更新。這些學習將幫助您深入進行期貨交易分析並制定更加細緻的交易策略。
無論是企業、小商家或是個人，都可能會用到 Excel 來處理資料。在使用 Excel 時，我們常常需要將多行數據快速轉換為其他格式，例如，將多行數據合併為一行、將多行數據拆分為多列，或將多行數據轉換為其他類型資料。
傳統上，我們可以使用複製、貼上、合併儲存格等方法來完成這些操作。但是，這些方法不僅
在臺灣，有部分企業會使用民國日期，因此如何在 Excel 中轉換民國和西元日期就顯得非常重要。 除了日期轉換之外，計算年紀、星期、生肖、星座也是常見的日期處理需求。這些需求看似簡單，但如果沒有 Excel 的幫助，可能會花費不少時間和精力。
在數字化快速發展的今天，許多企業仍在使用Excel進行行政工作。雖然Excel擁有強大的數據處理和分析能力，但其使用也存在許多限制，例如操作複雜、難以進行大規模數據管理和分析，以及無法實現自動化處理等。
No Code AI
這篇是日期轉換的第2篇，第一篇傳送門:EXCEL 民國日期轉西元日期 日期轉換大全#1
民國日期是台灣很長用的日期表達方式，但EXCEL並不是台灣人發明的，所以EXCEL並看不懂民國日期，這時如果遇到西元日期，但老闆卻堅持要用民國顯示的話，就得靠一些小手段了。
EXCEL中華民國曆
EXC
工作上許多人會遇到需要將日期由民國年轉換成西元日期，使用民國年輸入日期其實EXCEL是完全看不懂的唷，他會變成文字格式而非日期格式，導致所有的日期函數都無法使用😭
所以就須要使用函數來將這些日期轉變成西元日期，這樣EXCEL才看得懂，才可使用各種函數來進行分析，這集總共有五種常見的民國年的格式案
語法
UPPER(text)：將英文轉換成「大寫」
LOWER(text)：將英文轉換成「小寫」
PROPER(text)：將英文轉換成「首字母大寫」
輸入語法後，點選需變動的儲存格即可。
「設計不僅僅是外觀和感覺。設計是其運作的方式。」 — Steve Jobs
身為一個獨立文案，許多人會以為我們的生活只需要面對電腦，從無到有，用精巧的文字填滿空白的螢幕，呈現心目中獨具風格的作品。
——有的時候可以如此，但其實這是我們夢寐以求的偶發日常。
更多的時候，白天的工作時間總被各種繁雜
台股、美股近期明顯回檔，市場敘事發生改變，壞消息一樁接一樁出現，下一步該怎麼走呢？本文將探討近期的宏觀經濟事件，並分享個人的操作思考。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
如果要把EXCEL的內容貼到文件夾上當標籤，預設的狀態下，直接列印列貼上去文字方向會錯誤。
【📝圖文教學】
其實要讓文字轉90度躺下來休息，真的超級簡單
選取要讓文字轉方向的範圍
在字體前面加上一個小老鼠『＠』
分享如果對你有幫助
歡迎訂閱贊助效率職人沙龍
解
這段程式碼假設您的XYZ資料存儲在名為"Sheet1"的工作表中的A1:Cn範圍內，其中n是資料行的數量。它將資料提取出來，然後在新建的工作表中按照網格的形式重新排列。
這篇文章介紹如何使用Excel整理期貨交易所資料並追蹤期貨三大法人籌碼數據。文章涵蓋了期貨三大法人的用途、期貨交易所網站資料認識、運用Excel VBA爬取交易所資料以及資料彙整與半自動輔助更新。這些學習將幫助您深入進行期貨交易分析並制定更加細緻的交易策略。
無論是企業、小商家或是個人，都可能會用到 Excel 來處理資料。在使用 Excel 時，我們常常需要將多行數據快速轉換為其他格式，例如，將多行數據合併為一行、將多行數據拆分為多列，或將多行數據轉換為其他類型資料。
傳統上，我們可以使用複製、貼上、合併儲存格等方法來完成這些操作。但是，這些方法不僅
在臺灣，有部分企業會使用民國日期，因此如何在 Excel 中轉換民國和西元日期就顯得非常重要。 除了日期轉換之外，計算年紀、星期、生肖、星座也是常見的日期處理需求。這些需求看似簡單，但如果沒有 Excel 的幫助，可能會花費不少時間和精力。
在數字化快速發展的今天，許多企業仍在使用Excel進行行政工作。雖然Excel擁有強大的數據處理和分析能力，但其使用也存在許多限制，例如操作複雜、難以進行大規模數據管理和分析，以及無法實現自動化處理等。
No Code AI
這篇是日期轉換的第2篇，第一篇傳送門:EXCEL 民國日期轉西元日期 日期轉換大全#1
民國日期是台灣很長用的日期表達方式，但EXCEL並不是台灣人發明的，所以EXCEL並看不懂民國日期，這時如果遇到西元日期，但老闆卻堅持要用民國顯示的話，就得靠一些小手段了。
EXCEL中華民國曆
EXC
工作上許多人會遇到需要將日期由民國年轉換成西元日期，使用民國年輸入日期其實EXCEL是完全看不懂的唷，他會變成文字格式而非日期格式，導致所有的日期函數都無法使用😭
所以就須要使用函數來將這些日期轉變成西元日期，這樣EXCEL才看得懂，才可使用各種函數來進行分析，這集總共有五種常見的民國年的格式案
語法
UPPER(text)：將英文轉換成「大寫」
LOWER(text)：將英文轉換成「小寫」
PROPER(text)：將英文轉換成「首字母大寫」
輸入語法後，點選需變動的儲存格即可。