关于VB操作Excel备份的问题
我编写了一段VB作为上位机操作EXCEL备份的问题，具体程序如下
Private Sub Command3_Click()
Set x1app = CreateObject("excel.application")
x1app.Visible = True
Set x1book = x1app.Workbooks.Add
Set x1sheet = x1book.Worksheets(1)
j = 0
End Sub
这个是我创建Excel表格的程序
Private Sub Command4_Click()
Timer2.Enabled = True
j = j + 1
x1sheet.Cells(j + 1, 4) = temp1_show.Text
x1sheet.Cells(j + 1, 3) = Time$
x1sheet.Cells(j + 1, 1) = Format(Date, "Long Date")
x1app.DisplayAlerts = False '不出现警告信息
x1book.SaveCopyAs "d:\备份.xls" '另存XLBOOK为test.xls，并且不关闭XLBOOK
x1app.DisplayAlerts = True
End Sub
这个是我备份我上面创建的Excel表格的程序
但是现在遇到的情况是我第一次点击Command3，然后点击Command4，这时候我第一个Excel将被备份，比如第一个Excel的数据到20个，备份的也是到20个。这时候我再点击一下 Command3，然后点击Command4，这时候在这个备份的EXCEL将被覆盖，前面的20个数据都被覆盖了，请问下我改怎么修改可以使我再点击 Command4的时候不会覆盖前20个数据，直接再第21格开始加入数据。请大神们指点下~谢谢~
[解决办法]
Private Sub Command3_Click()
Set x1app = CreateObject("excel.application")
x1app.Visible = True
Set x1book = x1app.Workbooks.Add
Set x1sheet = x1book.Worksheets(1)
j =xlsheet.UsedRange.Rows.Count '改这里
End Sub
