|
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「改行」としたい。
|
|