彰化一整天的論壇

 找回密碼
 立即註冊
查看: 422|回復: 0

【轉貼】將excel部分範圍轉換成HTML

[複製鏈接]
發表於 2018-3-21 09:04:23 | 顯示全部樓層 |閱讀模式
Export specific range into an HTML

  1. Sub Export()
  2. Dim rng As Range

  3. file1 = ThisWorkbook.Path & "\" & "test.html"

  4. Set rng = Sheets("Tabelle1").Range("A1:C10")

  5. ActiveWorkbook.PublishObjects.Add( _
  6. SourceType:=xlSourceRange, _
  7. Filename:=file1, _
  8. Sheet:=rng.Worksheet.Name, _
  9. Source:=rng.Address, _
  10. HtmlType:=xlHtmlStatic).Publish

  11. End Sub
複製代碼
文章來源: https://stackoverflow.com/questi ... -range-into-an-html

回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-8-24 06:00 , Processed in 0.110590 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表