Overwrite:=True)'2行目から開始GYO =2'最終行まで繰り返すDoUntilGYO >GYOMAX'レコードを出力(REC編集処理より受け取る)TS.WriteLine FP_EDIT_FixLngRec(GYO)'改行(CrLf)付き'TS.Write FP_EDIT_FixLngRec(GYO) ' 改行(CrLf)なし'行を加算GYO = GYO +1Loop'指定ファイルをCLOSETS.CloseSetTS =...
= adCrlf ' 改行をここで切り替える .Charset= "Shift-JIS" ' 文字コードを切り替える .Write buf, adWriteChar ' 11/28追加 '// 保存 '.Position = 0 ' 11/28無効化 ' Debug.Print .ReadText(adReadAll) .SaveToFilea_sTo, adSaveCreateOverWrite) Call GarbageADODB End With End Sub ...