怎样编辑Excel文档

[Lonelywolf1899]

Dim xlsApp As Excel.Application

Excel打点打不出Application，什么原因呢？

工程已经引用了Com组件Mircosoft Excel Object

[水如烟]

Dim xlsApp As New Excel.Application
xlsApp.Visible = True

[水如烟]

Imports Microsoft.Office.Interop

[cometing]

学习

[zengfanying]

学习

[changjiangzhibin]

Dim xlsApp As Excel.Application 
xlsApp = new Excel.ApplicationClass();
//先实例化,再点就可以了
//xlsApp......//可以点出来

[dreamice01]

五。六楼正解

[sanwaxubin]

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

        Dim wapp As New Microsoft.Office.Interop.Excel.Application
        Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook
      

        '新建一文件
        wbook = wapp.Workbooks.Add
        ‘打开一个已经存在的Xls文件
        'wbook = wapp.Workbooks.Open(“文件名称.xls")
 

        '----先择工作表
         wsheet = wbook.Worksheets("Sheet1")

         '-------------

         要添写的内容
         '---------------

        '前台显示
         wapp.Visible = True

[水如烟]

...
xlsApp.Cells(1, 1) = "hello"
xlsApp.ActiveWorkbook.Save()
xlsApp.Workbooks.Close()
xlsApp.Quit()

[Lonelywolf1899]

Dim xlsApp As New Excel.Application

xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
xlsApp.Workbooks.Open("C:\a.xls")
xlsApp.Cells(1, 1) = "hello"
xlsApp.Workbooks.Close()
xlsApp.Quit()

总是弹出保存文件对话框，能不能直接保存啊？谢谢了

[把酒话桑麻0571]

我输入了 Imports.Microsoft. 可是后面并没有OFFICE！只有CSARP,VB,WIN32这几个选项。这是怎么回事呢？

[ping502]

[Quote=引用 10 楼 xkgg74 的回复:]
我输入了 Imports.Microsoft. 可是后面并没有OFFICE！只有CSARP,VB,WIN32这几个选项。这是怎么回事呢？
[/Quote]
要添加參考。。。在參考COM裡面就有。

[thch214]

学习

[把酒话桑麻0571]

[Quote=引用 11 楼 ping502 的回复:]
引用 10 楼 xkgg74 的回复:
我输入了 Imports.Microsoft. 可是后面并没有OFFICE！只有CSARP,VB,WIN32这几个选项。这是怎么回事呢？

要添加參考。。。在參考COM裡面就有。
[/Quote]

能否说具体点啊？怎么添加参考？谢谢

[Lonelywolf1899]

[Quote=引用 9 楼 lzmtw 的回复:]
...
xlsApp.Cells(1, 1) = "hello"
xlsApp.ActiveWorkbook.Save()
xlsApp.Workbooks.Close()
xlsApp.Quit()

[/Quote]

做好了！谢谢!!

[Lonelywolf1899]

TO xkgg74:

在[解决方案资源管理器]中，在[引用]上点击右键，选择[添加引用（R）]，
然后选择[COM]页，选中[Microsoft Excel 11.0 Object Libery]，点击[确定]按钮。

说明：
对于Office 2003，选择Microsoft Excel 11.0 Object Libery
对于其他版本的Office，版本号[11.0]不同。

[YiFeng007]

实例化啊