Excel VBA質問箱 IV

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

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


9489 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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>の部分が変化できれるようにしたいのです。

【26974】Re:ファイル操作
発言  ponpon  - 05/7/25(月) 19:26 -

引用なし
パスワード
   こんばんは。

>myTxtFile = ActiveWorkbook.Path & "\データ用\食品\日清製粉.txt"



myTxtFile = ActiveWorkbook.Path & "\データ用\" & ListBox1.text & "\" _
      & ListBox2.text & ".txt"

では、いかがでしょう?

【27058】Re:ファイル操作
発言  ガッテンの助  - 05/7/27(水) 13:17 -

引用なし
パスワード
   ▼ponpon さん:
>こんばんは。
>
>>myTxtFile = ActiveWorkbook.Path & "\データ用\食品\日清製粉.txt"
>
>を
>
>myTxtFile = ActiveWorkbook.Path & "\データ用\" & ListBox1.text & "\" _
>      & ListBox2.text & ".txt"
>
>では、いかがでしょう?

こんにちは!!
 即日の返答ありがとうございました。
 試してみましたが、いまだに解決いたしません。
 <オブジェクトが必要です>というエラーメッセージなのですが・・・
 かなりの時間を割いてがんばっていますが、自力では限界を感じています。
 妙案がありましたらよろしくお願いします。
 
 

【27059】Re:ファイル操作
お礼  ガッテンの助  - 05/7/27(水) 14:15 -

引用なし
パスワード
   ▼ガッテンの助 さん:
>▼ponpon さん:
>>こんばんは。
>>
>>>myTxtFile = ActiveWorkbook.Path & "\データ用\食品\日清製粉.txt"
>>
>>を
>>
>>myTxtFile = ActiveWorkbook.Path & "\データ用\" & ListBox1.text & "\" _
>>      & ListBox2.text & ".txt"
>>
>>では、いかがでしょう?
>
>こんにちは!!
> 即日の返答ありがとうございました。
> 試してみましたが、いまだに解決いたしません。
> <オブジェクトが必要です>というエラーメッセージなのですが・・・
> かなりの時間を割いてがんばっていますが、自力では限界を感じています。
> 妙案がありましたらよろしくお願いします。
> 
> 
大変ご迷惑をおかけしましたが、無事に解決いたしました!!
ponpon さんの方法でOKでした。自分でリストボックスのオブジェクト名を変更していたのを忘れてました。本当にありがとうございました!!!

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