[오토잇] 엑셀파일(xlsx,xls)을 txt,csv 변환 저장하는 프로그램
첨부된 "양식 파일" 다운로드 링크는 아래로 내리시면 연관(관련)된 서식 목록 아래 쪽에 있습니다.
텍스트 파일인 txt, csv로 변환 저장하는 프로그램 입니다.
이 프로그램은 엑셀이 설치된 상태에서 엑셀 프로그램을 이용하기 때문에 반드시 엑셀이 설치가 되어 있어야 작동 합니다.
소스를 보시면 txt 파일만 변환이 안되는 것이 아니라 html, pdf도 가능 합니다.
이 부분은 간단하게 본인이 필요한 포맷 있으면 정의된 상수를 보고 넣어 주기만 하면 가능하기 때문에 필요하신 분은 아래 상수 첨부된 파일을 참고 하세요.
#cs
# ------------------------------------------------------------------------
xlsx to txt, csv, pdf, html
@author :
@date :
# ------------------------------------------------------------------------
#ce
#Include <File.au3>
#Include <Array.au3>
#Include <String.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
; 엑셀에 입력 되는 파일의 경로는 절대경로 여야 한다.
$mode = 'csv'
$srcFile = ''
$dstFile = ''
; 인자 입력 및 유효 파일 체크
If $CmdLine[0] >= 1 Then $mode = $CmdLine[1]
If $CmdLine[0] >= 2 Then $srcFile = $CmdLine[2]
If $CmdLine[0] >= 3 Then $dstFile = $CmdLine[3]
If $srcFile == '' OR Not FileExists($srcFile) Then
$srcFile = @ScriptDir & "\" & "1.xlsx"
$dstFile = @ScriptDir & "\" & "1.txt"
EndIf
ConsoleWrite('mode: ' & $mode & @CRLF)
ConsoleWrite('srcFile: ' & $srcFile & @CRLF)
ConsoleWrite('dstFile: ' & $dstFile & @CRLF)
; 상수정의 값은
; C:\Program Files (x86)\AutoIt3\Include\ExcelConstants.au3
Local $oAppl = _Excel_Open(False, False, Default, Default, True)
Local $oWorkbook= _Excel_BookOpen($oAppl, $srcFile)
If $mode == 'txt' Then
_Excel_BookSaveAs($oWorkbook, $dstFile, $xlTextPrinter, True)
ElseIf $mode == 'csv' Then
_Excel_BookSaveAs($oWorkbook, $dstFile, $xlCSV, True)
ElseIf $mode == 'pdf' Then
_Excel_Export($oAppl, $oWorkbook, $dstFile)
ElseIf $mode == 'html' Then
_Excel_BookSaveAs($oWorkbook, $dstFile, $xlHtml, True)
EndIf
If FileExists($dstFile) Then
ConsoleWrite('output File: ' & $dstFile & @CRLF)
Else
ConsoleWrite('output File: ' & $dstFile & ' not found' & @CRLF)
EndIf
_Excel_Close($oAppl)
● 엑셀 문서 포맷 상수
- 첨부된 파일이나 링크를 보시면 됩니다.
첨부파일
관련링크