跨工作簿取数。如何根据标题取数。

lgzxmlg · 发表于 2024-3-4 01:13

本帖最后由 lgzxmlg 于 2024-3-4 10:11 编辑

求助 (29) (2).zip (71.3 KB, 下载次数: 7) 跨工作簿取数。如何根据标题取数。

liulang0808 · 发表于 2024-3-4 07:40

本帖最后由 liulang0808 于 2024-3-4 07:51 编辑

建议楼主结合附件对应说明逻辑关系.
目前代码已经可以提取书数据，还有哪里不满足需求的，具体标题是否完全能对应上？

lgzxmlg · 发表于 2024-3-4 08:15

本帖最后由 lgzxmlg 于 2024-3-4 08:16 编辑

liulang0808 发表于 2024-3-4 07:40
建议楼主结合附件对应说明逻辑关系.
目前代码已经可以提取书数据，还有哪里不满足需求的，具体标题是否完 ...

代码其它数据能提取到。目前网上导出的数据出现了变动。工单类型分两类：灰水井维修工单和灰水井维修工单。对应的“故障描述1”分别放在了BM列和BN列。能否将其全部提取到目标表F列的“故障描述1”中。

能否实现。请老师帮忙。谢谢。

ykcbf1100 · 发表于 2024-3-4 09:58

附件供参考。。。

ykcbf1100 · 发表于 2024-3-4 09:59

参与一下。。。

Sub ykcbf() '//2024.3.4
Set Fso = CreateObject("scripting.filesystemobject")
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Set ws = ThisWorkbook
Set sh = ws.Sheets("报修记录")
With sh
col = .Cells.Find("*", SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
For j = 1 To col
s = .Cells(1, j) '//主表固定列号
d(s) = j
Next
End With
p = ThisWorkbook.Path & ""
ReDim brr(1 To 10000, 1 To 100)
For Each f In Fso.GetFolder(p).Files
If f.Name Like "*.xls*" Then
If InStr(f.Name, ThisWorkbook.Name) = 0 Then
fn = Fso.GetBaseName(f)
Set wb = Workbooks.Open(f, 0)
With wb.Sheets(1)
r = .Cells(Rows.Count, 1).End(3).Row
c = .Cells.Find("*", SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
arr = .[a1].Resize(r, c)
wb.Close False
End With
For i = 2 To UBound(arr)
m = m + 1
For j = 1 To UBound(arr, 2)
s = arr(1, j)
If d.exists(s) Then
brr(m, d(s)) = arr(i, j)
End If
Next
Next
End If
End If
Next f
With sh
.UsedRange.Offset(1).Clear
.Columns(4).NumberFormatLocal = "@"
With .[a2].Resize(m, col)
.Value = brr
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
Application.ScreenUpdating = True
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

lgzxmlg · 发表于 2024-3-4 10:10

ykcbf1100 发表于 2024-3-4 09:58
附件供参考。。。

求助 (29) (2).zip (71.3 KB, 下载次数: 4) 老师对不起附件发错了。再帮忙看下。

ykcbf1100 · 发表于 2024-3-4 10:27

lgzxmlg 发表于 2024-3-4 10:10
老师对不起附件发错了。再帮忙看下。

啥意思呢？闹着玩啊？

洋务德雷 · 发表于 2024-3-4 10:34

。。。。。。。。

lgzxmlg · 发表于 2024-3-4 12:11

洋务德雷发表于 2024-3-4 10:34
。。。。。。。。

出现错误提示

不知是何原因。

lgzxmlg · 发表于 2024-3-4 12:13

ykcbf1100 发表于 2024-3-4 10:27
啥意思呢？闹着玩啊？

老师不好意思，个人疏忽了。

		自动登录	找回密码
密码			免费注册

[求助] 跨工作簿取数。如何根据标题取数。