Null混在したFileをVBAでEXCEL出力したい

Question

Null混在したFileをVBAでEXCEL出力したい

700byte固定長のファイルをExcelに項目毎に区切っで出力したいです。
区切り文字はないので各項目の項目長から判断して出力しています。
ある特定の項目にNullが混在する場合があります。

その場合、MID関数で取得する場合Null分が詰まってしまいます。

Nullを変換する方法、Nullを飛ばす等方法があれば御指南ください。

入力ファイルは大量件数かつ複数ファイルあるため、バイナリエディタ等で個別に置換するは現実的ではありません。

Comments

[Zuishin]

どのフィールドが null なのかがどこかに記録されているはずなので、それを見つけてください。

[mattuwan]

Excelのテキストファイルのインポートの機能は試して見られました？
それで上手くいくなら、マクロの記録でコードに翻訳してみて、
その作業を次々と行うよう作業の自動化（≒マクロ化）すればよいかと思います。

Answer 1

固定長なら構造体で文字数きめ打ちで読み込めます。

Type tes1 '計１９バイト
Id As String * 2
moji1 As String * 5
moji2 As String * 5
moji3 As String * 5
cr As String * 2
End Type

Sub tes01()
  Dim buf As tes1
   Open "D:\tes\tes.txt" For Random As #1 Len = 19
    Do While Not EOF(1)
    　Get #1, , buf
    　Debug.Print buf.Id, buf.moji2, buf.moji3
    Loop
   Close #1
End Sub

テストデータ

Answer 2

検討違いでしたら申し訳けありません。こちら参考になりませんでしょうか。

Sub Test_Sample_Miniature()
    Dim Target As Variant
    'Null値セット
    Target = String(5, Chr(0)) & "TEST" & String(5, Chr(0))
    'Null値Replace
    Target = Replace(Target, String(1, Chr(0)), " ")
    'MID関数
    Target = Mid(Target, 1, 14)
End Su