|
|
有時候需要將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
|
|
