sql = "select a,b,c from tblname where d = 100;" Set cmdobj = New ADODB.Command cmdobj.ActiveConnection = varcnn cmdobj.CommandText = sql Set rs = cmdobj.Execute(sql) For i = 0 To rs.Fields.Count - 1 Sheet2.Cells(r, i + 1) = rs.Fields(i).Value Sheet2.Cells(r, i + 1).Interior.ColorIndex = 36 Sheet2.Cells(r, i + 1).Borders.Value = 1 Next i
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)