如何保存出货单的数据。

huangbogz

小弟想做一个出货单管理系统，看了LangQueS 版主的《简易的数据管理.xls》，无法参透其中奥妙，望各位帮帮忙。
我要实现的功能：1、按右边的“保存”按钮，可以将上述数据追加保存到“销售台帐”中。另外在“销售台帐.xls”中备份。
2、“合计”金额累加到“销售台帐”以及“销售台帐.xls”的“积分”处。

[ 本帖最后由 huangbogz 于 2009-2-12 21:54 编辑 ]

huangbogz

什么意思？“可以放到一个表中？”

zhaogang1960

2、不理解
1、请测试：
Sub aaa()
    Dim arr, i As Long, lr As Long, wk As Workbook
    Application.ScreenUpdating = False
    i = 2
    Do Until Cells(i, 12).Value = ""
        lr = i
        i = i + 1
    Loop
    arr = Range("L3:AB" & lr)
    With Sheets("销售台帐")
        .Range("a" & .Range("a65536").End(3).Row + 1).Resize(lr - 2, UBound(arr, 2)) = arr
    End With
    Set wk = Application.Workbooks.Open(ThisWorkbook.Path & "\销售台帐.xls")
    With wk.Sheets(1)
        .Range("a" & .Range("a65536").End(3).Row + 1).Resize(lr - 2, UBound(arr, 2)) = arr
    End With
    wk.Close True
    Application.ScreenUpdating = True
    MsgBox "保存完毕"
End Sub

LangQueS

建议楼主参考下帖中的文字说明：

★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html