フレキシブルグリッドコントロールを使用するのなら、付けておいてもよろしいんじゃぁないかな。
' ------------------------------------------------------------------- ' 関数名 : ConvertToCSV ' 機能 : グリッドのデータをCSVファイルに保存する ' 引数 : (in) srcFlexGridControl … フレキシブルグリッドコントロール ' (in) CSVFileName … CSVファイルのフルパス ' (in) MaxRow … フレキシブルグリッドの最大行数 ' (in) MaxCol … フレキシブルグリッドの最大列数 ' (in) StartPosOfRow … 行の書き込み位置 ' (in) StartPosOfCol … 列の書き込み位置 ' 返り値 : なし ' ------------------------------------------------------------------- Public Sub ConvertToCSV(ByVal srcFlexGridControl As MSFlexGrid, _ ByVal CSVFileName As String, _ ByVal MaxRow As Integer, _ ByVal MaxCol As Integer, _ Optional ByValStartPosOfRow As Integer = 0, _ Optional ByVal StartPosOfCol As Integer = 0)
Dim i As Integer, j As Integer
On Error GoTo ErrHandler
'ファイルナンバー取得
Open CSVFileName For Output As FreeFile
With srcFlexGridControl
'高速化を図るため不可視にする
'行
'列
'最後のカラムには改行コード、それ意外はカンマをつける
Next i
'グリッドを可視にする
'ファイルはきちんと閉じなきゃね!!
ConvertToCSV_Exit:
ErrHandler:
Call MsgBox("エラーNo." & Err.Number & vbCrLf & vbCrLf & _
End Sub |