How to extract the data from SQL Server to Excel using vba

This is a response from ASH at stackoverflow:

There are so many ways to do this!!