如何让这段代码将数据以文本/数值保存到数据库的相应单元格中？？并让B5单元

liw0311041

Option Explicit

Sub 保存()
Dim n, n1
    n = Sheets("入单界面").Range("A65536").End(xlUp).Row + 1 '获取A列最后一行位置
    n1 = Sheets("数据库").Range("A65536").End(xlUp).Row + 2
    Sheets("入单界面").Range("A5:AL5" & n).Copy Sheets("数据库").Range("A" & n1)
    MsgBox "已完成提取，请查看数据库！"
End Sub

如何让这段代码将数据以文本/数值保存到数据库的相应单元格中？？并让B5单元的单号每保存一次自动+1递增呢？在打单界面输入单号/客户，点下“查询订单”即可显示该单号/客户的订单供打印。。。请各位大神帮帮忙。。。