关于VB.NET调用excel的问题 - 编程论坛

#2

nich2011-01-13 10:24

。。。貌似没人啊~

#3

nich2011-01-13 16:35

只有本站会员才能查看附件，请登录

完成了存储button 的过程，可以将储存button上面的一列textbox数据传送到excel指定的单元格内！读取button，希望完成打开之前所保存的excel，并将其中的数据储存到另一排TEXTBOX中。这一步不知道怎么动手。。。。

#4

不说也罢2011-01-13 19:55

不知道你要问的是什么，如果读取EXCEL单元格的值，那很简单啊。

程序代码：

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fileName As String
        '打开文件
        OpenFileDialog1.InitialDirectory = Application.StartupPath
        OpenFileDialog1.ShowDialog()
        fileName = OpenFileDialog1.FileName()
        '调用excel

        xlWorkBook = xlApp.Workbooks.Open(fileName)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")
        With xlWorkSheet

            Dim a(.UsedRange.Rows.Count - 1, .UsedRange.Columns.Count - 1) As String'定义一个数组存储单元格的值
            For i As Integer = 1 To .UsedRange.Rows.Count - 1
                For j As Integer = 1 To .UsedRange.Columns.Count - 1
                    a(i, j) = .Cells(i, j).Value'将单元格的值赋值给数组
                    Console.Write(a(i, j))'在立即窗口输出读取的值
                Next

            Next
        End With
        '关闭文件
        'xlWorkBook.Close()
        xlApp.Quit()

        '排错
        'releaseObject(xlApp)
        'releaseObject(xlWorkBook)
        'releaseObject(xlWorkSheet)

    End Sub

#5

nich2011-01-14 08:11

xlWorkBook= xlApp.Workbooks.Open(fileName) '这一句运行出错啊，错误提示是未处理InvalidComObjectException 。com对象与其基础RCW分开后不能使用。要怎么解决啊？？？

#6

nich2011-01-14 08:24

非常感谢！搞定了~~ 真是太谢谢了~~ 那个with结构都没用过。。新手菜鸟，还请版主大大多多指点！

#7

nich2011-01-14 09:06

回复 4楼不说也罢

再次感谢~