Excel 파일을 열어서 복제 후 html 파일로

 

  • Autoit 편집기를 실행 후 [ File ] > [ New ] 하여 빈 문서를 생성하여 저장 후 [ F1 ] 키를 누르세요.
  •  도움말이 표시되면 좌측에 [ 내용 ] 항목 탭을 선택 후 _Excel_BookSaveAs를 선택합니다. 그럼 우측에 세부 내용이 표시됩니다.

 

  • 하단 Example 를 복제하여 편집기 빈 문서에 붙여 넣어 줍니다.

 

 

 

 

 

  • 파일을 불러오는 위치는 스크립트 위치에서 xls 파일을 불러오도록 되어 있습니다. Script 만 가져 왔기 때문에 폴더나 파일을 현재상황에 맞게 설정해 주는 작업이 필요합니다. 먼저 간단한 Excel 파일을 생성하여 Script와 동일한 위치에 파일을 저장하였습니다.

 

 

  • 경로와 파일명이 원본과의 변화가 되었으므로 현재 상황에 맞게 업데이트를 진행합니다.

 

  • 추가적으로 결과가 저장되는 폴더도 스크립트가 존재하는 위치로 변경해줍니다.

 

 

  • 이제 기본적인 변경 작업을 진행하였으므로 스크립트를 동작하여 결과를 확인합니다.

 

결과 스크립트 : 

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object and open an example workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookSaveAs Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Test_Sample.xlsx")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookSaveAs Example", "Error opening workbook '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; Save the workbook (xls) in another format (html) to another directory and
; overwrite an existing version
Local $sWorkbook = @ScriptDir & "\_Excel1.html"
_Excel_BookSaveAs($oWorkbook, $sWorkbook, $xlHtml, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookSaveAs Example 1", "Error saving workbook to '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookSaveAs Example 1", "Workbook successfully saved as '" & $sWorkbook & "'.")
ShellExecute($sWorkbook)

+ Recent posts