Excel VBA質問箱 IV

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

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


42508 / 76732 ←次へ | 前へ→

【39290】固定長ファイルの作成
質問  質問  - 06/6/21(水) 16:07 -

引用なし
パスワード
   EXCELにて、CSVファイルを読み込み固定長ファイルに変換したいのですが
うまく行かないので教えて下さい。

色々捜して、変換する処理はできたのですが
下の例では前詰めになります。
後ろ詰めにするやり方を教えてください。

'*------------------------------------------------*
'* TXT形式変換サンプル            *
'*------------------------------------------------*
Type recFormat
  f1 As String * 2
  f2 As String * 2
  f3 As String * 2
 
End Type

Sub test()
  Dim rFormat As recFormat
  Dim fN   As Integer
  Dim myPath As String
  Dim mArray
  Dim i    As Long
  
  fN = FreeFile
  myPath = ThisWorkbook.Path
  Open myPath & "\AAAAAA.dat" For Binary As #fN
  
  mArray = Range("A1").CurrentRegion.Value
  
  For i = 1 To UBound(mArray, 1)
    rFormat.f1 = LEN(mArray(i,  1))
    rFormat.f2 = mArray(i,  2)
    rFormat.f3 = mArray(i,  3)
   
    Put #fN, , rFormat
    Put #fN, , vbCrLf
  Next
  Close #fN
End Sub

画面から
A1,A2,A3を
1,2,3と指定すると
1△2△3△「改行」となるが△1△2△3「改行」としたい。
1 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 お礼

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