Option Explicit
Private Const xlHtml as Long = 44
'=======================================================================
' Function : SetSheetHtmlConvert
' Author : 이 석재(http://cafe.naver.com/xlsvba/1086)
' LA Time : 2008-08-07 11:33
' Purpose : Excel 워크북내 Target 시트 하나를 HTML파일로 변환한다.
' Pram : objExcel - 엑셀 개체변수
' strWorkBookName - 대상 워크북 이름(활성화 되어있어야 함)
' strTargetSheet - 대상 워크시트 이름
' strHtmlFullName - 변환될 HTML파일의 FullName
'=======================================================================
Public Function SetSheetHtmlConvert(ByVal objExcel As Object, _
ByVal strWorkBookName As String, _
ByVal strTargetSheet As String, _
ByVal strHtmlFullName As String) As Boolean
Dim memo As Object '## Comment
On Error GoTo Err
With objExcel
.DisplayAlerts = False '## 겹처쓰기 Alert창 무시하고 겹쳐쓰기
.SheetsInNewWorkbook = 1 '## 워크북 생성시 시트 하나짜리로 설정
'## 대상시트 복사
.Workbooks(strWorkBookName).Worksheets(strTargetSheet).Copy
'## 대상시트내에 메모가 삽입되면 Html변환시 <a href> 태그가 되므로 삭제
For Each memo In .ActiveWorkbook.ActiveSheet.Comments
memo.Delete
Next
'## Html로 변환
.ActiveWorkbook.SaveAs strHtmlFullName & ".htm", xlHtml
.DisplayAlerts = True '## Alert Dlg 허용
End With
Err:
If Err.Number = 0 Then
SetSheetHtmlConvert = True
End If
On Error GoTo 0
End Function