投稿日	： 2004/05/05(Wed) 17:28
投稿者	： 初心者です。
Ｅメール	：
ＵＲＬ	：
タイトル	： MSFlexGirdの保存について

ほかに新たに保存をしようと思い、このサイトの
サンプルを参考にいろいろしてみたのですが、
保存できません。
氏名    国語    算数    理科    社会
Ａ君    85    89    54    65
Ｂ君    98    95    85    70
Ｃさん    45    35    55    75
Ｄさん    65    75    75    55
Ｅ君    30    20    15    10
表は上記のようなもので、コードは下記になります。
Private Sub Command3_Click()
    Dim lngCountI As Long       'ループのカウンタ
    Dim FileNo As Integer
    Dim name      As String     '名前
    Dim kokugo    As Single     '国語の点数
    Dim sansuu    As Single     '算数の点数
    Dim rika      As Single     '理科の点数
    Dim syakai    As Single

    Dim kokugo_    As String '科目名
    Dim sansuu_    As String
    Dim rika_      As String
    Dim syakai_    As String
    Dim name_      As String
    


With MSFlexGrid1

            .Row = 0
            .Col = 0
            .Text = name_
            .Col = 1
            .Text = kokugo_

            .Row = 0
            .Col = 0
            .Text = name_
            .Col = 2
            .Text = sansuu_

            .Row = 0
            .Col = 0
            .Text = name_
            .Col = 3
            .Text = rika_
  
            .Row = 0
            .Col = 0
            .Text = name_
            .Col = 4
            .Text = syakai_
        
            .Row = 0
            .Col = 0
            .Text = name
            .Col = 0
            .Text = name
  
            
    FileNo = FreeFile
    Open "Seiseki.csv" For Output As #FileNo
    
    
        For lngCountI = 1 To .Rows - 1
    
            .Row = lngCountI
            .Col = 0
            name = .Text
            .Col = 1
            kokugo = .Text
            .Col = 2
            sansuu = .Text
            .Col = 3
            rika = .Text
            .Col = 4
            syakai = .Text
            
    
            Write #FileNo, name, kokugo, sansuu, rika, syakai


    Next lngCountI
    Close #FileNo
End With

End Sub
氏名、科目名、各教科の点数を保存したいのです。
どこを訂正すればよいのかご意見をお聞かせ願えたら幸いです。
よろしくお願い致します。

★ - MSFlexGridの使い方で…。 - 初心者です。 04/30-01:28No.8818
• Re: MSFlexGridの使い方で…。 - nobu 04/30-05:51 No.8819
  • Re^2: MSFlexGridの使い方で…。 - 初心者です。 04/30-10:06 No.8821
• Re: MSFlexGridの使い方で…。 - 除菌ちゃん 04/30-13:06 No.8823
  • Re^2: MSFlexGridの使い方で…。 - 初心者です。 05/01-15:20 No.8829
    • Re^3: MSFlexGridの使い方で…。 - 除菌ちゃん 05/02-01:02 No.8831
    • Re^3: MSFlexGridの使い方で…。 - nobu 05/02-09:42 No.8832
      • ありがとうございます。 - 初心者です。 05/02-18:53 No.8834
        • MSFlexGirdの保存について - 初心者です。 05/05-17:28 No.8842
          • Re: MSFlexGirdの保存について - nobu 05/05-20:05 No.8843
          • Re: MSFlexGirdの保存について - 除菌ちゃん 05/05-21:37 No.8844
          • 投稿されたコードで保存できていますよ - 花ちゃん 05/05-22:34 No.8845
          • 解決しました。 - 初心者 05/11-16:52 No.8929