|
:Excel2000使用
・リストボックスの1行ごとにテーブル名とデー
タを入れていくときに
↓リストボックス内↓
--------------------------------------
List(0):XXXXXテーブル XXXXXデータ
List(1):XXXXXテーブル XXXXXデータ
List(2):XXXXXテーブル XXXXXデータ
List(3):XXXXXテーブル XXXXXデータ
List(4):XXXXXテーブル XXXXXデータ
--------------------------------------
このようにテーブル名とデータが揃うように入
れていき、リストボックスから選択したものを
エクセルに表示するようにしたいのですが、実
際にデータが入力されると
↓リストボックス内↓
--------------------------------------
あああテーブル XXXXXデータ
AAAテーブル XXXXXデータ
AAああテーブル XXXXXデータ
ああ_AAテーブル XXXXXデータ
あA_AAテーブル XXXXXデータ
--------------------------------------
半角や全角が入ったテーブル名があってきれい
に揃わずにうまくいきませんでした。
・はじめはテーブル名の最長のもののlengthを
求め、その長さから入力されるテーブル名の
lengthを引いた長さだけスペースを入れたりし
たのですが半角と全角の区別がつかずにダメで
した。
↓簡略ソースコード↓
Dim leng as integer
Dim spa as integer
'AAAはオブジェクト
Do Until AAA.EOF
If leng < LenB(AAA.Fields("TABLE_NAME").Value) Then leng = LenB(AAA.Fields("TABLE_NAME").Value)
AAA.MoveNext
Loop
AAA.MoveFirst
Do Until AAA.EOF
spa = 0
spa = leng - LenB(AAA.Fields("TABLE_NAME").Value)
Form1.List1.AddItem AAA.Fields("TABLE_NAME").Value & Space(spa) & AAA.Fields("TABLE_DATA").Value
AAA.MoveNext
Loop
・エクセルを使う前のところなのですが、なにか
良い方法があれば教えてください。
お願いします。
|
|