sql-server - SQL查询到Excel电子表格使用vba宏

Question

我无法将 SQL Server 数据导入 Excel。

所以任何人都可以帮助我如何连接到 SQL Server 以使用 vba 宏？以及如何使 vba 脚本到 SQL 查询到 Excel 电子表格？

谢谢。

Answer 1

在 Office 2007 中，转到数据选项卡，然后获取外部数据，您将看到连接到 SQL 的选项，在 2010 中，转到数据选项卡并单击其他现有源，然后选择SQL Server。这是将数据拉入工作表以直接操作。

仅在 VBA 中

在 VBA 脚本编辑器中包括 ActiveX 数据对象参考

这是一个关于如何从 VBA 连接到 SQL 的代码示例

Sub Connect2SQLXpress()
Dim oCon As ADODB.Connection
Dim oRS As ADODB.Recordset
Set oCon = New ADODB.Connection
oCon.ConnectionString = "Driver={SQL Native Client};Server=.\SQLEXPRESS;Database=DB1; Trusted_Connection=yes;"
oCon.Open
Set oRS = New ADODB.Recordset
oRS.ActiveConnection = oCon
oRS.Source = "Select * From Table1"
oRS.Open
Range("A1").CopyFromRecordset oRS
oRS.Close
oCon.Close
If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCon Is Nothing Then Set oCon = Nothing
End Sub

要在 Excel 中启用 Visual Basic 编辑器，请阅读以下链接以启用开发人员选项卡

这应该可以快速概述您的需求。