导入数据

老虎1

老师，想把二月.TJ01原料粉库存记录对应的数据每天更新到TJ01粉库存,代码该如何编写，请帮助谢谢。

我是小黑屋

是将对应物料的信息更新TJ01粉库存工作簿？  还是将产生的数据写入TJ01粉库存工作簿中？

ctp_119

这样做记录表，是自己给自己添麻烦，，，这类问题，最好用PQ来处理，事后刷新即可！！！VBA就省掉了！！！关键是第一步你表的布局

3190496160

Sub 数据录入()
Dim ar As Variant
Dim br()
With Sheets("原料粉库存记录表")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:ar" & r)
End With
ReDim br(1 To UBound(ar), 1 To 8)
For i = 3 To UBound(ar)
    If Trim(ar(i, 1)) = "" Then ar(i, 1) = ar(i - 1, 1)
    If Trim(ar(i, 2)) <> "" Then
        n = n + 1
        For j = 1 To 4
            br(n, j) = ar(i, j)
        Next j
        br(n, 5) = ar(i, 10)
        br(n, 6) = ar(i, 11)
        br(n, 7) = ar(i, 43)
        br(n, 8) = ar(i, 44)
    End If
Next i
f = Dir(ThisWorkbook.Path & "\TJ01粉库存.xls*")
If f = "" Then MsgBox "找不到TJ01粉库存文件": End
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
With wb.Worksheets(1)
    rs = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row + 1
    .Cells(rs, 1).Resize(n, UBound(br, 2)) = br
End With
wb.Close True
MsgBox "ok!"
End Sub

3190496160

3190496160

求助.rar (119.52 KB, 下载次数: 14)

2023-2-18 14:54 上传

点击文件名下载附件

老虎1

谢谢老师  

老虎1

我是小黑屋 发表于 2023-2-18 14:38
是将对应物料的信息更新TJ01粉库存工作簿？  还是将产生的数据写入TJ01粉库存工作簿中？

是将对应物料的信息更新TJ01粉库存工作簿

老虎1

ctp_119 发表于 2023-2-18 14:41
这样做记录表，是自己给自己添麻烦，，，这类问题，最好用PQ来处理，事后刷新即可！！！VBA就省掉了！！！ ...

谢谢版主的提醒