|
|
有時(shí)候需要將excel文檔發(fā)布到公網(wǎng)上，供遠(yuǎn)程查看。下述例子是將excel工作薄中倒數(shù)第五張工作表發(fā)布到網(wǎng)絡(luò)上，留檔后續(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" ‘清除網(wǎng)頁緩存 此處鏈接****覆蓋了真實(shí)內(nèi)容
[a2].Activate '此句很重要，不然很容易出錯(cuò)1004錯(cuò)誤號(hào)
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，則會(huì)替換該文件；如果該值為 False，則會(huì)在文件末尾插入這些項(xiàng)。
'如果文件不存在，則不論 Create 參數(shù)的值如何，都會(huì)創(chuàng)建文件。
.AutoRepublish = False
End With
End Sub
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
