tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
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



 [スレッド一覧へ] [親スレッドへ]