三个工作薄，最后生成报告单

小电兔

请教老师们关于
希望将数据源工作薄里的数据复制到data工作薄里，最后根据data里的数据在报告工作薄里生成报告单。最好还能把报告单另存为一个

ykcbf1100

你的表总是与众不同，想生成一个表都不行。
代码写了，代码应该没问题，但运行后会打开另外的窗口，原因不明。算了，不发了。

小电兔

ykcbf1100 发表于 2023-3-29 16:32
你的表总是与众不同，想生成一个表都不行。
代码写了，代码应该没问题，但运行后会打开另外的窗口，原因不 ...

，实在不好意思老师，这个表是别人发给我的。请您见谅。这个表的问题真的很抱歉，实在不好意思老师。因为也是别人发给我的，什么原因造成的我也不是很清楚。如果可以的话，还是希望您可以把代码发给我们学习一下。

3190496160

直接从数据源生成报告不就行了吗？拷贝到data中岂不是多此一举吗？？？

小电兔

3190496160 发表于 2023-3-29 17:51
直接从数据源生成报告不就行了吗？拷贝到data中岂不是多此一举吗？？？

哈哈，我也抱有疑问。我自己已经把数据复制到了data，但现在到了生成报告单卡住了（最好能额外生成一个报告单）。您可以帮我看看往后怎么写吗？
Sub text()
Dim dic As Object, i%, j%, arr
Set dic = CreateObject("scripting.dictionary")
Dim path$, wb
path = ThisWorkbook.path & "\Data - 副本.xlsm"
Set wb = GetObject(path)
arr = wb.Sheets(1).UsedRange
wb.Close
Set wb = Nothing
For i = 3 To UBound(arr)
dic(arr(i, 1)) = i
Next
For j = 1 To UBound(arr, 2)
dic(arr(1, j)) = j
Next
？
？
？
End Sub

小电兔

3190496160 发表于 2023-3-29 17:51
直接从数据源生成报告不就行了吗？拷贝到data中岂不是多此一举吗？？？

哈哈，我这也有此一问。但我现在已经把数据弄到data表里，但到了生成报告单思路就断了，希望您帮我看看
修改一下。希望最后报告单里能够单独点击设置的按钮可以另存为一个名字是有样品名称的报告单。

Sub text()
Dim dic As Object, i%, j%, arr
Set dic = CreateObject("scripting.dictionary")
Dim path$, wb
path = ThisWorkbook.path & "\Data - 副本.xlsm"
Set wb = GetObject(path)
arr = wb.Sheets(1).UsedRange
wb.Close
Set wb = Nothing
For i = 3 To UBound(arr)
dic(arr(i, 1)) = i
Next
For j = 1 To UBound(arr, 2)
dic(arr(1, j)) = j
Next
？
？
End Sub