У нас есть файл Excel, в котором мы подключаемся к нашему SQL-серверу для получения данных о продажах с использованием приведенного ниже кода VBA.Теперь мы хотим использовать хранилище таблиц Azure для хранения данных о продажах и передачи нашего Excel оттуда.Возможно ли это сделать?Я имею в виду, возможно ли подключиться к хранилищу таблиц Azure с помощью ADODB?
Sub UpdateSales()
Dim objMyConn As New ADODB.Connection
Dim objMyRecordset As New ADODB.Recordset
objMyConn.CommandTimeout = 720
objMyConn.Open "Provider=SQLOLEDB;Data Source=10.20.1.100;Initial Catalog=ofix;User ID=xxx;Password=yyy"
objMyRecordset.Open "SELECT * FROM [OFIX].[dbo].[OFIX_SALES]", objMyConn, adOpenForwardOnly, adLockReadOnly, adCmdText
Set ActiveSheet.PivotTables("Sales").PivotCache.Recordset = objMyRecordset
ActiveSheet.PivotTables("Sales").PivotCache.Refresh
objMyRecordset.Close
objMyConn.Close
End Sub