Excel VBA質問箱 IV

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

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


54558 / 76736 ←次へ | 前へ→

【26966】ファイル操作
質問  ガッテンの助  - 05/7/25(月) 16:32 -

引用なし
パスワード
   テキストファイルをエクセルに展開するプログラムを作成することに成功したのですが、ユーザーフォームにリストボックス1・2で選択した名前のファイルを展開させるのに苦労しています。なにか良いアドバイスがありましたらよろしくお願いします。

<テキストファイルからの展開プログラム>
Private Sub CommandButton1_Click()
Dim myTxtFile As String
  Dim myBuf(11) As String
  Dim d As Integer, j As Integer
    
  Application.ScreenUpdating = False
  
  myTxtFile = ActiveWorkbook.Path & "\データ用\食品\日清製粉.txt"
  Worksheets("sheet2").Activate
  Open myTxtFile For Input As #1
  Do Until EOF(1)
    Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), _
       myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11)
  'データをセルに展開する
    d = d + 1
    For j = 1 To 11
      Cells(d, j) = myBuf(j)
    Next j
  Loop
  Close #1
End Sub

リストボックス1に業種名。例:食品
リストボックス2に企業名。例:日清製粉
リストボックスは連動しています。選択された業種によって表示される企業名が変わるようになっています。
上記のプログラムでは業種名:食品で企業名:日清製粉のデータがエクセルに展開されるようになっています。合計で100社ほどのデータがあるので、リストボックスでの選択によって<\データ用\食品\日清製粉.txt>の部分が変化できれるようにしたいのです。

0 hits

【26966】ファイル操作 ガッテンの助 05/7/25(月) 16:32 質問
【26974】Re:ファイル操作 ponpon 05/7/25(月) 19:26 発言
【27058】Re:ファイル操作 ガッテンの助 05/7/27(水) 13:17 発言
【27059】Re:ファイル操作 ガッテンの助 05/7/27(水) 14:15 お礼

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