And adding a short inputbox for the server is cool if your centrally managing multiple servers.

[...]
Dim i
Dim srvname

srvname = InputBox ( "Enter the Server Name", "Server", "xxxxxx")

' making the connection to your sql server
' change yourservername to match your server
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

' this is using the trusted connection if you use sql logins
' add username and password, but I would then encrypt this
' using Windows Script Encoder
objConnection.Open _
    "Provider = SQLOLEDB;Data Source=" & srvname & " ;" & _
        "Trusted_Connection=Yes;Initial Catalog=Master;"
[...]

And this little addition formats the CPUTime column so that you can sort the column afterwards:

[...]
objExcel.Cells(i, 7).Value = FormatNumber(objRecordset.Fields.Item("CPUTime"), 0, -1, 0, 0)
[...]

Otherwise a cool piece of code. I don't have the time to get into coding much these days, but that might change.

Thanks

hot2use

Great ideas.  Thanks.

You can remove the titles from the loop. 

Hi,

This is really a nice script.  I made a few changes.  Now it works with any SELECT statement or stored proc.

I posted the code on my blog:

http://users.telenet.be/frederik.vandeputte/blog/2005/07/anyquery2excelvbs.html

Kind regards,

Frederik