Excel VBA質問箱 IV

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

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


14322 / 76734 ←次へ | 前へ→

【67909】Re:フォルダーからファイル名を取得
発言  Yuki  - 11/1/15(土) 19:54 -

引用なし
パスワード
   ▼koko さん:
配列にいれて一度にシートに貼り付けています。
ホルダー選択のダイアログも出して起きます。
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" 'フィルターの設定1
    .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
8 hits

【67900】フォルダーからファイル名を取得 koko 11/1/15(土) 8:40 質問
【67901】Re:フォルダーからファイル名を取得 Yuki 11/1/15(土) 9:09 発言
【67904】Re:フォルダーからファイル名を取得 koko 11/1/15(土) 11:12 質問
【67907】Re:フォルダーからファイル名を取得 Jaka 11/1/15(土) 15:41 発言
【67909】Re:フォルダーからファイル名を取得 Yuki 11/1/15(土) 19:54 発言
【67910】Re:フォルダーからファイル名を取得 koko 11/1/16(日) 9:14 お礼

14322 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free