VB.NET如何同时打开同一个excel文件

[ChumpKlutz]

我有一个按钮，是导出到excel模板的功能

当第一次时是可以导出到excel，这时excel模板不关闭，然后再一次点击按钮时，就会弹出是否重新开该excel文档，怎么样做到同一个excel模板同时打开多次呢

在vb6当中是可以的,没有什么特殊之处

[outou]

你是不是在什么地方释放了。这里http://bingning.net/VB/SOURCE/programing/index.html有EXCEL自定义类，参考一下。

[taotie1225]

不需要设置什么吧

[路人乙e]

这样？
open master.xls
fill data "aaa" ==> a.xls
fill data "bbb" ==> b.xls

那设置share read属性就行了

[路人乙e]

如果直接修改原来的模版肯定不行

[yanlongwuhui]

在按钮点击事件中实例化对象了吧
建议附上代码

[feifeiyiwen]

建议附上代码

[YuanBao20090422]

每次导出是的名字不一样就行了。

[YuanBao20090422]

每次导出的文件名字是一样的。应该每次单击时导出的文件名字不一样就可以了。

[Jessie_Zhang]

关注一下...经常用到Excel做表报

[ChumpKlutz]

[Quote=引用 8 楼 YuanBao20090422 的回复:]
每次导出的文件名字是一样的。应该每次单击时导出的文件名字不一样就可以了。
[/Quote]

导出的文件是不需要保存的

[ChumpKlutz]

代码如下：

  Dim xlsSheet As Excel.Worksheet

        Dim intRowStart As Integer = 3

        xlsApp.DisplayAlerts = False
        xlsSheet = xlsApp.Workbooks.Open(Application.StartupPath & "\Report\rptCustomerInfo.xls").Worksheets(1)

        For intTemp = 0 To dgvCustomer.Rows.Count - 1

            xlsSheet.Cells(intRowStart, 1) = dgvCustomer.Rows(intTemp).Cells("clnCustomer_Abbrev").Value.ToString
            xlsSheet.Cells(intRowStart, 2) = dgvCustomer.Rows(intTemp).Cells("clnC_Name").Value.ToString
            xlsSheet.Cells(intRowStart, 3) = dgvCustomer.Rows(intTemp).Cells("clnE_Name").Value.ToString
            xlsSheet.Cells(intRowStart, 4) = dgvCustomer.Rows(intTemp).Cells("clnCity").Value.ToString
            xlsSheet.Cells(intRowStart, 5) = dgvCustomer.Rows(intTemp).Cells("clnContract").Value.ToString
            xlsSheet.Cells(intRowStart, 6) = dgvCustomer.Rows(intTemp).Cells("clnTel").Value.ToString
            xlsSheet.Cells(intRowStart, 7) = dgvCustomer.Rows(intTemp).Cells("clnFax").Value.ToString
            xlsSheet.Cells(intRowStart, 8) = dgvCustomer.Rows(intTemp).Cells("clnMail").Value.ToString
            xlsSheet.Cells(intRowStart, 9) = dgvCustomer.Rows(intTemp).Cells("clnAddress").Value.ToString
            xlsSheet.Cells(intRowStart, 10) = dgvCustomer.Rows(intTemp).Cells("clnDescription").Value.ToString

            intRowStart += 1

        Next
        xlsApp.Visible = True

        xlsSheet = Nothing

        lblStatus.Text = "导出成功！"