ファイル名の指定 エラーNameError: name 'filenameaaa' is not defined

Question

お世話になります。
csvのファイル名を呼び出す毎に変更したいです。
csvname に格納しようとしましたが

Comments

[m.ts10806]

タイトルには要件を書いて下さい。 https://teratail.com/help/question-tips#questionTips3-1 タイトルから質問内容が想像できないもの、タイトルと質問内容が食い違っているものはスムーズな回答を得られなくなります。

[m.ts10806]

調べてみたこと、やってみたこと（そのソースコード）を具体的に追記してください。また参考先サイトがあればURLも質問に追記してください。既に見た先が回答についてしまうと無駄なやり取りが発生しますし、もしかしたら参考記事の理解が間違っているために解決に至れていないのかもしれません。https://teratail.com/help/question-tips#questionTips1-2

[sazi]

ファイル選択ボタンのコントロールの種類を明記して下さい。そのコントロールから取得することになると思いますので、それがはっきりしないと回答が付けられないと思います

[sazi]

失礼。ボタンからイベントで処理しているようですね。そのボタンのイベント処理のコードを追記して下さい。

Answer 1

GetOpenFilename で複数選択可MultiSelect:=Trueにすると配列が返るので、リストボックスのListプロパティに代入すればいいでしょう。

Private Sub CommandButton1_Click()
    Dim OpenFileNames As Variant
    
    ChDrive "C"
    ChDir "C:\test" 'カレントフォルダを設定する

    OpenFileNames = Application.GetOpenFilename( _
                    FileFilter:="Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", _
                    MultiSelect:=True)

    If IsArray(OpenFileNames) Then
        Me.ListBox1.List = OpenFileNames
    Else
        MsgBox "キャンセルされました"
    End If
End Sub

Comments

[退会済みユーザー]

返信遅れて申し訳ありません
回答ありがとうございます
実際に試してみます????

Answer 2

試していませんが、以下のような処理になるかと思います。

    Dim myFile As Variant
    Dim f As Variant
    ChDir "C:\Data"　'カレントフォルダを設定する
    myFile = Application.GetOpenFilename( _
         FileFilter:="Excel ファイル (*.xls; *.xlsx),*.xls; *.xlsx", _
         MultiSelect:=True)
    
    If IsArray(myFile) Then
        ListBox1.Clear 'リストボックスを空にする
        For Each f In myFile
            ListBox1.AddItem f    'リストに値を追加する
        Next
    End If

Comments

[退会済みユーザー]

返信遅れて申し訳ありません
回答ありがとうございます
実際に試してみます????