我们有一个Excel文件,可在其中连接到SQL Server,以使用下面的VBA代码检索销售数据。现在,我们要使用Azure表存储来存储销售数据并从那里提供Excel。有可能这样做吗?我的意思是可以通过ADODB连接到Azure表存储吗?
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
答案 0 :(得分:1)