一个VB小程序问题

我写了下面一段VB，大概的意思为：
在文本框中输入一段文字，点按钮，则自动打开EXCEL,判断EXCEL已经使用的行数，在下一行中填入数据，保存，关闭EXCEL.第一下没有问题，但第二下就出现Range 属性的Golbal出错，请高手帮忙解决一下：

Private Sub Command1_Click()
Dim totalR As Integer
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("D:\temp\123.xls") '打开EXCEL工作簿
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
xlSheet.Range("a1").CurrentRegion.Select
totalR = Selection.Rows.Count
xlSheet.Cells(totalR + 1, 1) = Text1.Text '给单元格（row,col）赋值
ActiveWorkbook.Save
ActiveWorkbook.Close
xlApp.Quit
End Sub

Private Sub Form_Load()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
End Sub

我VB程序的一个小问题 vb的一个小程序问题。 vb程序 小问题 vb的一个小程序 VB写一个小程序 求一个 VB 小程序 求VB小程序一个 VB一个程序问题 200分，请教一个VB+XMLHTTP小程序问题 vb 小程序的问题