Question

VB/VB.net 如果实现对Excel单元格中内容的批量替换功能（悬赏可加）

现有cfg.txt，其文件内容如下：
----------------------------------------
A|一
B|二
C|三
#|这是文件最后一行
---------------------------------------
使用VB或VB.net实现利用该文件的信息对某Excel文件（2003版xls）的G列单元格内容进行替换，即先读cfg.txt第一行，对G列每行的字符串发现“A”则替换为“一”，再读cfg.txt第二行，一旦发现“B”则替换为“二”，直到读取到cfg.txt最后一行的#，程序运行完毕。

Answer 1

试一下 ：
Private Sub Command1_Click()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim r, i, arr, j
If Dir("c:\temp.xls") = "" Or Dir("c:\罩枯纤cfg.txt") = "" Then Unload Me
Set xlApp = CreateObject("Excel.Application")
Open "c:\cfg.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
Set xlBook = xlApp.Workbooks.Open("c:\temp.xls")
Set xlSheet = xlBook.Worksheets
For i = 1 To xlSheet(1).[g65536].End(-4162).Row
For j = 0 To UBound(arr)
If xlSheet(1).range("物仿g" & i) = Split(arr(j), "败码|")(0) Then xlSheet(1).range("g" & i) = Split(arr(j), "|")(1)
Next
Next
xlApp.DisplayAlerts = False
xlBook.Save
xlBook.Close
xlApp.Quit
MsgBox "Saved"
End Sub