Publicando em uma lista do Sharepoint

Utilizo o ADO para diversas operações que de outra maneira levariam muito para serem realizadas.

Neste código demonstro como alimentar uma lista do Sharepoint com os dados vindos de uma pasta de trabalho.

Uma observação interessante é que o nome da lista não é utilizado na sintaxe T-SQL qualquer nome colocado na mesma irá funcionar pois a definição da tabela é feita string de conexão com o parâmetro LIST.
Utilizo esta mesma lógica para qualquer tipo de transação como SELECT,DELETE , UPDATE e como nesse caso INSERT

Public Const strSharePointInfo = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=http://sharepoint.server.com/Path/;LIST={12312456-124A-78BC-B8E7-1E526B74A015};"

Sub InsertRecordSetOnSharePoint(Rg as Range,ShtName as String)

'Bruno Leite
'http://officevb.com

Dim cn As ADODB.Connection 'Conexao para a Lista do SharePoint
Dim i As Integer,SQL as string

'sql to insert
SQL = "INSERT INTO [ESSENOMENAOEUSADO] (SELECT * FROM [Excel 12.0;DATABASE=" & ShtName & "].["& rg.name &"$])"

'open connection
cn.Open strSharePointInfo

'run SQL
cn.Execute SQL

Set cn = Nothing

Debug.Print "Insert OK"

End Sub