使用Outlook VBA将数据插入SharePoint表(如何加快处理速度?)

Question

我编写了一个宏，它从电子邮件正文中获取一些数据，然后将这些数据插入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列表(

Answer 1

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