このチュートリアルでは、スクリーンショットに示すように、Excelシートの特定のフォルダーのすべての画像名またはファイル名をすばやく一覧表示するためのいくつかのトリックを提供します。 クイックナビゲーション >VBAを使用してExcelでフォルダの画像名を一覧表示します >ファイル名リストを使用して、Excelのフォルダの画像名または特定の形式のファイル名を一覧表示します >サンプルファイルをダウンロードする

Excelには、選択したフォルダのすべての画像名をシートのセルに自動的に一覧表示できる組み込み関数はありませんが、このジョブをすばやく解決するのに役立つVBAコードがあります。

1. Excelで、を押します 他の + F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2.ポップウィンドウで、をクリックします インセット > モジュール 新しいモジュールスクリプトを作成します。

3.以下のコードをコピーして、新しいモジュールスクリプトウィンドウに貼り付けます。

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4。 押す F5 キーを押すと、画像名を配置するセルを選択するためのダイアログが表示されます。

5。 クリック OK [参照]ダイアログで画像名を一覧表示するフォルダを引き続き選択します。

6。 クリック OK、これで、選択したフォルダ内のすべての画像名がExcelに一覧表示されました。

注： VBAコードでは、コード文字列でjpg / png /…を使用できます。 InStr（1、xFileName、 ".jpg"）+ InStr（1、xFileName、 ".png"）+ InStr（1、xFileName、 ".img"）+ InStr（1、xFileName、 ".ioc"）+ InStrの場合（1、xFileName、 "。bmp"） > 0次に 必要なファイル拡張子に変更します。たとえば、ファイルのファイル名をドキュメント形式で一覧表示する場合は、コード文字列を次のように変更するだけです。 InStr（1、xFileName、 ".doc"）> 0の場合。

通常、日常業務でExcelセル内のフォルダーのXNUMXつまたはすべての形式のファイル名をリストする必要がある場合、コードは複雑で扱いが簡単ではありませんが、以下の方法で、このジョブをすばやく解決できます。

あなたは昇給と家族と一緒に多くの時間を過ごしたいですか？ Officeタブは、現在作業中のMicrosoft Officeで効率を50％向上させます 信じられないほど、XNUMXつ以上のドキュメントで作業する方が、XNUMXつで作業するよりも簡単で高速です。 よく知られているブラウザと比較して、Officeタブのタブ付きツールはより強力で効率的です。 毎日何百ものマウスクリックとキーボード入力を減らして、今すぐマウスの手に別れを告げましょう。 通常、複数のドキュメントで作業する場合は、Officeタブを使用すると時間を大幅に節約できます。 30・XNUMX日無料お試し、クレジットカードは必要ありません。 続きを読む今すぐダウンロード

ここにユーティリティがあります– ファイル名リスト in Kutools for Excel、そのことができます

>>新しいシートのフォルダのすべてのファイル形式ですべてのファイル名を一覧表示します。

>> Excelに指定したXNUMXつまたは複数のファイル形式でファイル名を一覧表示します。

>>サブフォルダや隠しファイルとフォルダを含むファイル名をExcelに一覧表示します。

フリートライアル 今すぐマウスの手と頸椎症に別れを告げる

Kutools for Excelソルブの300の高度なツール 視聴者の３８%が 数秒で Excel タスクを実行し、何千ものマウス クリックから解放されます。

1500 の作業シナリオに簡単に対処できるため、ソリューションの検索に時間を無駄にする必要がなく、人生を楽しむために十分な時間を確保できます。 毎日 80 人以上の非常に有能な従業員 (もちろんあなたも含む) の生産性が 110000% 向上します。 痛みを伴うフォーミュラやVBAに悩まされることはもうありません。脳を休ませ、楽しい働きをしてください。 フル機能を備えた 30 日間の無料トライアル、理由のない 30 日間の返金。 より良い体はより良い生活を創造します。

続きを読む 今すぐダウンロード

Kutools for Excelを無料でインストールした後、次のようにしてください。

1.ファイル名を一覧表示するブックを有効にして、[ クツールズプラス > 輸出入 > ファイル名リスト.

2。 の中に ファイル名リスト ダイアログ、まず、をクリックします  ファイル名を一覧表示するフォルダを選択するには、のチェックボックスをオンにします サブディレクトリにファイルを含める & 隠しファイルと隠しフォルダーを含める 必要に応じて

3.次に、名前をリストするファイル形式を選択します ファイルタイプ のセクションから無料でダウンロードできます。

チェック すべてのファイル オプションを選択すると、選択したフォルダ内のすべてのファイル形式のすべてのファイル名が一覧表示されます

チェック コマンドと オプションを選択し、ドロップダウンリストからファイル名を一覧表示する特定のファイル形式を選択すると、ドロップダウンリストで選択したファイル形式のすべてのファイル名が一覧表示されます。

チェック 指定 オプションを選択し、テキストボックスにファイル名を一覧表示するファイル拡張子を（コンマを使用して区切って）入力すると、Excelで入力したファイル拡張子のファイル名のみが一覧表示されます。

4.のドロップダウンリストから必要に応じてサイズ単位を選択します ファイルサイズ単位 セクション、ファイル名へのリンクを作成する場合は、チェックしてください ハイパーリンクを作成する オプションを選択します。

5。 クリック Ok、ファイル名といくつかのファイル情報を一覧表示する新しいシートが作成されます。

ヒント： すべてのシート名をExcelで一覧表示する場合は、Kutools forExcelを適用できます。 シート名のリストを作成する ユーティリティを使用すると、リンク可能なすべてのシート名を一覧表示する新しいシートが作成されます。

Kutools for Excel：+便利な便利なツール。Excelの複雑なタスクを数回クリックするだけで簡単に行えます。

推奨される生産性ツール

Officeタブ-MicrosoftOffice2019-2003およびOffice365でのドキュメントのタブブラウジング、編集、管理

無料ダウンロード

Excel 2019-2007を高速化するためのプロフェッショナルアドイン、時間タスクを秒に短縮

このアドインには数十の専門家グループが含まれており、300以上のオプションにより、Excelでの日常のタスクのほとんどが自動化され、生産性が少なくとも50％向上します。 ワンクリックオプトンのグループやバッチ変換など。
今こそ、Kutools forExcelでスピードアップするチャンスです！

無料ダウンロード