如何根据左边的物料代码XC,将右侧几列的数据信息填入台账工作表中？

252744373

如何根据左边的物料代码XC,将右侧几列的数据信息填入台账工作表中？

有个之前的vba代码在台账表里面，才疏学浅没整明白

3190496160

一个简单的问题，似乎没有必要如你目前代码这般复杂吧？

supermouse24

根据右面的单号，TL-01、TL-02，导入到右侧的台账表中？
因为我看你左边的已经导入好了，不过是需要自己打开对应的文件。

还是把左边的一大片的提料单数据信息，按照右边的项目导入右边的台账表中？

supermouse24

3190496160 发表于 2023-1-6 13:26
一个简单的问题，似乎没有必要如你目前代码这般复杂吧？

当时我不会数组，也这样写。
话说，怎么我的信息审核那么久。有时候4个小时后才能过。

3190496160

Sub cmdImport_Click()
Application.ScreenUpdating = False
    Dim FileNames
    FileNames = Application.GetOpenFilename(filefilter:="Microsoft Excel文件(*.xlsx),*.xlsx", FilterIndex:=2, Title:="选择文件", MultiSelect:=True)
    If TypeName(FileNames) = "Boolean" Then
      Exit Sub
    End If
    ReDim arr(1 To 10000, 1 To 15)
    Set xlSheet = Worksheets("台账数据")
    With xlSheet
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A3:N" & r + 2).Clear
        rs = .Cells(Rows.Count, 17).End(xlUp).Row
        .Range("q11:r" & rs + 2).Clear
        For i = LBound(FileNames) To UBound(FileNames)
           f = FileNames(i)
           Set WB = Workbooks.Open(f)
           With WB.Worksheets(1)
                ws = .Cells(Rows.Count, 1).End(xlUp).Row
                ar = .Range("a1:o" & ws)
            End With
            WB.Close False
            For s = 6 To UBound(ar)
                If Trim(ar(s, 2)) = "XC" Then
                    n = n + 1
                    arr(n, 1) = n
                    For j = 2 To 6
                        arr(n, j) = ar(s, j)
                    Next j
                    arr(n, 7) = ar(s, 10)
                    arr(n, 8) = ar(s, 6)
                    arr(n, 9) = ar(s, 7)
                    arr(n, 10) = ar(s, 8)
                    For j = 11 To 14
                        arr(n, j) = ar(s, j)
                    Next j
                End If
            Next s
        Next i
       .[a3].Resize(n, 15) = arr
       .[a3].Resize(n, 15).Borders.LineStyle = 1
    End With
Application.ScreenUpdating = True
End Sub

3190496160

台账.rar (119.54 KB, 下载次数: 10)

2023-1-6 13:51 上传

点击文件名下载附件

252744373

3190496160 发表于 2023-1-6 13:50
Sub cmdImport_Click()
Application.ScreenUpdating = False
    Dim FileNames

首先感谢老师的代码，我给你发个我仿照之前成品的程序代码看一下。之前的程序是提取套裁数据，我想提取我提问的这种，提取的项目有点多，仿照程序改了没改明白。  

252744373

supermouse24 发表于 2023-1-6 13:31
根据右面的单号，TL-01、TL-02，导入到右侧的台账表中？
因为我看你左边的已经导入好了，不过是需要自己打 ...

这个是找的一个程序，不太适用我平时的工作提取，所以改了一下，没改明白，程序没有反应，可以看一下新上传的附件

252744373

252744373 发表于 2023-1-6 18:08
首先感谢老师的代码，我给你发个我仿照之前成品的程序代码看一下。之前的程序是提取套裁数据，我想提取我 ...

老师，可能我没表达好，你可以看一下我新上传的压缩包就能明白我的意思了

3190496160

252744373 发表于 2023-1-6 18:14
老师，可能我没表达好，你可以看一下我新上传的压缩包就能明白我的意思了

说实话，楼主的表达能力实在不敢恭维，为什么很多都在那里猜你的需求，一直猜不到要点？就是因为楼主一开始的表述不清楚，后面也没有针对别人的疑问来回答，
别人不是做你的工作的，别指望你不说，别人也能明白你需要什么？
一定要把自己的甚至意图表述清楚，才能好得到别人的帮助，比如：
你目前这几个问题，究竟数据源是什么？是 TC-01-XC-001和TC-01-XC-002？还是你台账数据工作表中A:I列的数据？？
最终你是需要把结果放到什么位置？
从数据源到目标区域的逻辑关系是什么？？