Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42503 / 76732 ←次へ | 前へ→

【39297】Re:固定長ファイルの作成
回答  質問  - 06/6/21(水) 17:11 -

引用なし
パスワード
   1    999G123456789 

A1=1
A2=999G
A3=123456789
と指定してみましたが、1個目のデータが中途半端になります。
何か誤りありますか?


'*------------------------------------------------*
'* TXT形式変換サンプル            *
'*------------------------------------------------*
Type recFormat
  f1 As String * 10
  f2 As String * 4
  f3 As String * 12

End Type

Sub test()
  Dim rFormat As recFormat
  Dim fN   As Integer
  Dim myPath As String
  Dim mArray
  Dim i   As Integer   '整数型

 
  fN = FreeFile
  myPath = ThisWorkbook.Path
  Open myPath & "\デガサンヨウ.dat" For Binary As #fN
 
  mArray = Range("A1").CurrentRegion.Value
 
  For i = 1 To UBound(mArray, 1)
    rFormat.f1 = Format(Trim(mArray(i, 1)), "@@")
    rFormat.f2 = Format(Trim(mArray(i, 2)), "@@")
    rFormat.f3 = Format(Trim(mArray(i, 3)), "@@")

    Put #fN, , rFormat
    Put #fN, , vbCrLf
  Next
  Close #fN
End Sub

2 hits

【39290】固定長ファイルの作成 質問 06/6/21(水) 16:07 質問
【39292】Re:固定長ファイルの作成 ハト 06/6/21(水) 16:30 回答
【39297】Re:固定長ファイルの作成 質問 06/6/21(水) 17:11 回答
【39298】Re:固定長ファイルの作成 ハト 06/6/21(水) 17:20 発言
【39300】Re:固定長ファイルの作成 質問 06/6/21(水) 17:52 お礼
【39293】Re:固定長ファイルの作成 ichinose 06/6/21(水) 16:49 発言
【39299】Re:固定長ファイルの作成 質問 06/6/21(水) 17:51 お礼

42503 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free