VBAヘッダーのないSQLテーブルをコピー

Question

SQlサーバーからExcelにデータをコピーしようとしていますが、ヘッダーにインクルードされています。ヘッダーのない結果が欲しい。ここに私のコード：

ConnectionString = "Provider=SQLOLEDB;SERVER=DWSQL\User;Database=User;Uid=User;Pwd=User;" 
If Sheets("Menu").Cells(4, 4) = "SC" Then 
    SQL = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '2' and process = 'ASSEMBLY' and status = 'NEW'" 
ElseIf Sheets("Menu").Cells(4, 4) = "MC" Then 
    SQL = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '3' and process = 'ASSEMBLY' and status = 'NEW'" 'and startby is Null" 
ElseIf Sheets("Menu").Cells(4, 4) = "EV" Then 
    SQL = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '5' and process = 'ASSEMBLY' and status = 'NEW' and pos_no like 'EN5%'" 
End If 

Connection.Open ConnectionString 
rs.Open SQL, Connection, adOpenStatic, adLockReadOnly 

Set QT = ActiveSheet.QueryTables.Add(rs, Sheets("Data").Cells(1, 2)) 
QT.Refresh: rs.Close: QT.Delete: Connection.Close 

ありがとう。

Answer 1

CopyFromRecordsetを使用してください！

ConnectionString = "Provider=SQLOLEDB;SERVER=DWSQL\User;Database=User;Uid=User;Pwd=User;" 
If Sheets("Menu").Cells(4, 4) = "SC" Then 
    Sql = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '2' and process = 'ASSEMBLY' and status = 'NEW'" 
ElseIf Sheets("Menu").Cells(4, 4) = "MC" Then 
    Sql = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '3' and process = 'ASSEMBLY' and status = 'NEW'" 'and startby is Null" 
ElseIf Sheets("Menu").Cells(4, 4) = "EV" Then 
    Sql = "SELECT * FROM [MVS].[dbo].[trpos_process] where fc = '5' and process = 'ASSEMBLY' and status = 'NEW' and pos_no like 'EN5%'" 
End If 

Connection.Open ConnectionString 
rs.Open Sql, Connection, adOpenStatic, adLockReadOnly 

Range("b2").CopyFromRecordset rs 
    rs.Close: QT.Delete: Connection.Close