MSFlexGridの問題とファイルの読み込み問題です (ID:121807)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちわ。 MSflexGridをコントロールバーに追加して、Excelのような表を作りました。 Private Sub MSFlexGrid1_GotFocus() MSFlexGrid1.Row = 0: MSFlexGrid1.Text = "日付" MSFlexGrid1.Col = 1: MSFlexGrid1.Text = "曜日" MSFlexGrid1.Col = 2: MSFlexGrid1.Text = "出勤時間" MSFlexGrid1.Col = 3: MSFlexGrid1.Text = "退勤時間" MSFlexGrid1.Col = 4: MSFlexGrid1.Text = "休憩時間" MSFlexGrid1.Col = 5: MSFlexGrid1.Text = "実労働時間" MSFlexGrid1.Col = 6: MSFlexGrid1.Text = "備考" End Sub 実行してみましたら、問題なく動作しました。 それから、メモ帳でDateファイルを作りました。以下になります。 1,月,9,18,1,8,VBの勉強 ↓ ↓ 31,月,9,18,1,8,VCの勉強 で、Microsoft Common Dialog Controlを追加して、ボタンを一つフォームに追加します。 Private Sub Command1_Click() '***** 配列の宣言 ***** Dim num(30), x(30), y(30) '***** データファイル名の取得 ***** With CommonDialog1 .filename = "" .Filter = "Data(*.dat)|*.dat" .ShowOpen End With '**** データファイルの読み込み ***** If CommonDialog1.filename <> "" Then Open CommonDialog1.filename For Input As #1 n = 0 Do Until EOF(1) n = n + 1 Input #1, num(n), x(n), y(n) Loop Else MsgBox "キャンセルされました。", , "メッセージ" End If '***** データの計算と表への出力 With MSFlexGrid1 '***** 項目の表示 ***** .Row = 0: . Text = "日付" .Col = 1: .Text = "曜日" .Col = 2: .Text = "出勤時間" .Col = 3: .Text = "退勤時間" .Col = 4: .Text = "休憩時間" .Col = 5: .Text = "実労働時間" .Col = 6: .Text = "備考" '***** 項目と計算結果の表示 ***** For i = 1 To n .Row = i .Col = 0: .Text = 日付(i) .Col = 1: .Text = 曜日(i) .Col = 2: .Text = 出勤時間(i) .Col = 3: .Text = 退勤時間(i) .Col = 4: .Text = 休憩時間(i) .Col = 5: .Text = 実労働時間(i) .Col = 6: .Text = 備考(i) Next i End With End Sub 質問１： Dataファイルを読み込んでから、エラーが出ました。 「ＩＮＤＥＸ有効範囲にはありません」、Input #1, num(n), x(n), y(n)の行にエラーが出ていました。どうすればいいでしょうか。 質問２： ほかの間違っているところもあると思いますが、MSflexGrid.textに表示したいんです。どうすればいいでしょうか。 環境はＸＰ、ＶＢ６．０です。 ご回答をお待ちしております。