使用Visual Basic 2010读取Excel 2000单元格 [英] reading Excel 2000 cells using Visual Basic 2010

问题描述

<b></b>The short program below writes to cells correctly  using either form of   cell assignment, but both attempts to read cell data give me "system._ComObject" in the textboxes. I've searched all the help files, but cannot see what I'm missing.
Reference used in Visual Basic 2010 is Excel 9.0 object library.
Help would be very welcome. Thanks

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AppXls As Excel.Application
        Dim ObjWb As Excel.Workbook
        Dim worksheet As Excel.Worksheet
        '  Dim ObjRd As Excel.Workbook

        AppXls = CreateObject("Excel.Application")
        ObjWb = AppXls.Workbooks.Add

        AppXls.Workbooks.Open("c:\excelwrite_test2.xls")
        worksheet = ObjWb.Sheets.Item(1)
        'Set value in cell A1 to 1
        ObjWb.Worksheets.Item("Sheet1").Range("B4").Value = "new string";
        worksheet.Cells(2, 1) = "Another string";
        TextBox1.Text = worksheet.Cells(2, 1).ToString
        TextBox2.Text = ObjWb.Worksheets.Item("Sheet1").Range("B2").ToString

        ' ObjWb.Close()
        ObjWb.SaveAs("C:\excelwrite_test.xls")

        ObjWb.Close()
    End Sub
End Class

推荐答案

尝试执行此操作，用此命令更改您的代码行.有效

Try this, change your code lines with this one. It works

TextBox1.Text = worksheet.Range("A2").Text
TextBox2.Text = ObjWb.Worksheets.Item("Sheet1").Range("B4").Text

这篇关于使用Visual Basic 2010读取Excel 2000单元格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！