close

Trust Me!! Trust You!!


  • Blog
  • Local Log
  • Tag Cloud
  • Key Log
  • Guestbook
  • RSS Feed
  • Write a Post
  • Admin

혹시 블로그 스킨이 깨져 보이시나요? 최신버전의 Internet Explorer(Windows용), Opera, Firefox를 사용해보세요.

Excel 워크북내 Target 시트 하나를 HTML파일로 변환한다.

웹 프로그래밍
2012/02/20 19:38
 

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

이올린에 북마크하기
No received trackback. / No comment.

Trackback Address :: http://viper150.cafe24.com/trackback/159

You can also say.

Prev 1 ... 141 142 143 144 145 146 147 148 149 ... 298 Next
블로그 이미지
이것저것 불펌금지도 퍼다가 담습니다. 외부에 비공개된 페이지 입니다. By. 어른왕자

카테고리

  • 전체 (298)
    • 사는 이야기 (115)
    • 웹 프로그래밍 (102)
    • App 프로그래밍 (22)
    • IT 뉴스&기타 (22)
    • 박한별 (4)
    • 역사&기타지식 (9)

태그목록

  • 남여관계
  • RequestMapping
  • 저장프로시저
  • 톰캣
  • svn
  • 제약업계
  • 배치
  • Ultra
  • 전산직
  • 피로
  • kbs
  • 제이퀴리
  • DB2 procedure
  • 이클립스 루트 디렉토리
  • 커플
  • Calendar
  • Windows
  • IU
  • 고구려
  • 건강보험
  • spring
  • 성향
  • 픽슬러
  • 달걀찜
  • 조선왕조실록
  • Parkoz
  • addFlashAttribute
  • 귀여움
  • 팝
  • 제프딕슨

최근에 올라온 글

  • 보험사의 조정신청 대응방법.
  • 어느 천재의 앞선 시선.
  • [병맛더빙] 누구게..... (1)
  • 韓경제 `회색 코뿔소` 상황...
  • SVN Connector 설치 URL.
  • 군대를 가지 않는 서울대생.
  • “운은 하늘의 귀여움 받는...
  • 목장에서 알바하다가 캐스...
  • [펌]믿고 거르는 관상.
  • 하루에 1세트씩 하면 좋다...

최근에 달린 댓글

  • <p align="center"><a href="h... 미구구나 01/19
  • <p align="center"><a href="h... 미구구나 01/19
  • <p align="center"><a href="h... 미구구나 01/17
  • <p align="center"><a href="h... 미구구나 01/17
  • <p><img src="https://i.imgur... 덤프 01/13

최근에 받은 트랙백

  • công ty may đồng phục. công ty may đồng phục 01/08
  • Israelnightclub`s recent blo... Israelnightclub`s recent blo.. 01/06
  • Suggested Browsing. Suggested Browsing 01/06
  • similar site. similar site 01/06
  • לאתר הבית שלנו. לאתר הבית שלנו 01/06

글 보관함

  • 2019/03 (1)
  • 2018/12 (1)
  • 2018/09 (1)
  • 2018/08 (1)
  • 2018/02 (1)

달력

«   2021/01   »
일 월 화 수 목 금 토
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            

링크

  • Total : 261849
  • Today : 13
  • Yesterday : 47
Tattertools
Eolin
rss

어른왕자's blog is powered byTattertools1.1.2.2 : Animato