ここから本文です

エクセルで例えば、A1のセルに9028と入力したら その下のセルに以下の内容の...

tan********さん

2006/8/821:12:37

エクセルで例えば、A1のセルに9028と入力したら
その下のセルに以下の内容のデータを表示させたいのです。
あるフォルダにたくさんのCVSファイルがあって、その中のファイル名が9028の中のA2からF100までを選択して表示させるようにしたいんですが、どうすれば
その命令を出せるのでしょうか。
1枚のシートにデータ全部あればであれば、VLOOKでいいんですが・・・
日本語おかしいかも知れませんが宜しくお願いします。
マクロでも構いません。

閲覧数:
372
回答数:
1

違反報告

ベストアンサーに選ばれた回答

アバター

ID非公開さん

編集あり2006/8/822:34:34

えっと質問のCVSファイルというのはCSVファイルの事だと思いますので、そのつもりで回答します。
でそのファイルのA2からF100というのは・・・。
2行目から100行目の頭6項目というようなことなんでしょうか。
一例としては

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFileName As String
Dim intFileNumber As Integer
Dim S As String
Dim I As Integer
Dim varData(1 To 6) As Variant
Application.EnableEvents = False
If Target.Address = "$A$1" Then
strFileName = Range("A1").Text + ".CSV"
intFileNumber = FreeFile
Open strFileName For Input As #intFileNumber
Line Input #intFileNumber, S
For I = 2 To 100
If EOF(intFileNumber) Then Exit For
Input #intFileNumber, varData(1), varData(2), varData(3), varData(4), varData(5), varData(6)
Range(Cells(I, 1), Cells(I, 6)) = varData
Next I
Close #intFileNumber
End If
Application.EnableEvents = True
End Sub


てなかんじで。

質問した人からのコメント

2006/8/10 17:26:41

難しいなー。コピーして貼り付けたけど。
どこを自分用に修正したらいいかわからなかった。
ありがとう。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる