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
查看全部
你可能也想看
Google News 追蹤
徵的就是你 🫵 超ㄅㄧㄤˋ 獎品搭配超瞎趴的四大主題，等你踹共啦！還有機會獲得經典的「偉士牌樂高」喔！馬上來參加本次的活動吧！
隨著理財資訊的普及，越來越多台灣人不再將資產侷限於台股，而是將視野拓展到國際市場。特別是美國市場，其豐富的理財選擇，讓不少人開始思考將資金配置於海外市場的可能性。
然而，要參與美國市場並不只是盲目跟隨標的這麼簡單，而是需要策略和方式，尤其對新手而言，除了選股以外還會遇到語言、開戶流程、Ap
在工作中常常會需要用到Excel去整理數據資料，因為近期有在進行作業優化學習，提供網路上10個常用的Excel快捷鍵配置，以及相對應的功能，做為自我複習資料。
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
Excel是一個強大的電子試算表軟體，不僅適用於數據分析和報表製作，還能通過VBA（Visual Basic for Applications）進行自動化和擴展功能。要使用這些進階功能，首先需要啟用開發人員選項。以下將詳細介紹在Windows和Mac版本的Excel中如何啟用這個選項。
在Wi
設計完一覽表之後，如果會寫程式的人可以每天用這種方法去抓資料放到Excel.
那不會寫程式的人呢？
這裡教你一個稍微要花點時間的輸出Excel的方法。
在上禮拜完成的自選裡。
一、 你先依下圖，在“功能”中找到”輸出到Excel”，按下報價精靈
二、 選擇全部加入，按下全部加
這段程式碼假設您的XYZ資料存儲在名為"Sheet1"的工作表中的A1:Cn範圍內，其中n是資料行的數量。它將資料提取出來，然後在新建的工作表中按照網格的形式重新排列。
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
在職場上，我們經常需要使用 Excel 表格來處理資料，而自動格式設定可以幫助我們快速將資料整理成一致的格式，讓資料看起來更清晰、更有效率。用 Excel 的快捷鍵自動出現自動格式設定技巧，可以讓我們在更短的時間內套用自動格式，讓工作更輕鬆。
徵的就是你 🫵 超ㄅㄧㄤˋ 獎品搭配超瞎趴的四大主題，等你踹共啦！還有機會獲得經典的「偉士牌樂高」喔！馬上來參加本次的活動吧！
隨著理財資訊的普及，越來越多台灣人不再將資產侷限於台股，而是將視野拓展到國際市場。特別是美國市場，其豐富的理財選擇，讓不少人開始思考將資金配置於海外市場的可能性。
然而，要參與美國市場並不只是盲目跟隨標的這麼簡單，而是需要策略和方式，尤其對新手而言，除了選股以外還會遇到語言、開戶流程、Ap
在工作中常常會需要用到Excel去整理數據資料，因為近期有在進行作業優化學習，提供網路上10個常用的Excel快捷鍵配置，以及相對應的功能，做為自我複習資料。
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
本文介紹了將獨立的Excel檔案轉換為PDF檔的方法，並提供了相關連結和資源，包括Excel教學、VBA自動轉存檔案等。文章中還包含了南宋詞人辛棄疾詞和張忠謀的引言，讓讀者在解決問題的同時得到一些靈感和鼓勵。
Excel是一個強大的電子試算表軟體，不僅適用於數據分析和報表製作，還能通過VBA（Visual Basic for Applications）進行自動化和擴展功能。要使用這些進階功能，首先需要啟用開發人員選項。以下將詳細介紹在Windows和Mac版本的Excel中如何啟用這個選項。
在Wi
設計完一覽表之後，如果會寫程式的人可以每天用這種方法去抓資料放到Excel.
那不會寫程式的人呢？
這裡教你一個稍微要花點時間的輸出Excel的方法。
在上禮拜完成的自選裡。
一、 你先依下圖，在“功能”中找到”輸出到Excel”，按下報價精靈
二、 選擇全部加入，按下全部加
這段程式碼假設您的XYZ資料存儲在名為"Sheet1"的工作表中的A1:Cn範圍內，其中n是資料行的數量。它將資料提取出來，然後在新建的工作表中按照網格的形式重新排列。
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
在職場上，我們經常需要使用 Excel 表格來處理資料，而自動格式設定可以幫助我們快速將資料整理成一致的格式，讓資料看起來更清晰、更有效率。用 Excel 的快捷鍵自動出現自動格式設定技巧，可以讓我們在更短的時間內套用自動格式，讓工作更輕鬆。