注册 登录
编程论坛 VB.NET论坛

新手请教关于VB读取EXCEL数据的问题

omni1209 发布于 2016-06-02 09:36, 4338 次点击
我在VISUAL STUDIO 2015平台用VB编写一个程序,希望能读已存在的一个EXCEL里的数据。
但根据在网上找到的代码写,报了错
麻烦大神帮我看一下,谢谢!!
首先在工程-引用中添加了Microsoft Excel 14.0 Object Library
然后新建了一个模块,问题是写到Set xlApp = CreateObject("Excel.Application") 这句就开始报错,
SET上的错误显示“应为声明”,xlApp上的错误显示应为语句结束。
请问是为什么呢
程序代码:

Imports Microsoft.Office.Interop

Module TableFunction
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
3 回复
#2
风吹过b2016-06-02 15:16
平台不对,刚学这个,不太懂,帮你转
不说也罢是一个很好的版主。

#3
不说也罢2016-06-02 15:50
风版高抬。
因时间所限,刚注册ID的贴子,一般都不回。既然风版高抬,这个帖子回了吧。
Set语句,在VB6中,经常用到,但是在.net中已经不需要用它来指派对象了(如楼主出错的那句),而且会被视为非法。
上面是楼主出错的第一点。
第二点呢,指派对象的语句不该写在定义或声明中,而应写在对象的事件或自定义的函数或过程中。例如:
程序代码:

Imports Microsoft.Office.Interop
Module TableFunction
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet

    Public Sub OpenEexcel()
        xlApp = CreateObject("Excel.Application")
    End Sub
End Module


如果一定要写在定义或声明中,应当这样写:

Dim xlApp As Excel.Application = CreateObject("Excel.Application")
#4
catfree2016-06-06 10:08
新人报道,很暖和的版主大人!
1