Access VBA .xlsxの数値を全角に変換して取り込み

Question

.xlsxファイルの数値を全角に変換してインポート

  'ショップマスタテーブルを開く
  Set db = CurrentDb()
  Set rs = CurrentDb.OpenRecordset("T99_社員マスタ", dbOpenTable)
  ReDim vArray(rs.RecordCount - 1, 2)
  i = 0
  '最後のレコードまで繰り返す
  Do Until rs.EOF
    rs(0) = A
    rs(1) = B
    rs(3) = A
    '次のレコードに移動する
    rs.MoveNext
  Loop

Aのところは、入室番号フィールド、内線番号フィールドの数字を全角に変換してインポートする
Bのところは、社員番号フィールドの数値を頭に全角の0を付け4ケタ数値にしてインポートする
A、Bに記述するコートは何になりますでしょうか？

Comments

[sazi]

rsは「T99_社員マスタ」でそこに代入ですか？
AとかBはどこから持ってくるんでしょう？

[Yoshikun_0945]

AとBはT99_社員マスタのフィールドを指定したいです。

[sazi]

じゃあ、それを何という入れ物に入れたいのですか？

[Yoshikun_0945]

T99_社員マスタの上記の各フィールドの値を全角に変換して、T99_社員マスタの各フィールドに出力するという流れです。

Answer 1

表形式フォーム等で全角変換する形で対応することとしました。