excel 工作表网络发布 - - Powered by Discuz!

标题: excel 工作表网络发布 [打印本页]

作者: haoren 时间: 2015-9-14 20:42
标题: excel 工作表网络发布
   有时候需要将excel文档发布到公网上，供远程查看。下述例子是将excel工作薄中倒数第五张工作表发布到网络上，留档后续备用！
vba源码：
  Dim shtname As String
  Dim x As Integer
  Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Public Sub fabu()

DeleteUrlCacheEntry "http://soaker****.xicp#net:****/plan/yhdd.htm" ‘清除网页缓存此处链接****覆盖了真实内容
   [a2].Activate '此句很重要，不然很容易出错1004错误号
   shtname = Sheets(Application.Worksheets.Count - 4).Name ’获取工作表的名称
   x = Sheets(Application.Worksheets.Count - 4).Range("A65536").End(xlUp).Row '获取最后空白行

With ActiveWorkbook.PublishObjects.Add( _
   SourceType:=xlSourceRange, _
   Filename:="d:\jiqi\yhdd.htm", _
   Sheet:=shtname, _
   Source:="A1:N" & x, _
   HtmlType:=xlHtmlStatic, _
   DivID:="")
.Publish (True) '在 HTML 文件存在的情况下，如果该值为 True，则会替换该文件；如果该值为 False，则会在文件末尾插入这些项。
               '如果文件不存在，则不论 Create 参数的值如何，都会创建文件。

.AutoRepublish = False
End With

End Sub

欢迎光临 (http://www.51hei.com/bbs/)