Excel VBA 固定長のテキストの作成方法

質問

Excel2003のデータを固定長のテキストに書き出す方法について
質問させてください。

■仕様：
Ａ列・・・文字列データ（１バイト文字 最大４桁、それ未満のデータあり）
Ｂ列・・・数字データ（１バイト文字 最大６桁、それ未満のデータあり）

Ａ列の値が最大桁数に満たない場合、右側に空白を挿入し４桁とする
Ｂ列の値が最大桁数に満たない場合、左側にゼロを挿入し６桁とする

Ａ・Ｂ列合わせて、１件１０バイトで改行するテキストデータを作成したい
と考えています。

■補足：
Ｂ列の下２桁は小数点以下であり、Excelの書式設定で"ユーザー定義"
の"種類"に"0000.00"と設定されている。テキスト生成時には、この小数
点を消したい（123.45 → 012345）

■その他仕様
・Excelのデータ件数は毎回変化
・上記の内容をＣドライブ中の特定のフォルダに書き込み
・テキストデータのファイル名は固定

３冊ほど本を見てみたのですが、固定長出力の記述が無く、また
ネット上のお手本を元に作成したものは、Ａ・Ｂ間に無用のブラ
ンクが挿入されたり、桁数がバラつき、１０バイト固定長になら
ずに困っております。

■追記
上記、”補足”の箇所は、計算用の列を挿入して、そこで100倍した
値を使ってはどうかと思うのですが、より洗練された方法があれば知
りたいと思いました。

回答No.1

hogya

Excelの書式設定はValueプロパティで取得すれば、値で取得できるので関係ないですよ。

Dim dataA As Variant
Dim dataB As Variant
Dim A As String * 4
Dim B As String * 6

dataA = Worksheets("Sheet1").Cells(1, 1).Value

dataB = Worksheets("Sheet1").Cells(1, 2).Value

A = dataA

B = Format(dataB * 100, "000000")

とりあえず、Ａ列のデータに関しては固定長の文字列型に突っ込むだけではだめなのでしょうか。

＞そこで100倍した 値を使ってはどうかと思うのですが

小数点の桁位置が決まっているのであればその方法でもよいと思いますよ。

お礼

御礼が遅くなり申し訳ありません。
お蔭様で大変助かりました。