利用Excel VBA處理文件

2021-08-25 06:34:11 字數 912 閱讀 1446

遇到如下格式的一篇word文件,格式混亂,不適合列印:

由於沒有接觸過word vba,因此決定用excel vba來處理這篇文件。首先全選該文件的內容,貼上到excel文件中。然後建立乙個新的macro,修改該macro為以下**:

sub formatsheet()'' formatsheet macro' macro recorded 6/13/2010 by bo yang'' keyboard shortcut: ctrl+f' dim str as string dim i as long ' remove blank rows rownumber = range("a65536").end(xlup).row do while rownumber >= 1 if cells(rownumber, 1).value = "" then rows(rownumber).delete rownumber = rownumber - 1 end if rownumber = rownumber - 1 loop ' copy the chinese intepretation for rownumber = 2 to 65535 cells(rownumber, 2).value = cells(rownumber + 1, 1).value next ' delete rows which contians chinese character ' in their first cells for rownumber = 2 to 65535 for i = 1 to len(cells(rownumber, 1).value) str = mid(cells(rownumber, 1).value, i, 1) if str like "[ò»£­ý›]" then rows(rownumber).delete end if next next end sub

然後按自定義快捷鍵ctrl+f, 數秒鐘後,文件處理完畢,秩序井然矣。

Excel vba 日期處理例子

sub s dim wb as workbook dim ws as worksheet set wb activeworkbook dim mydate dim i,j as integer for i 4 to 31 set ws wb.worksheets trim str i mydate ...

利用DOM來處理XML文件 zz

xml檔案1 0代號 content.xml0品牌 brandlist.xml0型體 speccontent.xml0客戶 buyerlist.xml0規格 speclist.xml0中國 aa.xml xml檔案2 我說的是它們的結構,為什麼不一樣,但是出到乙個table裡面卻是一樣的啊,檔案2變...

利用C 處理一些文件

本程式只要是按行讀取txt檔案內容,並按照一定格式組成sql語句,輸出到debug目錄下的liwujun.txt。只要複製到資料裡執行,便可以往表裡插入內容了。注 sql語句裡面的insert into不能一次性插入超過一千條內容。using system using system.collecti...