这个简单，看下面代码（适应各版本Excel，但前提是完整安装的excel )
创新互联公司主要从事成都网站制作、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务嵩县,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务: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" '表示把已经打开的第一个工作簿的第一个工作表的A1单元格赋值为“123”
excelObj = Nothing
Catch ex As Exception
MsgBox(ex.Message)
End Try
批量替换word文档中的内容的方法：启动Word文档软件。按Ctrl+O打开需要修改的文件。打开需要修改的文件后，在word菜单栏点击“替换”按钮。在弹出的替换对话框中：首选查找到需要替换的内容，再输入替换为的内容。然后点击“全部替换”即可，如图所示：
用替换函数直接把03-24^32替换为03-24^xx(想替换的值)。
比如，你的文本放在TextBox1文本框的话，用下面的指令替换就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
执行上面替换指令后，TextBox1的文本替换为：
【例如：03-23^23
03-24^xx
我要指定修改第二行的32.该怎么办？】