Sub VBA_SnowFlake_Connect()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sconnect As String
Set Conn = New ADODB.Connection
'You can provide the full path of your external file as shown below "ODBC; DSN=snf;Database=COMMON_DB_DEV;Schema=STAGE"
'DBPath ="C:\InputData.xlsx"
'---------------------------------- Connection String
'Change the DSN name and snowflake credentials
sconnect = "Provider=MSDASQL.1;DSN=DSN=snf;HDR=Yes';Database=xxx;Schema=xxx"
Conn.Open sconnect
'---------------------------------- SnowFlake Table Name
tblname = "yyy"
Set rs = New ADODB.Recordset
rs.ActiveConnection = Conn
'---------------------------------- Your SQL Statement
With rs
.Open tblname, Conn, 1, 3
For n = 1 To 3
.AddNew
.Fields("FROM_SOURCE") = Cells(n, "A")
.Fields("ORDER_NUMBER") = Cells(n, "B")
.Fields("ORDER_ITEM_POSITION") = Cells(n, "C")
.Fields("ORDER_ITEM_KEY") = Cells(n, "D")
.Fields("TEST_VARCHAR") = Cells(n, "E")
.Fields("TEST_NUMBER") = Cells(n, "F")
.Fields("TEST_DATE") = Cells(n, "G")
.Fields("UNION_SOURCE_CAPTURE_TS") = Cells(n, "H")
.Fields("ADJUSTED_TS") = Cells(n, "I")
.Fields("ADJUSTMENT_STATUS") = Cells(n, "J")
.Fields("ADJUSTMENT_COMMENTS") = Cells(n, "K")
.Fields("ADJUSTMENT_USER") = Cells(n, "L")
.update
Next n
.Close
End With
'---------------------------------- Close Recordset
rs.Close
'---------------------------------- Close Connection
Conn.Close
End Sub