0800名無しさん@そうだ選挙にいこう
2018/10/28(日) 22:48:30.75Sub TEMP()
Dim TBL As ListObject
Dim RowClient As ListRow
Set TBL = Worksheets("Sheet1").ListObjects("Table1")
Open "D:\TEMP.CSV" For Output As #1
Print #1, TBL.HeaderRowRange(3) & "," & TBL.HeaderRowRange(5)
For Each RowClient In TBL.ListRows
Print #1, RowClient.Range(3) & "," & RowClient.Range(5)
Next
Close #1
End Sub