|
楼主 |
发表于 2023-3-29 21:19
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
哈哈,我这也有此一问。但我现在已经把数据弄到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 |
|