[過去ログ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002レス)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
904: デフォルトの名無しさん [sage] 2019/07/04(木) 22:43:55.95 ID:lDcVSkIh ユーザーフォーム内のコンボボックスにUSBの中にある画像一覧というフォルダ内の全ての画像名を表示したいのですがうまくいきません。 どのように変更すればよいか教えていただけませんか? Private Sub UserForm1_load() Dim myList As String Dim myPath As String Dim iName As String myPath = "D:/画像一覧/*jpeg" fName = Dir(myPath & "*.jpeg") Do While iName <> "" If myList <> "" Then myList = myList & " " & iName Else myList = iName End If iName = Dir Loop If myList = "" Then Exit Sub myList = Split(myList) ComboBox1.List = myList End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/904
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.475s*