以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码导出指定EXCEL工作簿某表后,EXCEL里原先设置的宏就没有了,怎么回事啊?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30902)

--  作者:zhl7928
--  发布时间:2013/4/6 15:59:00
--  [求助]代码导出指定EXCEL工作簿某表后,EXCEL里原先设置的宏就没有了,怎么回事啊?
如题

代码如下
Dim dt As Table = Tables("分配表")
Dim Book As New XLS.Book("e:\\我的文档\\工作表\\配货单.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("分货表")
Dim r As Integer = 4
For Each cc As Row In dt.rows
    If cc.Isnull("合计") = False And cc("店铺") <> "到货明细" And cc("店铺") <> "订单明细"  Then
        r = r + 1
        Output.Show(r)
        For c As Integer = 1 To 22
            If cc(c) = Nothing Then
                Sheet(r, c - 1).Value = ""
            Else
                Sheet(r, c - 1).Value = cc(c)
            End If
        Next
    End If                
Next
Book.Save("e:\\我的文档\\工作表\\配货单.xls")
Dim Proc As New Process
Proc.File = "e:\\我的文档\\工作表\\配货单.xls"
Proc.Start()
[此贴子已经被作者于2013-4-6 16:02:02编辑过]

--  作者:e-png
--  发布时间:2013/4/6 18:05:00
--  
就是这样的。
--  作者:zhl7928
--  发布时间:2013/4/7 9:44:00
--  
不是吧?????????????求解