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)

태그목록

  • 소스보기
  • Dialog
  • 미나미 아키나
  • 전자정부프레임워크
  • 남성전용
  • 개통이력
  • 수출
  • Button
  • 관상
  • 공무원
  • iphone
  • 저장프로시저
  • 한글컨트롤
  • Boy
  • vga성능
  • Fishbowl
  • lib
  • 피곤
  • 한예슬
  • 달걀찜
  • 이중성향
  • 2d
  • java api
  • 장애인
  • 미국
  • benchmark
  • gts650
  • 초경합금
  • kbs
  • Ajax

최근에 올라온 글

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

최근에 달린 댓글

  • <p><img src="https://i.imgur... 덤프 01/13
  • <p><img src="https://i.imgur... 덤프 01/13
  • <p><img src="https://i.imgur... 덤프 01/13
  • <p><img src="https://i.imgur... 덤프 01/13
  • <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 : 261688
  • Today : 0
  • Yesterday : 63
Tattertools
Eolin
rss

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