欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 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://m.raoushi.com/bbs/)