做了一个小例子,看看是不是你需要的!Private Sub Command1_Click()
\'首先在VB中增加引用microsoft excel object library,这个会吧?
\'假设vb.xls放在c盘根目录下
Dim i As Long
Dim j As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\\vb.xls")
Set xlSheet1 = xlBook.Worksheets(1) \'引用第1张工作表
Set xlSheet2 = xlBook.Worksheets(2) \'引用第2张工作表
For i = 1 To 500\'因为要逐行判断,暂假定是500行
j = "D" & CStr(i)
If InStr(xlSheet2.Range(j), "WH") > 0 Then
xlSheet1.Range(j) = xlSheet2.Range(j)\'也可使用Cells属性
End If
Next
xlApp.Application.Quit \'关闭对象
Set xlApp = Nothing \'释放引用
MsgBox "OK"End Sub下面是VB源码,请参考吧!附件:vb.rar