Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54554 / 76732

←次へ　｜　前へ→


	【26966】ファイル操作

ガッテンの助 - 05/7/25(月) 16:32 -


	引用なし

	パスワード

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

＜テキストファイルからの展開プログラム＞
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

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

0 hits

▼

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

≪