以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码导出指定EXCEL工作簿某表后，EXCEL里原先设置的宏就没有了，怎么回事啊？  (http://www.foxtable.com/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
--  
不是吧？？？？？？？？？？？？？求解