Question

高手来指点，如何利用excel vba，将数据库中所有含有指定字段的表名，罗列在excel的A列

高手来指点，如何利用excel vba，将数据库中所有含有指定字段的表名，罗列在excel的A列举例，服务器192.168.9.9用户名abc密码123
要查找所有包含字段名 name 的表名，放到A列中，高分求完整的代码，谢谢

Answer 1

要通过EXCEL查询指定数据库中的含 有指定字段的表名时，首先得知道查询SQL，查询SQL如下：

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.COLUMNS where COLUMN_NAME='字段名'

如果要写成VBA的话，下面给你一段我写的宏，测试过了：

－－－－－－－－尘晌枝－－－

Sub 宏7()

' 宏7 宏

Application.CutCopyMode = False

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _

"ODBC;DRIVER=SQL Server;SERVER=服务器IP;UID=sa;;APP=Microsoft Office 2016;WSID=GUESS;DATABASE=要查询的派敏数据库名" _

, Destination:=Range("$A$1")).QueryTable

.CommandType = xlCmdSql

.CommandText = Array( _

"SELECT TABLE_NAME" & Chr(13) & "" & Chr(10) & "FROM 要查询的数据库名.INFORMATION_SCHEMA.COLUMNS" & Chr(13) & "" & Chr(10) & "WHERE (COLUMN_NAME='要查询的字段名')")

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = 谨此xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

Dim chars As String

Dim rndstr As String

chars = "ABCDEFGHJKLMNPQRSTUVWXYZ0123456789"

Randomize

For i = 1 To 6

rndstr = rndstr & Mid(chars, Int(Rnd() * Len(chars) + 1), 1)

Next

.ListObject.DisplayName = rndstr

.Refresh BackgroundQuery:=False

End With

End Sub

最后结果如下图：

追问

非常感谢您的回答，还有如下疑问，请帮忙看看

如图，第一个红圈里是应该填写IP地址吗，如192.168.2.1

第二个红圈里是应该填用户名吧，如abc

密码填哪里？

第三个红圈里，我是office2007，是否应该改为2007

第四个红圈wsid是什么，用改吗

我成功了，太感谢您了