求VB.NET對任壹excel表格查找替換的代碼。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'On Error GoTo EXIT_ERROR

Dim strErrorPos As String = "F_TreatOne"

Dim strFileName As String

strFileName = "d:\test.xlsx"

Dim objExcelApp As New Microsoft.Office.Interop.Excel.Application

Dim objWorkBook As Microsoft.Office.Interop.Excel.Workbook

Dim objSheet As Microsoft.Office.Interop.Excel.Worksheet

objWorkBook = objExcelApp.Workbooks.Open(strFileName)

objSheet = objWorkBook.Worksheets(1)

objSheet.UsedRange.Replace("aaa", "bbb")

objWorkBook.Save()

objWorkBook.Close()

objExcelApp.Quit()

objWorkBook = Nothing

objExcelApp = Nothing

End Sub

需要的話,自已再適當修改修改.

項目中需要加對Microsoft.Office.Interop.Excel的引用.

上一篇:學校門口賣抽獎玩具違法嗎？

下一篇:電子商務網站建設的基本方法與步驟