Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14322 / 76734

←次へ　｜　前へ→


	【67909】Re:フォルダーからファイル名を取得

Yuki - 11/1/15(土) 19:54 -


	引用なし

	パスワード

▼ｋｏｋｏさん：
配列にいれて一度にシートに貼り付けています。
ホルダー選択のダイアログも出して起きます。
Sub GetFileNm()
　　Dim strDir　　　　　As String
　　Dim FNM
　　Dim i　　　　　　　 As Long
　　Dim objFileDialog　 As FileDialog
　　Dim varFiles　　　　As Variant
　　' ホルダー選択
　　Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
　　With objFileDialog
　　　　.Filters.Clear 'フィルターのクリア
　　　　.InitialFileName = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'　　　　.Filters.Add "Excelワークブック", "*.xls"　'フィルターの設定１
　　　　.Show 'ダイアログの表示
　　　　If .SelectedItems.Count > 0 Then
　　　　　　strDir = .SelectedItems(1)
　　　　End If
　　End With
　　Worksheets("File").Cells.ClearContents
　　If strDir = "" Then Exit Sub
　　' ホルダ内容のセット
　　With CreateObject("Scripting.FileSystemObject").GetFolder(strDir)
　　　　ReDim varFiles(1 To .Files.Count, 1 To 1)
　　　　For Each FNM In .Files
　　　　　 i = i + 1
　　　　　 varFiles(i, 1) = FNM.Name
　　　　Next
　　End With
　　Worksheets("File").Range("A1").Resize(UBound(varFiles)).Value = varFiles
End Sub

11 hits

▼

【67900】フォルダーからファイル名を取得 ｋｏｋｏ 11/1/15(土) 8:40