> （エクスポート）方法が分かりません。
んーん、ここでいう「エクスポート」って
どういうのをさしているのかちょっとわかりませんね。
１．Excelをオブジェクトとして直接Excelに吐き出す
２．Excelで読めるファイルに吐き出す
んー、どっちかなぁ〜。
まぁ、いずれも１セルずつの処理だと思いますよ。
Private Sub Command1_Click()
Dim I As Long
Dim J As Long
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
objExcel.Visible = True
objExcel.Workbooks.Add
With MSFlexGrid1
For I = 1 To 4
For J = 1 To 4
.Col = I
.Row = J
objExcel.ActiveSheet.Cells(I, J).Value = .Text
Next
Next
End With
End Sub
Private Sub Form_Load()
Dim I As Long
Dim J As Long
With MSFlexGrid1
For I = 1 To 4
For J = 1 To 4
.Col = I
.Row = J
.Text = I * J
Next
Next
End With
End Sub
１の場合はこんな感じですね。
２の場合はCSVでファイルに書き出せばいいんじゃないでしょうか。
|