整合營銷服務商

          電腦端+手機端+微信端=數據同步管理

          免費咨詢熱線:

          Range范圍的調整及EXCEL單元格及圖表插入

          Range范圍的調整及EXCEL單元格及圖表插入

          分享成果,隨喜正能量】不要對失去過于糾結,這不僅有利于讓你放下曾經的美好事物,也有利于讓你在面對現在所擁有的一切,能夠更加安心、更加踏實。。

          《VBA之Word應用》,是我推出第八套教程,教程是專門講解VBA在Word中的應用,圍繞“面向對象編程”講解,首先讓大家認識Word中VBA的對象,以及對象的屬性、方法,然后通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章,今日內容第六章 “Word中的Range對象(下)”第3節:Range范圍的調整及EXCEL單元格及圖表插入

          第三節 Range對象的方法(七)

          大家好,我們這講繼續Range對象方法的講解,在上一講中我們講解了Range對象的InsertParagraph方法、InsertParagraphAfter方法、InsertParagraphBefore方法,這節我們將講解SetRange 方法、PasteAndFormat方法、PasteSpecial 方法。

          1 Range.SetRange方法

          這種方法設置現有范圍的起始字符和結束字符的位置。

          語法:expression. SetRange(Start, End)

          其中expression 是必需的,是一個代表Range對象的變量

          參數:

          1)Start 必需 Long 范圍的起始字符位置。

          2)End 必需 Long 范圍的結束字符位置。

          • 字符位置值從文章的開頭開始,第一個值為0(零)。 將計算所有字符,包括非打印字符。 隱藏字符即便未顯示也計算在內。
          • SetRange 方法以重新定義現有的 Range 對象的起始和結束位置。此方法不同于Range方法,后者用于在給出起始和結束位置的情況下創建范圍。

          2 Range.PasteAndFormat方法

          該方法粘貼選定的表格單元格,并為其設置指定的格式。

          語法:expression.PasteAndFormat(Type)

          其中expression 是必需的,是一個代表Range對象的變量

          參數:Type 必需 WdRecoveryType 粘貼所選的表格單元格時使用的格式類型。

          WdRecoveryType 枚舉值:

          wdChart 14 將 Microsoft Office Excel 圖表粘貼為嵌入的 OLE 對象

          wdChartLinked 15 粘貼 Excel 圖表并將其鏈接到原始 Excel 電子表格

          wdChartPicture 13 將 Excel 圖表粘貼為圖片

          wdFormatOriginalFormatting 16 保留所粘貼材料的原始格式

          wdFormatPlainText 22 粘貼為無格式的純文本文字

          wdFormatSurroundingFormattingWithEmphasis 20 使所粘貼文本的格式與周圍文本的格式匹配

          wdListCombineWithExistingList 24 將粘貼的列表與鄰近的列表合并.

          wdListContinueNumbering 7 使粘貼的列表根據文檔中的列表繼續編號。

          wdListDontMerge 25 不支持.

          wdListRestartNumbering 8 對粘貼的列表重新進行編號

          wdPasteDefault 0 不支持.

          wdSingleCellTable 6 將單個單元格表格粘貼為獨立的表格。.

          wdSingleCellText 5 將單個單元格粘貼為文本.

          wdTableAppendTable 10 通過在所選行之間插入粘貼的行,將粘貼的單元格合并到現有的表格中

          wdTableInsertAsRows 11 將粘貼的表格作為行插入到目標表格的兩行中間.

          wdTableOriginalFormatting 12 粘貼一個追加的表格,而不合并表格樣式.

          wdTableOverwriteCells 23 粘貼表格單元格并覆蓋現有的表格單元格.

          wdUseDestinationStylesRecovery 19 使用目標文檔中使用的樣式.

          3 Range.PasteSpecial方法

          該方法插入剪貼板中的內容

          語法:expression.PasteSpecial (IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)

          其中expression 是必需的,是一個代表Range對象的變量

          參數:

          1) IconIndex 可選 Variant 如果 DisplayAsIcon 為 True,則該自變量是一個數字,對應于要在 IconFilename 指定的程序文件中使用的圖標。 圖標顯示在“更改圖標”對話框中:0(零)對應于第一個圖標,1 對應于第二個圖標,依此類推。 如果此參數被省略,使用的是第一個(默認)圖標。

          2)Link 可選 Variant 如果為 True,則創建指向“剪貼板”內容源文件的鏈接。 默認值為 False。

          3)Placement 可選 Variant 可以為下列 WdOLEPlacement 常量之一:wdFloatOverText 或 wdInLine。 默認值為 wdInLine。

          4)DisplayAsIcon 可選 Variant 如果為 True,則將鏈接顯示為圖標。 默認值為 False 。

          5)DataType 可選 Variant 剪貼板內容在插入文檔后采用的格式。 可以為任意 WdPasteDataType 常量。

          6)IconFileName 可選 Variant 如果 DisplayAsIcon 為 True,則此參數是存儲要顯示的圖標的文件的路徑和文件名。

          7)IconLabel 可選 Variant 如果 DisplayAsIcon 為 True,則此參數是顯示在圖標下方的文本。

          WdPasteDataType 枚舉:

          wdPasteBitmap 4 位圖.

          wdPasteDeviceIndependentBitmap 5 與設備無關的位圖.

          wdPasteEnhancedMetafile 9 增強型圖元文件

          wdPasteHTML 10 HTML.

          wdPasteHyperlink 7 超鏈接.

          wdPasteMetafilePicture 3 圖元文件圖片.

          wdPasteOLEObject 0 OLE 對象.

          wdPasteRTF 1 RTF 格式

          wdPasteShape 8 形狀

          wdPasteText 2 文本

          4 實例:Range范圍的調整及EXCEL單元格及圖表插入

          下面我們通過一個實例來講解一下本節的知識點,這個實例中我們先定義一個Range,為當前文檔的第二段,然后利用SetRange來擴展這個范圍。

          之后我們在文檔的最后插入一個空的段落,將光標移到這個空段落之處。

          緊接著,我們要打開一個Excel文件,從這個文件中,我們把B2單元格復制到剪貼板,并將剪貼板的內容以對象的格式粘貼到光標處。

          之后,我們再次在文檔的最后插入一個空的段落,將光標移到這個空段落之處。并將Excel文件中的圖表復制到剪貼板中,并將剪貼板中的內容粘貼到光標處。

          最后關閉Excel文件。

          我們先看一下代碼:

          Sub mynzB()

          [代碼見教程]

          End Sub

          代碼截圖:

          代碼解讀:

          1)Set myRange=ActiveDocument.Paragraphs(2).Range

          MsgBox myRange.Text

          以上代碼設置 myRange 并提示給用戶myRange 內容。

          2)myRange.SetRange Start:=myRange.Start, _

          End:=ActiveDocument.Paragraphs(3).Range.End

          MsgBox myRange.Text

          以上代碼調整 myRange的范圍并提示給用戶myRange 內容。

          3) ActiveDocument.Content.InsertParagraphAfter

          myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _

          End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End - 1

          myRange.Select

          以上代碼在活動文檔的末尾插入一個段落,并將光標位置調整到最后。

          4)Set myEXL=CreateObject("excel.application")

          myfile="EXCEL工作簿.XLSX"

          myEXL.workbooks.Open ActiveDocument.Path & "\" & myfile

          myEXL.Visible=True

          設置要打開的文件,并打開這個文件。

          5)myEXL.Sheets("Sheet1").Range("B2").Copy

          Selection.Collapse Direction:=wdCollapseStart

          Selection.Range.PasteSpecial DataType:=wdPasteOLEObject

          '將單元格B2以單元格的形式粘貼wdPasteOLEObject是單元格的格式,如果是文本的格式可以用wdPasteText。

          6) ActiveDocument.Content.InsertParagraphAfter

          myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _

          End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End

          myRange.Select

          以上代碼再次在活動文檔的末尾插入一個段落,并重置光標位置

          7) myEXL.Sheets("Sheet1").ChartObjects(1).Copy

          Selection.PasteAndFormat Type:=wdChartPicture

          以上代碼復制圖表并粘貼,粘貼的是圖片的格式

          8)myEXL.workbooks.Close

          Set myEXL=Nothing

          以上關閉Excel文件。

          最后我們看代碼的運行:

          Excel工作表的界面如下:

          代碼運行的提示框:

          我們在當前文檔中可以看一下圖表的格式,會發現這個圖表是圖片格式的。

          今日內容回向:

          1 Word中Range對象的SetRange 方法、PasteAndFormat方法、PasteSpecial 方法的意義是什么?

          2 如何利用VBA插入單元格及圖表?

          本講內容參考程序文件:Doc 006文檔.docm

          我20多年的VBA實踐經驗,全部濃縮在下面的各個教程中:

          分享成果,隨喜正能量】得與失,是一種選擇,也是一種放棄,沒有一種選擇十全十美,沒有一次決定萬無一失。讓自己豁達起來對于已經失去的東西,你或許也應該慶幸,它們不會再打擾你的內心。

          所周知,python最強大的地方在于,python社區匯總擁有豐富的第三方庫,開源的特性,使得有越來越多的技術開發者來完善。

          python的完美性。

          未來人工智能,大數據方向,區塊鏈的識別和進階都將以python為中心來展開。

          咳咳咳! 好像有點打廣告的嫌疑了。

          當前互聯網信息共享時代,最重要的是什么?是數據。最有價值的是什么?是數據。最能直觀體現技術水平的是什么?還是數據。

          所以,今天我們要分享的是:如何來獲取各個文件格式的文本信息。

          普通文件的格式 一般分為: txt普通文本信息,doc word文檔,html網頁內容,excel表格數據,以及特殊的mht文件。

          一、Python處理html網頁信息

          html類型的文本數據,內容是由前端代碼書寫的標簽+文本數據的格式,可以直接在chrome瀏覽器打開,清楚 的展示出文本的格式。

          python 獲取html文件的內容和獲取txt文件的方法相同,直接打開文件讀取就可以了。

          讀取代碼如下:

          with open(html_path, "r", encoding="utf-8") as f:
           file=f.read()
          

          file 是html文件的文本內容。是一個網頁標簽的格式內容。

          二、Python處理excel表格信息

          python擁有直接操作excel表格的第三方庫xlwt,xlrd。調用對應的方法就可以讀寫excel表格數據。

          讀取excel操作代碼如下:

          filepath="C:\\Users\Administrator\Desktop\新建文件夾\笨笨 前程6份 武漢.xls"
          sheet_name="UserList"
          rb=xlrd.open_workbook(filepath)
          sheet=rb.sheet_by_name(sheet_name)
          # clox_list=[0, 9, 14, 15, 17]
          for row in range(1, sheet.nrows):
           w=WriteToExcel()
           # for clox in clox_list:
           name=sheet.cell(row, 0).value
           phone=sheet.cell(row, 15).value
           address=sheet.cell(row, 9).value
           major=sheet.cell(row, 14).value
           age=sheet.cell(row, 8).value
          

          其中row是表格數據對應的行數, cell獲取具體行數,列數的具體數據。

          三、Python讀取doc文檔數據

          python讀取doc文檔是最麻煩的。處理邏輯復雜。處理的方式也有很多種。

          python 沒有直接處理doc文檔的第三方庫,但是有一個處理docx的第三方庫??梢酝ㄟ^將doc文件轉換為docx文件,再調用第三方python庫pydocx來讀取doc文檔的內容。

          這里需要注意的是,不要直接修改doc的后綴來修改成docx文件。直接通過修改后綴獲取的docx文件,pydocx無法讀取內容。

          我們可以使用另外一個庫來修改doc為docx。

          具體代碼如下:

          def doSaveAas(self, doc_path):
           """
           將doc文檔轉換為docx文檔
           :rtype: object
           """
           docx_path=doc_path.replace("doc", "docx")
           word=wc.Dispatch('Word.Application')
           doc=word.Documents.Open(doc_path) # 目標路徑下的文件
           doc.SaveAs(docx_path, 12, False, "", True, "", False, False, False, False) # 轉化后路徑下的文件
           doc.Close()
           word.Quit()
          

          代碼所需的包接口:

          import os
          import zipfile
          from win32com import client as wc
          import xlrd
          from bs4 import BeautifulSoup
          from pydocx import PyDocX
          from lxml import html
          from xpath_content import XpathContent
          from write_to_excel import WriteToExcel
          

          python處理docx文檔的方法有很多種,具體使用情況,根據個人需求來決定。

          No.1 解壓docx文件

          docx文件的原理,本質上就是一個壓縮的zip文件,通過解壓以后,就可以獲取原來文件的各個內容。

          docx解壓后的文件結構如下:



          docx文件的文本內容存儲結構如下:

          文本內容存儲于word/document.xml文件中。



          第一種方法,我們就可以先將docx還原成zip壓縮文件,再解壓zip文件,讀取word/document.xml文件的內容就ok了。

          具體操作代碼如下:

          def get_content(self):
           """
           獲取docx文檔的文本內容
           :rtype: object
           """
           os.chdir(r"C:\Users\Administrator\Desktop\新建文件夾") # 改變目錄到文件的目錄
           #
           os.rename("51 2014.09.12 1份Savannah.docx", "51 2014.09.12 1份Savannah.ZIP") # 重命名為zip文件
           f=zipfile.ZipFile('51 2014.09.12 1份Savannah.ZIP', 'r') # 進行解壓
           xml=f.read("word/document.xml")
           wordObj=BeautifulSoup(xml.decode("utf-8"))
           # print(wordObj)
           texts=wordObj.findAll("w:t")
           content=[]
           for text in texts:
           content.append(text.text)
           content_str="".join(content)
           return content_str
          

          最后獲取到的就是docx文檔的所有文本數據了。

          No.2 將docx文檔轉換成python能夠處理的文本格式

          第一種方法,是依據docx文檔的原理來獲取數據,流程有點繁瑣,有沒有能直接讀取docx文檔內容的方法呢?答案,肯定是沒有的,別想了,洗洗回家睡吧。

          直接讀取docx文檔的方法沒有,有沒有能夠將docx文檔轉換成python能夠輕松處理的文本格式呢?

          這個可以有,前面說了,python擁有大量豐富的第三方庫(先夸一波我大python),歷經千辛萬苦終于找到了,一個能轉換docx文檔格式的第三方庫,pydocx,pydocx庫中有個方法pydocx.to_html()就可以直接將docx文檔轉換為html文件,怎么樣?意不意外,驚喜不驚喜!

          第二種方法,轉換文本格式的代碼如下:

          def docx_to_html(self, docx_path):
           """
           docx文檔轉換成html響應
           :rtype: object
           """
           # docx_path="C:\\Users\Administrator\Desktop\新建文件夾\\51 2014.09.12 1份Savannah.docx"
           response=PyDocX.to_html(docx_path)
          

          獲取到的response是html文件內容。

          四、Python處理mht文件

          mht文件是一種只能在IE瀏覽器上展示的文本格式,在chrome瀏覽器中打開是一堆的亂碼。

          No.1 偽造IE請求mht文件內容

          最基礎的讀取mht文本的方法就是偽造IE瀏覽器請求。

          調用requests庫,發送get請求網頁鏈接,構造IE的請求頭信息。

          理論上來說,這種方法是可行的。但是呢,不建議用,原因大家都懂得。


          No.2 轉換文件格式

          好了說正經的方法,猜測mht文件能否修改成其他文件格式來直接讀取呢?

          docx,不行;html,不行;excel,更不用說了。

          真相只有一個?。。?/p>

          直接修改后綴得到的docx,無法讀取。

          so,我們想到的方法是什么呢。沒錯,就是修改成doc文檔。

          方法是匪夷所思的,但也是靈感一現。

          mht可以直接通過修改后綴轉換成doc文檔,doc文檔讀取文本內容的方法具體參考上面讀取doc文檔的方法。

          如何獲取html文本的內容?

          html文本的內容是網頁結構標簽數據,取出文本的方式是:re正則,或者xpath。

          后續,小伙伴有需要的話,會再開一章詳細了解re,xapth的使用規則。

          來源網絡,侵權聯系刪除

          TTP Range 請求總結

          HTTP range 請求允許我們從服務器上只發送HTTP消息的一部分到客戶端。這樣的部分請求對于大型媒體、具有中斷和恢復下載進度的下載文件請求很有幫助。

          檢查服務器是否支持 HTTP Range 請求

          在進行HTTP range 請求之前,先檢查服務器是否支持部分請求

          如果請求一個資源時, HTTP響應中出現如下所示的 'Accept-Ranges', 且其值不是none, 那么服務器支持范圍請求。

          curl -I http://i.imgur.com/z4d4kWk.jpg
          
          HTTP/1.1 200 OK
          ...
          Accept-Ranges: bytes
          Content-Length: 146515

          在如上響應中,Accept-Ranges: bytes 代表可以使用字節作為單位來定義請求范圍。這里的 Response Headers中的 Content-Length: 146515 則代表該資源的完整大小。

          如果站點響應中未返回 Accept-Ranges 響應頭,或者其值為none,那么這意味著server不支持HTTP range請求。

          給服務器發HTTP Range請求

          一、單范圍請求

          我們可以對一個資源發起單個范圍請求:

          curl http://i.imgur.com/z4d4kWk.jpg -i -H "Range: bytes=0-1023"

          發出的請求如下:

          GET /z4d4kWk.jpg HTTP/1.1 Host: i.imgur.com Range: bytes=0-1023

          正常情況下 server 返回 206 部分內容響應:

          HTTP/1.1 206 Partial Content Content-Range: bytes 0-1023/146515 Content-Length: 1024 ... (binary content)

          這次并非檢查server是否支持range請求,故Content-Length表示的是現在請求的范圍大小,而Content-Range則表示的是這部分消息在完整資源中的位置。

          二、多范圍請求

          curl http://www.example.com -i -H "Range: bytes=0-50, 100-150"

          用逗號隔開多個范圍,即可同時請求多部分資源。

          響應如下:

          HTTP/1.1 206 Partial Content Content-Type: multipart/byteranges; boundary=3d6b6a416f9b5 Content-Length: 282 --3d6b6a416f9b5 Content-Type: text/html Content-Range: bytes 0-50/1270

          該響應有:

          • 206部分響應碼:
          • Content-Type: multipart/byteranges;boundary=3d6b6a416f9b5——>表示遵循多部分 byterange

          每個部分包含自己的Content-Type 和 Content-Range

          三、條件范圍請求

          當繼續請求更多資源時,你需要確保被存儲的資源在上一幀收到后沒有被改變。

          If-Range HTTP請求創建了一個帶條件的range HTTP請求,如果條件得到滿足,range請求將會被發出,server 發回帶有適當正文的206 partial content 應答,如果條件不滿足則返回完整資源,并顯示200 OK狀態。這個頭可以與Last-Modified 驗證程序,或者與 ETag 一起使用。

          If-Range: Wed, 21 Oct 2015 07:28:00 GMT

          HTTP Range 請求響應

          在處理HTTP Range 請求時,有三個相關的狀態:

          • 206 Partial Content——> HTTP Range 請求成功
          • 416 Requested Range Not Satisfiable status.——> HTTP Range 請求超出界限
          • 200 OK——> 不支持范圍請求

          與分塊相比

          Transfer-Encoding 請求頭允許分塊編碼,這在服務器給客戶端發送大量的數據,且響應總大小直到請求結束才能確定時很有用,如果服務器直接發送數據給客戶端而不緩存響應,或者確定具體響應大小的話,會產生延遲。HTTP Range 請求和分塊是兼容的,一起用或者不一起用均可。


          主站蜘蛛池模板: 视频在线一区二区| 亚洲国产精品成人一区| 人妻体内射精一区二区| ...91久久精品一区二区三区| 精品综合一区二区三区| 精品国产一区二区三区无码| 天堂不卡一区二区视频在线观看| 亚洲日本一区二区三区| 欧洲精品无码一区二区三区在线播放 | 国产aⅴ一区二区三区 | 精品乱子伦一区二区三区| 国产精品久久久久久一区二区三区 | 蜜臀AV免费一区二区三区| 国产日韩AV免费无码一区二区| 国产一区二区在线|播放| 在线一区二区三区| 蜜桃AV抽搐高潮一区二区| 中文字幕av一区| 亚洲AV日韩综合一区| 中文字幕无码不卡一区二区三区 | 亚洲乱码国产一区网址| 四虎永久在线精品免费一区二区 | 精品亚洲一区二区| 国模吧一区二区三区| 亚洲成AV人片一区二区| 91无码人妻精品一区二区三区L| 精品一区二区久久| 中文字幕一区二区三区精彩视频 | 国产成人精品视频一区| 日本一区二区三区免费高清| 大香伊人久久精品一区二区 | 精品乱码一区二区三区在线| 国产无人区一区二区三区| 视频一区视频二区在线观看| 一区二区三区四区电影视频在线观看| 国产精品毛片a∨一区二区三区 | 尤物精品视频一区二区三区| 日本免费一区二区三区最新| 亚州国产AV一区二区三区伊在| 岛国无码av不卡一区二区| 亚洲福利一区二区精品秒拍|