我已经在 Excel 工作簿中成功编写了一些 VBA 代码,该代码使用特定单元格中的值将工作簿保存到 SharePoint 列表中以生成文件名,这非常简单:
Sub submitapproval()
ThisPath = "https://recupeit.sharepoint.com/sales/Costing%20Sheets/"
ThisRep = ThisWorkbook.Sheets("Quotation").Range("E11").Value
ThisCustomer = ThisWorkbook.Sheets("Quotation").Range("B8").Value
ThisDescription = ThisWorkbook.Sheets("Quotation").Range("B9").Value
ThisCost = ThisWorkbook.Sheets("Hardware Costing Sheet").Range("J25").Value
ThisTotal = ThisWorkbook.Sheets("Hardware Costing Sheet").Range("E25").Value
ActiveWorkbook.SaveAs Filename:=ThisPath & ThisCustomer & " - " &
ThisDescription & ".xlsm"
End Sub
我要上传到的文档库有 3 列,我需要用工作簿中的数据填充我已经拥有的值:
ThisRep
ThisCost
ThisTotal
我找不到任何关于如何实现这一目标的简单答案。谁能指出我正确的方向?
谢谢,史蒂文