Question

我用vb做了一个界面，界面上有两个文本框，和一个查询按钮，在文本框1和2中输入一个信息，

然后点击查询按钮，vb对excel的第二列进行查询，如果excel中还有该信息，则在该信息所对应的第8列写入文本框2 里的内容，连续的运行此程序，为什么只能保存最后一次输入的信息，这是为什么，我想让它时时的保存，窗体运行时点击一下查询按钮就将信息保存，该怎么做，我编写代码如下：
Private Sub Command3_Click()
Dim r As Integer
Dim c As Integer
Dim ROW_COUNT As Long
Dim i As Long
Dim flag As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add("C:\Documents and Settings\Administrator\桌面\a.xls")
Set xlSheet = xlBook.Worksheets("sheet1")
xlApp.Visible = False
ROW_COUNT = xlApp.ActiveSheet.UsedRange.Rows.Count
For i = 2 To ROW_COUNT
If xlApp.Cells(i, 2) = Text1.Text Then
r = ActiveSheet.Range("C2").Find(Text1.Text).Row
xlApp.Cells(r, 8).Value = Text2.Text
xlApp.DisplayAlerts = False
xlApp.SaveWorkspace
xlBook.Save
r = 0
flag = 1
Exit For

End If
Next i
If flag = 0 Then
MsgBox "此人没有报名，不能参加考试"
flag = 0
End If

xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

Answer 1

If xlApp.Cells(i, 2) = Text1.Text Then    '这里已经查找到了Text1.text的值了

r = ActiveSheet.Range("C2").Find(Text1.Text).Row    '你可以调试一下这里是不是返回r的值不会变? 你查找的范围限定在C2单元格内了.

xlApp.Cells(r, 8).Value = Text2.Text

xlApp.DisplayAlerts = False

xlApp.SaveWorkspace

xlBook.Save

你可以改成以下:

If xlApp.Cells(i, 2) = Text1.Text Then
xlApp.Cells(i, 8).Value = Text2.Text
xlApp.DisplayAlerts = False
xlApp.SaveWorkspace
xlBook.Save

追问

你说的是程序的一个问题，我那样也对，就是有时候不稳定。非常感谢！但是我的问题还是没有解决，照你说的改了之后，每运行一次它都得手动保存，我想让excel自动保存,有没有解决办法啊

Answer 2

xlApp.DisplayAlerts = False
改为
xlApp.DisplayAlerts = True看看哪里出错

追问

改过来之后，没运行一次，就会提示“当前位置已存在a1.xls文件，是否替换”如果点击确定替换的话，还是只能保存一次运行的结果，而且没运行一次程序都弹出提示对话框。xlApp.DisplayAlerts = False的目的就是为了不让提示窗口出现啊