我编写了一个宏，它从电子邮件正文中获取一些数据，然后将这些数据插入到 SharePoint 表中。抓取电子邮件正文以及将数据插入 SharePoint 都可以正常工作 - 但插入部分需要很长时间（每次执行大约需要 2 分钟）。
这是代码：
Public Const sDEMAND_ROLE_GUID As String = "{111111111-2222-3333-4444-111111111111}"
Public Const sSHAREPOINT_SITE As String = "https://randomsharepoint.com/sites/test/"
Sub insertIntoSharePoint()
Dim cn As ADODB.Connection
Dim sConn As String
Dim sSQL As String
sConn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;" & _
"DATABASE=" & sSHAREPOINT_SITE & ";" & _
"List=" & sDEMAND_ROLE_GUID & ";"
Set cn = New ADODB.Connection
sSQL = "INSERT INTO [TEST TABLE]([Test1], [Test2], [Test3], [Test4], [Test5], [Test6], [Test7], [Test8], [Test9], [Test10], [Test11])" & _
"VALUES ('TestVal1', 'TestVal2','TestVal3','TestVal4','TestVal5','TestVal6','TestVal7','TestVal8','TestVal9','TestVal10','TestVal11');"
With cn
.ConnectionString = sConn
.Open
.Execute sSQL 'This is the line that takes most of the runtime'
.Close
End With
Set cn = Nothing
MsgBox "Item successfully added to SharePoint"
End Sub
有没有办法优化这段代码？或者执行缓慢仅取决于互联网连接/弱电脑？或者您有其他解决方案来解决主要问题吗？（抓取电子邮件正文并将其插入到 SharePoint 列表中）
好吧，VBA 本质上很慢。也许您可以将 Outlook 中的所有内容导入 Access/Excel，然后从 Access/Excel 中获取 SharePoint 数据。
在要添加基于电子表格的列表的站点上，转到设置 Office 365 设置按钮，然后单击添加应用程序。
在查找应用程序字段中，输入电子表格，然后单击搜索图标 搜索框放大镜图标 。查找输入了电子表格并突出显示搜索按钮的应用程序字段
在搜索结果页面中，单击导入电子表格。导入电子表格应用程序在新应用程序对话框中突出显示
在“新建应用程序”页面中，为列表键入名称。
该名称出现在大多数视图中的列表顶部，成为列表页面网址的一部分，并出现在站点导航中以帮助用户找到列表。您可以更改列表的名称，但网址将保持不变。填充了名称和文件位置的新应用对话框，导入突出显示
键入可选的说明。
在大多数视图中，描述显示在名称下方。您可以随时使用列表设置更改列表的描述。
浏览或键入电子表格的文件位置。完成后单击导入。
电子表格将在 Excel 中打开，您将看到“导入到 Windows SharePoint Services 列表”窗口。
在“导入到 Windows SharePoint Services 列表”窗口中，选择“表格范围”、“单元格范围”或“命名范围”。如果要手动选择范围，请选择单元格范围，然后单击选择范围。在电子表格中，单击左上角的单元格，按住 Shift 键，然后选择所需范围的右下角单元格。突出显示范围的 Excel 电子表格
该范围将出现在“选择范围”字段中。单击导入。“导入到电子表格”对话框中突出显示“导入”
导入电子表格后，检查列表的列以确保数据已按预期导入。例如，您可能希望指定一列包含货币而不是数字。要查看或更改列表设置，请打开列表，单击列表选项卡或单击设置 Office 365 设置按钮 ，然后单击列表设置。
电子表格数据将显示在 SharePoint 的列表中。SharePoint Online 中的列表
有关更多信息，请参阅以下链接。
http://3sharp.com/blog/load-excel-data-into-a-sharepoint-2013-list-fast-and-easy/
https://technet.microsoft.com/en-us/library/2008.04.access.aspx
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句