投稿日 | : 2003/07/08(Tue) 15:47 |
投稿者 | : tea |
Eメール | : |
URL | : |
タイトル | : ファイルの分割表示の質問 |
10行11列のcsvファイルを1から5行目までと
6行目から10行目までの2つにわけてMSFlexGrid2
の(0).(1)に表示したくて下記のようにコードを記述
してみたのですが駄目でした。
教えていただけないでしょうか?
Private Sub sFileOpen()
Dim DatN As Integer 'データのカウント'
Dim intFileNo As Integer 'ファイルナンバー'
Dim i As Integer
Dim j As Integer
DatN = 0
.
.
With MSFlexGrid2(0)
'読み込んだデータをセルに代入'
.Rows = DatN + 2
For i = 1 To 5
.Row = (i)
Next i
.RowHeight(.Row) = 350
.Col = 0
.Text = Format$(DatN + 1, "##0")
.Col = 1
.Text = Format$(name, "####0")
.
.
.
DatN = DatN + 1
Close #intFileNo
End With