o.1

Excel表格是可以作為網頁來進行展示的，也就是說當你完成一個表格，想要通過Web網頁來進行發布，那么就需要看這篇文章了。

目前網絡技術發展十分快，辦公方式也逐漸向網絡辦公進行遷移，這是大趨勢。

那么，當我們編輯好一個工作表之后，如何在網頁上正確顯示，就需要以Web代碼形式來進行處理，這是Excel之外的另一種編碼方式，但是Excel也給出了解決方法。

如下圖所示，編輯好一個表格，通過一些代碼就可以實現網頁顯示。

下圖為發布成Web頁的效果，也就是Htm后綴的文件。

Htm文件有什么用呢？

它是Web頁通用格式，當然不是唯一的格式，也就是說，Htm格式可以用任何瀏覽器打開，而xls或xlsx只能用Excel或WPS等編輯軟件打開，通用性不同，Htm格式只能讀不能編輯。

下面進入正題，了解一下通過VBA如何實現Web網頁發布。

如下圖所示，首先要認識PublishObject對象，圖中有對象的方法和屬性詳細內容。

PublishObject對象看不到，它是不是存在，可以通過代碼來查看。

WorkBook.PublishObjects.Count '返回工作薄中的PublishObject對象數

WorkBook.PublishObjects.item(1).FileName'返回第一個PublishObject對象文件地址和文件名

PublishObjects是一個集合，包含了所有PublishObject對象。

發布只用一個方法：

PublishObject.Publish(true)

具體研究可以看一下代碼

No.2

Sub NewPublishObject(xPath As String) '導出Html文件
On Error Resume Next
Dim wx As Workbook, pobj As Object
Set wx = ActiveWorkbook
Set pobj = wx.PublishObjects.Add(xlSourceRange, xPath, wx.ActiveSheet.Name _
, wx.ActiveSheet.UsedRange.Address, xlHtmlStatic, "", wx.ActiveSheet.Name)
    With pobj
        .Publish (True)
        .AutoRepublish = False
         '   MsgBox .DivID
    End With
Set pobj = Nothing
End Sub

上述代碼首先添加一個PublishObject對象，然后再進行方法和屬性設置。

添加PublishObject使用PublishObjects.Add()方法

具體參數如下圖所示：

如果要進行網頁展示表格，相信這個還是十分有用的。

歡迎關注、收藏

---END---

作簿是 Excel 文檔的基礎，基于工作簿的操作主要有新建、打開、保存工作簿，以及工作簿的保護與撤銷等。一個工作簿對象（Workbook）就是一個 Excel 文件，多個 Workbook 對象組成 Workbooks集合。工作簿對象包括工作表對象 Worksheet、單元格區域對象 Range、圖表對象 Chart 等。

[批量新建工作簿]

按照A列內容創建Excel文件

Sub 批量新建工作簿() 
 Dim str1 As String, wbPath As String 
 Dim i As Integer, n As Integer 
 Dim ws1 As Worksheet, wb1 As Workbook 
 Application.DisplayAlerts = False '禁止警告信息
 Set ws1 = ActiveSheet '獲取當前工作表的引用
 wbPath = ThisWorkbook.Path & "\例 1" '保存文件的目錄
 n = ws1.Range("A1").End(xlDown).Row '總的數據行數
 For i = 2 To n '循環創建工作簿
 Set wb1 = Workbooks.Add '新建一個工作簿
 wb1.SaveAs wbPath & "\" & ws1.Cells(i, 1) & ".xls" '保存工作簿
 wb1.Close '關閉工作簿
 Next 
 Application.DisplayAlerts = True 
End Sub

打開工作簿

保存工作簿

更名保存工作簿

將工作簿保存為 Web 頁

Sub 將工作簿保存為 Web 頁() 
 ActiveWorkbook.SaveAs Filename:="MyWeb.htm", FileFormat:=xlHtml 
End Sub

打開文本文件

使用 Workbooks 集合對象的 OpenText 方法，可載入一個文本文件，并將其作為包含單個工作表的新工作簿進行分列處理，然后在此工作表中放入經過分列處理的文本文件數據。該方法的語法格式如下：

表達式 .

