Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50358 / 76732 ←次へ | 前へ→

【31263】Re:ごめんなさい やっぱりダメでした
発言  ichinose  - 05/11/16(水) 0:46 -

引用なし
パスワード
   ▼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ファイルのようなテキストファイルにしたほうが
処理は速いですよ!!

0 hits

【31051】ランダムファイルからのコンボボックスへのアイテム追加 HANA 05/11/10(木) 9:55 質問
【31103】Re:ランダムファイルからのコンボボックス... Jaka 05/11/11(金) 16:34 発言
【31145】Re:ランダムファイルからのコンボボックス... HANA 05/11/12(土) 14:01 発言
【31146】Re:ランダムファイルからのコンボボックス... Kein 05/11/12(土) 14:45 発言
【31149】Re:ランダムファイルからのコンボボックス... よろずや 05/11/12(土) 17:03 発言
【31150】Re:ランダムファイルからのコンボボックス... ichinose 05/11/12(土) 17:34 発言
【31220】Re:ランダムファイルからのコンボボックス... HANA 05/11/15(火) 8:23 お礼
【31221】ごめんなさい やっぱりダメでした HANA 05/11/15(火) 9:03 質問
【31222】Re:ごめんなさい やっぱりダメでした ichinose 05/11/15(火) 9:34 発言
【31223】Re:ごめんなさい やっぱりダメでした HANA 05/11/15(火) 10:20 質問
【31263】Re:ごめんなさい やっぱりダメでした ichinose 05/11/16(水) 0:46 発言
【31264】大変勉強になりました HANA 05/11/16(水) 8:41 お礼

50358 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free