我写一个程序，是为了实现把单元格E5的值读出出来，并赋给一个变量i，然后把用户在textbox1和textbox2里输入的值分别写到单元格Ai和Bi里。
比如E5单元格中的值是3,用户在textbox1控件里输入的值是88,在textbox2里输入的值是abc，那么就让A3=88，B3=abc。
程序先在Form1里添加相关控件（button1,textbox1,textbox2)
代码如下：
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        xlapp = CreateObject("Excel.Application") '创建EXCEL对象
        xlbook = xlapp.Workbooks.Open("D:\test.xls") '打开已经存在的test.xls工件簿文件
        xlapp.Visible = False
        xlsheet = xlbook.Worksheets(1) '表1为活动表
        i = xlsheet.Range(1, 5).Value + 1
        xlsheet.Cells(i, 1) = TextBox1.Text
        xlsheet.Cells(i, 2) = TextBox2.Text

    End Sub

可是运行后程序出现错误：异常来自 HRESULT:0x800A03EC。这是怎么回事。该怎么解决。谢谢指点。

该问题已经解决了。哈哈
其实是这句i = xlsheet.Range(1, 5).Value + 1中的Range（1,5）语法出错。正确写法应该是Range(E5)。呵呵

路過進來看看  也許還有很多要學習的東西

Cells(1,5)替换了Range(1, 5)也可以