這個簡單,看下面代碼(適應(yīng)各版本Excel,但前提是完整安裝的excel )
創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站制作、做網(wǎng)站、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)嵩縣,10年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792
Try
Dim?excelObj?As?Object?=?GetObject(,?"Excel.Application")
If?excelObj.Workbooks.Count?=?0?Then?'注意,如果是新建未保存的工作簿不算打開
MsgBox("沒有工作簿打開")
excelObj?=?Nothing
Exit?Sub
End?If
excelObj.Workbooks(1).Worksheets(1).Range("A1").Value?=?"123"?'表示把已經(jīng)打開的第一個工作簿的第一個工作表的A1單元格賦值為“123”
excelObj?=?Nothing
Catch?ex?As?Exception
MsgBox(ex.Message)
End?Try
批量替換word文檔中的內(nèi)容的方法:啟動Word文檔軟件。按Ctrl+O打開需要修改的文件。打開需要修改的文件后,在word菜單欄點擊“替換”按鈕。在彈出的替換對話框中:首選查找到需要替換的內(nèi)容,再輸入替換為的內(nèi)容。然后點擊“全部替換”即可,如圖所示:
用替換函數(shù)直接把03-24^32替換為03-24^xx(想替換的值)。
比如,你的文本放在TextBox1文本框的話,用下面的指令替換就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
執(zhí)行上面替換指令后,TextBox1的文本替換為:
【例如:03-23^23
03-24^xx
我要指定修改第二行的32.該怎么辦?】