OpenText(Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

該方法的參數有很多，除了 Filename 為必需的參數之外，其他參數都可省略。各參數的含義如下。

● Filename：指定要打開和分列的文本文件的名稱。

● Origin：指定文本文件來源。可為常量 xlMacintosh、xlWindows 或 xlMSDOS。此外，它還可以是一個整數，表示所需代碼頁的代碼頁編號。例如，“1256”指定源文本文件的編碼是阿拉伯語。如果省略該參數，則此方法將使用“文本導入向導”中“文件原始格式”選項的當前設置。

● StartRow：文本分列處理的起始行號。默認值為 1。

● DataType：指定文件中數據的列格式。可為常量 xlDelimited 或 xlFixedWidth。如果未指定該參數，則 Excel 將嘗試在打開文件時確定列格式。

● TextQualifier：指定文本識別符號。

● ConsecutiveDelimiter：如果為 True，則將連續分隔符視為一個分隔符。默認值為False。

● Tab：如果為 True，則將制表符用作分隔符（DataType 必須為 xlDelimited）。默認值為 False。

● Semicolon：如果為 True，則將分號用作分隔符（DataType 必須為 xlDelimited）。默認值為 False。

● Comma：如果為 True，則將逗號用作分隔符（DataType 必須為 xlDelimited）。默認值為 False。

● Space：如果為 True，則將空格用作分隔符（DataType 必須為 xlDelimited）。默認值為 False。

● Other：如果為 True，則將 OtherChar 參數指定的字符用作分隔符（DataType 必須為 xlDelimited）。默認值為 False。

● OtherChar：（如果 Other 為 True，則為必選項）。當 Other 為 True 時，指定分隔符。如果指定了多個字符，則僅使用字符串中的第一個字符而忽略剩余字符。

● FieldInfo：包含單列數據相關分列信息的數組。對該參數的解釋取決于 DataType的值。如果此數據由分隔符分隔，則該參數為由兩個元素數組組成的數組，其中每個兩元素數組指定一個特定列的轉換選項。第一個元素為列標（從 1 開始），第二個元素是 XlColumnDataType 的常量之一，用于指定分列方式。

● TextVisualLayout：文本的可視布局。

● DecimalSeparator：識別數字時，Excel 使用的小數分隔符。默認設置為系統設置。

● ThousandsSeparator：識別數字時，Excel 使用的千位分隔符。默認設置為系統設置。

● TrailingMinusNumbers：如果應將結尾為減號字符的數字視為負數處理，則指定為True。如果為 False 或省略該參數，則將結尾為減號字符的數字視為文本處理。

● Local：如果分隔符、數字和數據格式應使用計算機的區域設置，則指定為 True。

Sub 打開文本文件() 
 Workbooks.OpenText Filename:="員工花名冊.txt", _ 
 DataType:=xlDelimited, Tab:=True 
End Sub

設置工作簿密碼

Sub 設置工作簿密碼() 
 Dim pw As String 
 pw = Application.InputBox(prompt:="請輸入保護工作簿的密碼：", _ 
 Title:="輸入密碼", Type:=2) 
 ActiveWorkbook.Password = pw 
 ActiveWorkbook.Save 
 ActiveWorkbook.Close 
End Sub

保護工作簿

Sub 保護工作簿() 
 Dim pw As String 
 pw = Application.InputBox(prompt:="請輸入保護工作簿的密碼：", _ 
 Title:="輸入密碼", Type:=2) 
 ActiveWorkbook.Protect Password:=pw, Structure:=True, Windows:=True 
End Sub

查看文檔屬性

判斷工作簿是否存在

判斷工作簿是否打開

Sub 判斷工作簿是否打開() 
 Dim str1 As String 
 str1 = Application.InputBox(prompt:="請輸入 Excel 工作簿文件名：", _ 
 Title:="文件名", Type:=2) 
 If str1 = "False" Then Exit Sub 
 If Not WorkbookIsOpen(str1) Then 
 MsgBox "工作簿“" & str1 & "”未打開!" 
 Else 
 MsgBox "工作簿“" & str1 & "”已打開!" 
 End If 
End Sub

以上程序調用了一個自定義函數 WorkbookIsOpen，該函數的 VBA 代碼如下：

Private Function WorkbookIsOpen(WorkBookName As String) As Boolean 
 '如果該工作簿已打開，則返回真
 Dim wb As Workbook 
 On Error Resume Next 
 Set wb = Workbooks(WorkBookName) 
 If Err = 0 Then 
 WorkbookIsOpen = True 
 Else 
 WorkbookIsOpen = False 
 End If 
End Function

備份工作簿

以上程序首先獲取對當前工作簿的引用，如果當前工作簿是新建工作簿，則彈出“另存為”對話框。接著獲取工作簿的全名，使用 InStrRev 函數查找工作簿的全名是否有擴展名，若有擴展名，則截取文件名的前面部分（不含擴展），再將文件名后面加上“.bak”，形成備份文件的名稱，最后保存當前工作簿，并使用備份文件名另存文件，得到備份文件。

限制工作簿使用時間

今日代碼文件

https://wws.lanzous.com/iZe8rnu5w9e

一個手機游戲源碼選用簡易的htm5做的手游！作用取決于原生js！

本htm5手游含有人工智能優化算法！詳盡參照人工智能.原生js的文檔！

密碼：95he28

有技術性的能夠 自身改

人們能夠 應用xlhtml搞個ksweb導進源代碼能夠 立即運作！

ps軟件：用內置電腦瀏覽器錯碼！沒有設定編號！自身去value.html代碼里邊改！

選用Google，火狐瀏覽器一切正常運作不容易錯碼

實例教程：把源代碼上傳入室內空間，隨后緩解壓力，隨后域名解析，隨后網站訪問網站域名就進行啦！

鏈接：https://share.weiyun.com/5fwCPHD

文章來源：https://www.xigsc.com/post/243.html