2021-05-26 vba:SQLの結果をExcelに出力 SSMSの結果と同じ Range("B1").CopyFromRecordset Data:=rs 縦横入れ替え Range("B1:F2").Value = rs.GetRows