A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
「指定フォルダ下のフォルダを表示するものを作りました。
」という事は、指定フォルダ下のファイル一覧の取得方法もご存知ですよね(あなたがどのように取得しているかは、わかりませんが)。
それなら、
Sub ComboBox1_Change()
の中で、まずListBoxをクリアして
ListBox.Clear
選ばれたフォルダー下のファイル名をファイルの数分、ListBoxの
Itemに追加するだけ
ListBox.AddItem i
ListBox.List(i) = ファイル名
注意)初歩的な説明は省いています。
※フォルダー名やファイル名の取得方法が分からないなら、また聞いて下さい。
※このユーザーフォームの用途がわかりませんが、指定したフォルダー下のファイルを表示したり、選ばせたりするダイアログ(フォーム)は、自分で作らなくても、提供されてます。
この回答への補足
ワークシートに貼ったコマンドボタンのプログラムは下記ですが
Private Sub CommandButton1_Click()
Dim mdir As String
MAINDIR = "D:\"
mdir = Dir(MAINDIR, vbDirectory)
Do While mdir <> ""
If myear <> "." And myear <> ".." Then
If (GetAttr(MAINDIR & mdir) And vbDirectory) = vbDirectory Then
With UserForm2.ComboBox1
.AddItem mdir
.Value = mdir
End With
End If
End If
mdir = Dir
Loop
UserForm2.ComboBox1.Style = fmStyleDropDownList
UserForm2.Show
End Sub
ユーザーフォームの方でうまくいかないです。教えてください。
No.2
- 回答日時:
ご提示のソースコードを見る限り、ユーザーフォームがどうのこうのと
言う以前にプログラムが、でたらめです。
-dir()関数やGetAttr()関数の意味や使い方をちゃんと調べて、理解してますか?
もっと基本的な事として、if... then ... やDo While ... loop
の用途や構文についても、分かってないようです。
まず、VBAでフォルダーやファイルの情報を取得する方法を、調べましょう。Googleで「vba ファイルシステムオブジェクト」をキーワードにして調べるとたくさんヒットします。
調べたサンプルコードを十分理解できたら、フォームの操作にいどんで下さい。
時間がないなら、丸投げのお願いをしてみる事です。
> Googleで「vba ファイルシステムオブジェクト」をキーワードにして調べるとたくさんヒットします。
Googleで検索後、すっきりしたコードになりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Excel(エクセル) Aフォルダにあるエクセルの表をBフォルダへ映したい【表題じだけする】 2 2023/08/24 06:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
ExcelのVBAでフォルダ指定がで...
-
Excelのハイパーリンクについて...
-
エクセルのマクロについて教え...
-
フォルダ内のPDFファイル名を変...
-
vbsで選択ダイアログを表示した...
-
[VBS] Unicodeの文字化けを防ぎ...
-
ファイル名と同名のフォルダを...
-
excel VBA Dirにて検索したフォ...
-
同一フォルダ内の別ブックから...
-
Excel VBA で フォルダ名の一部...
-
エクセル VBA ファイルをフォ...
-
VBA フォルダの複数選択ができない
-
【マクロ】ファイル名の日付に...
-
VBScriptでのフォルダ指定ダイ...
-
VBS 途中のパスに変数を入れたい
-
VBA フォルダ名に特定の文字を...
-
保存先のフォルダ名を指定した...
-
パス名に2バイト文字(マルチバ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報