| Dim i,strData
' テーブルエレメントの開始
strData = strData & "<TABLE><TBODY>"
' タイトルデータ
strData = strData & "<TR>" ' この行は省略可
strData = strData & "<TH>"
strData = strData & "A"
strData = strData & "</TH>"
strData = strData & "<TH>"
strData = strData & "B"
strData = strData & "</TH>"
strData = strData & "</TR>" ' この行は省略可
For i = 1 to 10
' 行データ
strData = strData & "<TR>"
strData = strData & "<TD>"
strData = strData & "A"
strData = strData & "</TD>"
strData = strData & "<TD>"
strData = strData & "B"
strData = strData & "</TD>"
strData = strData & "</TR>"
Next
strData = strData & "</TBODY></TABLE>"
| |