投稿時間：2003/07/07(Mon) 16:23
投稿者名：tea
Ｅメール：
ＵＲＬ ：
タイトル：Re^2: MSFlexGridについての質問です。
> ．．．．それとも質問の意味が違うのかな？
いいえ、その通りです。
NOBUさん、ありがとうございます。
以下のようにコードを記述してみたんですが、ファイルに名前を付
けて保存してみると「ファイル名が不正です。」とエラーが出て、
その時フォームのMSFlexGrid2(0)と(1)のうち2(0)が消えている状態
です。
どこがおかしいのか教えてください。
よろしくお願いします。
Private Sub sFileSave_Name()
'データの名前を付けて保存処理'
Dim lngCountl As Long 'ループのカウンタ'
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 intFileNoA As Integer 'ファイルナンバーA'
Dim intFileNoB As Integer 'ファイルナンバーB'
Dim int
FileNoC As Integer 'ファイルナンバーC'
'キャンセルボタンが押されたらエラーとして通知する'
CommonDialog1.CancelError = True
'エラーの場合の飛び先指定'
On Error GoTo exit_error
'ダイアログボックスの形を決める'
CommonDialog1.Filter = "シート (*.csv)|*.csv"
CommonDialog1.Flags = cdlOFNExplorer Or cdlOFNLongNames Or _
cdlOFNNoChangeDir Or cdlOFNOverwritePrompt
'「名前を付けて保存」ダイアログボックスを表示'
CommonDialog1.ShowSave
'ファイル名をグローバル変数にセット'
file_name = CommonDialog1.FileName
'拡張子部分を取り外す'
If Right(file_name, 4) = ".csv" Then
file_name = Left(file_name, Len(file_name) - 4)
End If
'拡張子*.csvを付ける'
file_name = file_name & ".csv"
intFileNoA = FreeFile
Open file_name For Output As #intFileNoA
With MSFlexGrid2(0)
'一旦非表示にする'
.Visible = False
'現在の状態を再読み込み'
For lngCountl = 1 To .Rows - 1
.Row = lngCountl
.Col = 1
name = .Text
.Col = 2
Shot = .Text
.Col = 3
ThreePShot = .Text
.Col = 4
TwoPShot = .Text
.Col = 5
FreeThrow = .Text
.Col = 6
Soutokuten = .Text
.Col = 7
Rebound = .Text
.Col = 8
Assist = .Text
.Col = 9
Steel = .Text
.Col = 10
BlockShot = .Text
.Col = 11
Foul = .Text
Write #intFileNoC, name, Shot, ThreePShot, TwoPShot, FreeThrow, _
Soutokuten, Rebound, Assist, Steel, Foul
Next lngCountl
'カレントセルを反転表示に戻す'
.Visible = True
.Row = 1
.Col = 1
.TopRow = 1
.SetFocus
intFileNoB = FreeFile
Open file_name For Output As #intFileNoB
End With
With MSFlexGrid2(1)
'一旦非表示にする'
.Visible = False
'現在の状態を再読み込み'
For lngCountl = 1 To .Rows - 1
.Row = lngCountl
.Col = 1
name = .Text
.Col = 2
Shot = .Text
.Col = 3
ThreePShot = .Text
.Col = 4
TwoPShot = .Text
.Col = 5
FreeThrow = .Text
.Col = 6
Soutokuten = .Text
.Col = 7
Rebound = .Text
.Col = 8
Assist = .Text
.Col = 9
Steel = .Text
.Col = 10
BlockShot = .Text
.Col = 11
Foul = .Text
Write #intFileNoC, name, Shot, ThreePShot, TwoPShot, FreeThrow, _
Soutokuten, Rebound, Assist, Steel, Foul
Next lngCountl
Close #intFileNoC
'カレントセルを反転表示に戻す'
.Visible = True
.Row = 1
.Col = 1
.TopRow = 1
.SetFocus
End With
'ラベル：終了処理'
exit_syori:
'フォームに名前を付ける'
frmGameStats.Caption = file_name
Exit Sub
'エラー処理'
exit_error:
'メッセージボックスを表示'
MsgBox Err.Description
Resume exit_syori
End Sub
|