用VB如何自动保存EXCEL

Question

我用VB做了一个上位机，将接收到的数据保存到EXCEL中，因为上位机运行时间比较长，我怕中途死机的话EXCEL中的数据会都没了。。所以我现在想让EXCEL每隔一段时间保存一次，请问各位大神如何写程序啊~谢谢了
大神，我已经按你的办法保存了，但是保存到的是在我的文档里面，请问我能不能在x1book.save后面加点程序使他可以保存在固定的位置，比如桌面上？

Answer 1

你把“接收到的数据保存到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")
End Sub
其实TIMER2的定时是每30秒保存一次~请问大神我在上面如何更改

追答

x1sheet的声明前应该有x1BOOK的声明吧？没看到
x1BOOK.Save就是保持

追问

这是我打开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
请问大神我直接将X1BOOK.SAVE加入到我前面那么段程序里面吗？请大神给点详细的程序，我刚入手VB，好多不懂~

追答

每隔一段，意味着你要用TIMER,在TIMER的事件里写

追问

恩恩，我已经加入了，谢谢~但是它现在保存的在的是我的文档里面，请问我可以不可以再x1book.save后面加一段代码使它可以保存在固定的位置，比如保存在桌面上？谢谢了，最后一个问题！

追答

可以，用另存，但是有文件的话你需要把提示关闭，保存完再把提示打开