標題: excel 工作表網絡發(fā)布 [打印本頁]
作者: haoren    時間: 2015-9-14 20:42
標題: excel 工作表網絡發(fā)布
     有時候需要將excel文檔發(fā)布到公網上，供遠程查看。下述例子是將excel工作薄中倒數(shù)第五張工作表發(fā)布到網絡上，留檔后續(xù)備用！
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 參數(shù)的值如何，都會創(chuàng)建文件。

    .AutoRepublish = False
End With

End Sub







歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1