G george Jul 25, 2003 #1 How can I put an sql statment in excel VBA. Any example will be appreciated. Thanks
S susie Jul 25, 2003 #2 With ThisWorkbook.Worksheets("Estimate").QueryTables.Add (Connection:= _ "ODBC;DRIVER=SQL Server;SERVER=servername;UID=yourloginid;APP=Microsoft® Query;WSID=servername;DATABASE=yourdatabasename;Trusted_Con nection=Yes" _ , Destination:=ThisWorkbook.Worksheets ("Estimate").Range("c7")) .CommandText = Array( _ "SELECT * FROM Quote") .Name = "Can be any name" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With
With ThisWorkbook.Worksheets("Estimate").QueryTables.Add (Connection:= _ "ODBC;DRIVER=SQL Server;SERVER=servername;UID=yourloginid;APP=Microsoft® Query;WSID=servername;DATABASE=yourdatabasename;Trusted_Con nection=Yes" _ , Destination:=ThisWorkbook.Worksheets ("Estimate").Range("c7")) .CommandText = Array( _ "SELECT * FROM Quote") .Name = "Can be any name" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With