怎么实现自动读取订单信息？

透明世界1987 · 发表于 2022-3-28 13:58

怎么实现自动读取订单信息微信截图_20220328135728.png

excel用户1116 · 发表于 2022-3-28 14:48

订单登记表中的代码！供参考！

Sub test()
Dim i&, r&, fName$, wb As Workbook, arr, brr(1 To 50, 1 To 30)
fName = ThisWorkbook.Path & "\采购单.xlsx"
Set wb = GetObject(fName)
arr = wb.Sheets(1).[a1].CurrentRegion
wb.Close 0
For i = 6 To 45
      If Len(arr(i, 3)) Then
         r = r + 1
         brr(r, 2) = arr(3, 2)
         brr(r, 3) = arr(4, 2)
         brr(r, 4) = arr(i, 3)
         brr(r, 6) = arr(46, 12)
         brr(r, 7) = arr(2, 10)
         brr(r, 8) = arr(3, 4)
         brr(r, 9) = arr(49, 2)
         brr(r, 11) = arr(2, 7)
         brr(r, 12) = arr(3, 7)
         brr(r, 13) = arr(2, 2)
      Else
         Exit For
      End If
Next
If r Then
      With Sheet2
         .[a1].CurrentRegion.Offset(1) = ""
         .[a2].Resize(r, 30) = brr
      End With
End If
End Sub

excel用户1116 · 发表于 2022-3-28 14:51

订单登记自动读取.zip (333.99 KB, 下载次数: 2)

透明世界1987 · 发表于 2022-3-29 10:17

excel用户1116 发表于 2022-3-28 14:51

感谢大神，代码基本没问题，就是为啥每次读取就把采购单表格给关闭了呢？这个能不能去掉，
然后采购单那个表格内有个打印按钮，能否帮做下点击打印后excel表格另存到固定的文件夹比如D盘采购订单文件夹，同时文件打印成PDF；文件名称为J2-B49+B2+采购订单（就是供应商简称-送货地简称采购单编号+采购订单文字这样子的名称

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