求大神帮忙写个保存数据

蒙吱吱

点击“确认单据”把维修单的数据保存到“数据库

因为维修单的标题和数据库的标题存在差异，不知道咋写，
如何可以麻烦帮忙把安装单的也写一下，他两个大致一样。

求大神帮忙搞一下！谢谢！

蒙吱吱

在线等，哪位好心大神帮忙看一下，指点一下！

quqiyuan

参与一下，仅供参考。。。
两个保存的代码写好了，你测试一下。。

quqiyuan

代码如下。。。。
Sub 保存_Click()
    Dim arr(), brr()
    arr() = Worksheets("登记界面").Range("A1:N15").Value
    ReDim crr(1 To 10, 1 To 16)
    n = 0
    For i = 6 To 15
        If arr(i, 4) <> "" Then
            n = n + 1
            crr(n, 1) = arr(1, 13)                              'arr(1, 3)   搞不懂这里是什么？
            crr(n, 2) = arr(i, 4)
            crr(n, 3) = arr(i, 3)
            For j = 5 To 8
                crr(n, j - 1) = arr(i, j)
            Next
            For j = 9 To 14
                crr(n, j + 2) = arr(i, j)
            Next
        End If
    Next
    With Worksheets("数据库")
        k = .Range("c64534").End(xlUp).Row + 1      'C列是公司名称，这个不会空
        If n > 0 Then .Cells(k, 2).Resize(n, 16) = crr
    End With
    With Worksheets("登记界面")
        .Range("C6:N15").ClearContents
'        .Range("M1").ClearContents             '暂时注释，需要就改回来吧
    End With
    Beep
End Sub
Sub 安装单_保存_Click()
    Dim arr(), brr()
    arr() = Worksheets("登记界面").Range("A63:N72").Value
    X = Worksheets("登记界面").Range("M58").Value
    ReDim crr(1 To 10, 1 To 16)
    n = 0
    For i = 1 To 10
        If arr(i, 4) <> "" Then
            n = n + 1
            crr(n, 1) = X                              '搞不懂这里是什么？
            crr(n, 2) = arr(i, 4)
            crr(n, 3) = arr(i, 3)
            For j = 5 To 10
                crr(n, j - 1) = arr(i, j)
            Next
            For j = 11 To 14
                crr(n, j + 2) = arr(i, j)
            Next
        End If
    Next
    With Worksheets("数据库")
        k = .Range("c64534").End(xlUp).Row + 1      'C列是公司名称，这个不会空
        If n > 0 Then .Cells(k, 2).Resize(n, 16) = crr
    End With
    With Worksheets("登记界面")
        .Range("C63:N72").ClearContents
'        .Range("M58").ClearContents             '暂时注释，需要就改回来吧
    End With
    Beep
End Sub
   

蒙吱吱

可以可以，感谢大神！
我这个代码，为啥不能保存啊，保存没有数据而且保存数据，数据库数据不往后增加。

Sub 保存_Click()
    Dim arr(), brr()
    arr() = Worksheets("登记界面").Range("A1:N15").Value
    For i = 6 To 15 '表格输入的内容竖行区域'
        If Worksheets("登记界面").Cells(i, 2) <> "" Then
            With Worksheets("数据库")
                k = .Range("a64534").End(xlUp).Row + 1
                .Cells(k, 2) = arr(1, 13)
               
                l = 3
                For j = 3 To 8
                    .Cells(k, 1) = arr(i - 3, j)
                    l = l + 1
                Next
                .Cells(k, 12) = arr(6, 9)
                .Cells(k, 13) = arr(6, 10)
                .Cells(k, 14) = arr(6, 11)
                .Cells(k, 15) = arr(6, 12)
                .Cells(k, 16) = arr(6, 13)
                .Cells(k, 17) = arr(6, 14)
               
            End With
        End If
    Next
    With Worksheets("登记界面")
        .Range("C6:N15").ClearContents
        
        .Range("M1").ClearContents
    End With
End Sub

quqiyuan

蒙吱吱 发表于 2024-11-17 17:02
可以可以，感谢大神！
我这个代码，为啥不能保存啊，保存没有数据而且保存数据，数据库数据不往后增加。
...

数据库A列本来就是留空的，你的k变量要最后一行，怎么可以呢，然后其他的数据字段跟数据库字段的单元格都没有一一对应，我也没有仔细看你的，感觉不对就重写了，我用了数组，然后一次写入数据库，速度快，不容易出错。

蒙吱吱

quqiyuan 发表于 2024-11-17 17:37
数据库A列本来就是留空的，你的k变量要最后一行，怎么可以呢，然后其他的数据字段跟数据库字段的单元格都 ...

感谢大神感谢