投稿日	： 2004/05/05(Wed) 21:37
投稿者	： 除菌ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: MSFlexGirdの保存について

とりあえず簡単なサンプルです。。

__________________________________________________________________________________
Private Sub Command1_Click()
Dim FileNum As Integer 'FreeFile番号
Dim Namae As String    '"名前"文字列格納
Dim kokugo As String    '"国語"文字列格納
Dim Hito As String      'A〜E格納
Dim Ten As String       '国語の点数格納
Dim i As Integer        'ROWの位置

i = 1
FileNum = FreeFile

With MSFlexGrid1
    .Row = 0
    .Col = 1
    Namae = .Text
    
    .Col = 2
    kokugo = .Text
    
    Open "C:\WINDOWS\デスクトップ\test.txt" For Output As #FileNum
        Print #FileNum, Namae, kokugo
        
        Do
            .Col = 1
            .Row = i
            Hito = .Text
            
            .Col = 2
            Ten = .Text
            
            Print #FileNum, Hito, Ten
            
            i = i + 1
        Loop While (i < .Rows)
            
    Close #FileNum
    
    
End With

    
End Sub
__________________________________________________________________________________
Private Sub Form_Load()
Dim i As Integer
Dim Namae As Variant
Dim NamaeBangou As Integer
Dim KokugoTen As Integer

NamaeBangou = 0
KokugoTen = 20

Namae = Array("A", "B", "C", "D", "E")

With MSFlexGrid1
    .Col = 1
    .Row = 0
    .Text = "名前"
    
    .Col = 2
    .Text = "国語"
    
'**********************************************
'**名前（A〜E）表示*****************************
    .Col = 1
    For i = 1 To 5
        .Row = i
        .Text = Namae(NamaeBangou)
        NamaeBangou = NamaeBangou + 1
        .Rows = .Rows + 1
    Next i
    
'**名前（A〜E）表示_END**************************
'***********************************************

'***********************************************
'**国語の点数表示********************************

    .Col = 2
    For i = 1 To 5
        .Row = i
        .Text = KokugoTen
        KokugoTen = KokugoTen + 20
    Next i
    
'**国語の点数表示_END****************************
'***********************************************

.Rows = .Rows - 1 '最後のROWが余分なので削除

'***********************************************
'**初期位置**************************************
.Col = 0
.Row = 0
'**初期位置_END**********************************
'************************************************
End With

End Sub
__________________________________________________________________________________


Open "C:\WINDOWS\デスクトップ\test.txt" For Output As #FileNum

はデスクトップに保存するようにしているのですが、
OSによって書き方が違うので注意です。
除菌ちゃんのPCのOSはWindowsMeなので↑の書き方でデスクトップのパスが出来ますが、
XPだとAllUserなんとかかんとかあったような気が・・・。

#上記コードをコピペして試してみて下さい。
#MSFlexGridのプロパティで「Cols」は２にして下さい。
#拡張子は.txtにしてますが、.csvに変えればCSVファイルで保存されます。

★ - 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