@shraga כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:
אולי מישהו יתנדב לסדר לך משהו מושלם.
@dovid כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:
את החלק האחרון אני לא יודע בדיוק איך מבצעים.
@Whenever כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:
אני חושב להפוך את סקריפט שימיר CSV לאקסל. זה יהיה לי שימושי.
אחרי ש @mekev עשה עבודה יפה, אני מתנדב בשמחה להוסיף את השיפורים שלי:
סקריפט batch משופר להמרה דו כיוונית (Excel<->Csv):
@echo off
if /i [%2]==[csv] goto TryConvert
if /i [%2]==[xlsx] goto TryConvert
echo Unsupported output format specified: %2
exit /b
:TryConvert
echo Converting file %1 to %2 format, please wait...
cscript /nologo "%~dp0ExcelCsvConvertorScript.vbs" "%~dpnx1" "%~dpn1.%2" %2
echo Done!
סקריפט VB משופר להמרה דו כיוונית:
if WScript.Arguments.Count <> 3 Then
Wscript.Echo "Error: invalid number of arguments specified." & vbNewline
WScript.Echo "Usage: ExcelCsvConvertor <InputFileName> <OutputFileName> <OutputFormat>" & vbNewline
WScript.Echo "Example: ExcelCsvConvertor input.xlsx output.csv csv"
Wscript.Quit
End If
InputFileName = Wscript.Arguments.Item(0)
OutputFileName = WScript.Arguments.Item(1)
OutputFormat = lcase(WScript.Arguments.Item(2))
Select Case OutputFormat
Case "csv"
XlFileFormatValue = 62
Case "xlsx"
XlFileFormatValue = 51
Case Else
Wscript.Echo "Unsupported output format specified: " & OutputFormat
Wscript.Quit
End select
With CreateObject("Excel.Application")
With .Workbooks.Open(InputFileName)
.SaveAs OutputFileName, XlFileFormatValue
.Close False
End With
.Quit
End With
קובץ להתקנה והסרה קלה מתפריט ההקשר (לחצן ימני):
@echo off
set convertor_path=%~dp0ExcelCsvConvertor.cmd
cls
echo ==========================================================================
echo ExcelCsvConvertor: Context menu setup
echo ==========================================================================
echo.
echo [1] Install : Adds "Convert to CSV/Excel" options to context menu
echo [2] Uninstall : Removes "Convert to CSV/Excel" options from context menu
echo [Q] Quit
echo.
choice /C 12Q /T 1000 /D Q /N /M "Please select an option: "
IF [%errorlevel%]==[1] GOTO Install
IF [%errorlevel%]==[2] GOTO Uninstall
exit /b
:Install
echo Installing...
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f /d "Convert to CSV..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV\command /f /d "\"%convertor_path%\" \"%%1\" csv"
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f /d "Convert to Excel..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel\command /f /d "\"%convertor_path%\" \"%%1\" xlsx"
goto Done
:Uninstall
echo Uninstalling...
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f
goto Done
:Done
echo Done!
pause
הערות:
- את ההתקנה יש להפעיל עם הרשאות מנהל
- מיקום הסקריפטים מוטמע ברישום בזמן ההתקנה.
אם משנים את מיקום הסקריפטים לאחר ההתקנה, נדרש להפעיל את ההתקנה שוב.
והנה כל החבילה להורדה: (הערה: עיין בהמשך האשכול לגרסה משופרת 0.2)
ExcelCsvConvertor.cmd
ExcelCsvConvertorScript.vbs
Setup (run as Administrator).cmd