|
▼HANA さん:
こんばんは。
>Sub READ_DB1()
>Worksheets("工番").OLEObjects("ComboBox1") _
.object.Clear 'これを入れる仕様が本来のものなのか?が不明ですが・・。
'付けた時とはずしたときで試して下さい
>'れです。
>'このコマンドをサポートしていませんのエラー
>intFF = FreeFile
>i = 1
> Open PA For Random As intFF Len = Len(TDB2)
> maxR = LOF(intFF) / Len(TDB2)
>Do While maxR + 1 > i
> Get #intFF, i, TDB2
if trim(TDB2.削除FLG) <> "" Then
'↑Trim関数を使わないで削除の判断ができますか?
> With Worksheets("工番").OLEObjects("ComboBox1").Object
> .AddItem TDB2.工事番号
.List(.listcount - 1, 1) = TDB2.工番2
> End With
> End If
> i = i + 1
>Loop
>Close #intFF
>End Sub
これで確認してみて下さい。
ところで・・・。
Public Type DB1
の構成を見ると、全部文字列型ですよね?
何のためのランダムファイルなんですか?
データ保護ですか?
でも、中身が文字列では、見当はつけ易いよね?
これ、ランダムファイルで回すより、
単純にCSVファイルのようなテキストファイルにしたほうが
処理は速いですよ!!
|
|