|
|
有时候需要将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
|
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
