标题: 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/) Powered by Discuz! X3.1