投稿時間：2003/07/08(Tue) 17:15
投稿者名：tea
Ｅメール：
ＵＲＬ ：
タイトル：Re^2: ファイルの分割表示の質問
> ツッコミどころだらけなんでどこから突っ込んだら良いか悩みますねー（＾＾；
わかりずらくてすみません。
以下のようなコードを記述してみたんですが、1つのcsv
ファイルをMSFlexGrid2(0),(1)に分割して表示させよう
と思ったのですがうまく動作しない状況です。
よろしくお願いします。
Private Sub sFileOpen()
'データ読み込み表示処理'
Dim name As String '名前'
Dim Shot As String 'シュート回数'
Dim ThreePShot As String '３ポイントシュート成功回数'
Dim TwoPShot As String '２ポイントシュート成功回数'
Dim FreeThrow As String 'フリースロー成功回数'
Dim Soutokuten As String '総得点'
Dim Rebound As String 'リバウンド獲得回数'
Dim Assist As String 'アシスト成功回数'
Dim Steel As String 'スティール成功回数'
Dim BlockShot As String 'ブロックショット成功回数'
Dim Foul As String 'ファウル回数'
Dim DatN As Integer 'データのカウント'
Dim intFileNo As Integer 'ファイルナンバー'
DatN = 0
'キャンセルボタンが押されたらエラーとして通知'
CommonDialog1.CancelError = True
'エラーが起きたら最終行へ'
On Error GoTo Cancel_exit
'フィルターは「*.csv」'
CommonDialog1.Filter = "シート (*.csv)|*.csv"
'ダイアログボックスの形を決める'
CommonDialog1.Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or _
cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir
'ファイルを開くを表示'
CommonDialog1.ShowOpen
'ファイル名をfile_nameにセット'
file_name = CommonDialog1.FileName
With MSFlexGrid2(0)
.Visible = False '一旦非表示にする'
.FillStyle = flexFillRepeat
intFileNo = FreeFile
'シーケンシャル入力モードでfile_nameをオープンする'
Open file_name For Input As #intFileNo
Do Until EOF(intFileNo)
Input #intFileNo, name, Shot, ThreePShot, TwoPShot, FreeThrow, _
Soutokuten, Rebound, Assist, Steel, BlockShot, Foul
'読み込んだデータをセルに代入'
.Rows = DatN + 2
.Row = DatN + 1
.RowHeight(.Row) = 350
.Col = 0
.Text = Format$(DatN + 1, "##0")
.Col = 1
.Text = Format$(name, "####0")
.Col = 2
.Text = Format$(Shot, "####0")
.Col = 3
.Text = Format$(ThreePShot, "####0")
.Col = 4
.Text = Format$(TwoPShot, "####0")
.Col = 5
.Text = Format$(FreeThrow, "####0")
.Col = 6
.Text = Format$(Soutokuten, "####0")
.Col = 7
.Text = Format$(Rebound, "####0")
.Col = 8
.Text = Format$(Assist, "####0")
.Col = 9
.Text = Format$(Steel, "####0")
.Col = 10
.Text = Format$(BlockShot, "####0")
.Col = 11
.Text = Format$(Foul, "####0")
DatN = DatN + 1
Loop
Close #intFileNo
'カレントセルをホームポジションに'
.FillStyle = flexFillSingle
.Row = 1
.Col = 1
.Visible = True '再表示'
.SetFocus
End With
With MSFlexGrid2(1)
.Visible = False '一旦非表示にする'
.FillStyle = flexFillRepeat
intFileNo = FreeFile
'シーケンシャル入力モードでfile_nameをオープンする'
Open file_name For Input As #intFileNo
Do Until EOF(intFileNo)
Input #intFileNo, name, Shot, ThreePShot, TwoPShot, FreeThrow, _
Soutokuten, Rebound, Assist, Steel, BlockShot, Foul
'読み込んだデータをセルに代入'
.Rows = DatN + 2
.Row = DatN + 1
.RowHeight(.Row) = 350
.Col = 0
.Text = Format$(DatN + 1, "##0")
.Col = 1
.Text = Format$(name, "####0")
.Col = 2
.Text = Format$(Shot, "####0")
.Col = 3
.Text = Format$(ThreePShot, "####0")
.Col = 4
.Text = Format$(TwoPShot, "####0")
.Col = 5
.Text = Format$(FreeThrow, "####0")
.Col = 6
.Text = Format$(Soutokuten, "####0")
.Col = 7
.Text = Format$(Rebound, "####0")
.Col = 8
.Text = Format$(Assist, "####0")
.Col = 9
.Text = Format$(Steel, "####0")
.Col = 10
.Text = Format$(BlockShot, "####0")
.Col = 11
.Text = Format$(Foul, "####0")
DatN = DatN + 1
Loop
Close #intFileNo
'カレントセルをホームポジションに'
.FillStyle = flexFillSingle
.Row = 1
.Col = 1
.Visible = True '再表示'
.SetFocus
End With
'ファイル名を表示する'
frmGameStats.Caption = file_name
Exit Sub
'エラー処理'
Cancel_exit:
MsgBox Err.Description
End Sub
|