|
初めまして。Tetsuoと申します。
現在作成しているツールで、GetOpenFilenameを使い、複数のcsvファイルを選択した後に、Cells(1, 1)にそのファイルパスを一覧で表示したいのですが上手くいきません。
詳細を以下に書きます。
Sub FileOpen()
Dim MyF As Variant
With Application
MyF = .GetOpenFilename("CSVファィル(*.csv),*.csv", , , , True)
End With
End Sub
以上のコードを実行し、C:\に入っている aaa.csv と bbb.csv を選択したとします。
そして、Cells(1, 1)にそのファイルパスを、
-------------------
| C:\aaa.csvC:\bbb.csv |
-------------------
では無く、
-----------
| C:\aaa.csv |
| C:\bbb.csv |
-----------
と表示させようとするのですが、上手くいきません。
Variantに格納されている、配列を上記のように表示するのは不可能なのでしょうか?
初歩的な質問で申し訳ないのですが、どなたか回答の方よろしくお願いいたします。
|
|