Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a As Integer
Timer1.Interval = Val(caiyang.Text)
Randomize()
x.Text = Int(Rnd() * 999)
Randomize()
y.Text = Int(Rnd() * 999)
Randomize()
z.Text = Int(Rnd() * 999)
TextBox16.Text = x.Text
TextBox15.Text = y.Text
TextBox14.Text = z.Text
xlsheet.Cells(1, 1) = TextBox14.Text
xlsheet.Cells(1, 2) = TextBox15.Text
xlsheet.Cells(1, 3) = TextBox16.Text
End Sub
出错了：异常来自 HRESULT:0x800401A8
不知道为什么 请高人指点啊、、、
我在窗体里面已经声明了以下:
Public Class Form1
Public xlapp As Microsoft.Office.Interop.Excel.Application
Public xlbook As Microsoft.Office.Interop.Excel.Workbook
Public xlsheet As Microsoft.Office.Interop.Excel.Worksheet


是timer控件 忘打一个R

你没有启用Excel (New Excel.Application) 而且 "工作薄"都(xlbook) 没打开,就直接对 "工作表"(xlsheet) 进行操作了