|
テキストファイルをエクセルに展開するプログラムを作成することに成功したのですが、ユーザーフォームにリストボックス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>の部分が変化できれるようにしたいのです。
|
|