久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

搜索
查看: 3377|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

excel 工作表網(wǎng)絡(luò)發(fā)布

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:90084 發(fā)表于 2015-9-14 20:42 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
     有時(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好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩

相關(guān)帖子

回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表
主站蜘蛛池模板: 日本国产欧美 | 日韩国产中文字幕 | 欧美日韩综合在线 | 国产免费av在线 | 日韩高清在线播放 | 亚洲综合伊人 | 99在线视频免费观看 | 国产日韩欧美在线 | 亚洲精品乱码久久久久久蜜桃91 | 国产精品免费一区二区三区 | 日韩不卡在线 | 午夜在线视频 | 日本三级大片 | 中文日韩欧美 | 天天干天天操天天干 | 日本在线免费观看视频 | 福利视频免费 | 国产美女精品视频 | 欧美成人极品 | 欧美一级视频 | 亚洲成人中文字幕 | av动漫在线观看 | 99久久精品国产亚洲 | 欧美日韩91| 欧美在线观看视频 | 国内外成人免费视频 | 日韩成人在线观看视频 | 午夜视频网 | a在线播放 | 在线观看日韩av | 久久精品伊人 | 天美传媒在线观看 | 成人影 | 在线看亚洲 | 99婷婷| 成人免费视屏 | 成人爽a毛片一区二区免费 www.欧美精品 | 91三级视频 | 美女综合网 | 天天操一操 | 色噜噜狠狠一区二区三区 |