VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

MSFlexgridを使ってのCSVファイル読み書き色々(VB6.0)_2 ( No.2 ) 　[親スレッドへ]

日時： 2009/12/28 10:30
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[ファイル入出力][グリッド関係][]                                    *
* キーワード：CSV,MSHFlexgrid,,,,                                                 *
***********************************************************************************

元質問：MS(H)Flexgrid→CSVファイルへ出.. - さとり 2007/09/13-14:47 No.10187

-----------------------------------------------------------------------------------
Write # ステートメントを使った方法 - 花ちゃん 2007/09/14-14:26 No.10194
-----------------------------------------------------------------------------------

ついでにWrite # ステートメントを使った方法を投稿しておきます。

Private Sub Command2_Click()
'   On Error Resume Next
   Dim i         As Long
   Dim j         As Long
   Dim intFileNo As Integer
   Dim CellsData As Variant
   Dim n         As Integer
   Dim SaveCols  As Integer
   '保存する列数を事前に調べて置く
   For i = 0 To MSFlexGrid1.Cols - 1
      If MSFlexGrid1.ColWidth(j) > 30 Then
         SaveCols = SaveCols + 1
      End If
   Next i

   intFileNo = FreeFile
   Open "SaveTest.csv" For Output As #intFileNo
   With MSFlexGrid1
      For i = 0 To .Rows - 1
         n = 0
         For j = 0 To .Cols - 1
            If .ColWidth(j) > 30 Then
               CellsData = .TextMatrix(i, j)
               n = n + 1
               ' "" を付加する、しないはお好みで
               If i = 0 Or j = 1 Then
                  CellsData = CStr(CellsData)
               Else
                  CellsData = CSng(CellsData)
               End If
               If n = SaveCols Then
                  Write #intFileNo, CellsData   '行末のデータのみ
               Else
                  Write #intFileNo, CellsData,  'セルデータが続く場合
               End If
            End If
         Next j
      Next i
   End With
   Close #intFileNo
   MsgBox "保存しました"
End Sub