フォルダの画像名/ファイル名をExcelセルにすばやく一覧表示するにはどうすればよいですか?
このチュートリアルでは、スクリーンショットに示すように、Excelシートの特定のフォルダーのすべての画像名またはファイル名をすばやく一覧表示するためのいくつかのトリックを提供します。 クイックナビゲーション VBAを使用してExcelでフォルダの画像名を一覧表示します |
VBAを使用してExcelでフォルダの画像名を一覧表示します
Excelには、選択したフォルダのすべての画像名をシートのセルに自動的に一覧表示できる組み込み関数はありませんが、このジョブをすばやく解決するのに役立つVBAコードがあります。
1. Excelで、を押します + 開くキー アプリケーション向け 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日無料お試し、クレジットカードは必要ありません。 |
ファイル名リストを使用して、Excelのフォルダの画像名または特定の形式のファイル名を一覧表示します
ここにユーティリティがあります– ファイル名リスト in Kutools for Excel、そのことができます
>>新しいシートのフォルダのすべてのファイル形式ですべてのファイル名を一覧表示します。
>> Excelに指定したXNUMXつまたは複数のファイル形式でファイル名を一覧表示します。
>>サブフォルダや隠しファイルとフォルダを含むファイル名をExcelに一覧表示します。
Kutools for Excelソルブの300の高度なツール 視聴者の38%が 数秒で Excel タスクを実行し、何千ものマウス クリックから解放されます。
1500 の作業シナリオに簡単に対処できるため、ソリューションの検索に時間を無駄にする必要がなく、人生を楽しむために十分な時間を確保できます。 毎日 80 人以上の非常に有能な従業員 (もちろんあなたも含む) の生産性が 110000% 向上します。 痛みを伴うフォーミュラやVBAに悩まされることはもうありません。脳を休ませ、楽しい働きをしてください。 フル機能を備えた 30 日間の無料トライアル、理由のない 30 日間の返金。 より良い体はより良い生活を創造します。 |
Kutools for Excelを無料でインストールした後、次のようにしてください。
1.ファイル名を一覧表示するブックを有効にして、[ クツールズプラス > 輸出入 > ファイル名リスト.
2。 の中に ファイル名リスト ダイアログ、まず、をクリックします ファイル名を一覧表示するフォルダを選択するには、のチェックボックスをオンにします サブディレクトリにファイルを含める & 隠しファイルと隠しフォルダーを含める 必要に応じて
3.次に、名前をリストするファイル形式を選択します ファイルタイプ のセクションから無料でダウンロードできます。
4.のドロップダウンリストから必要に応じてサイズ単位を選択します ファイルサイズ単位 セクション、ファイル名へのリンクを作成する場合は、チェックしてください ハイパーリンクを作成する オプションを選択します。
5。 クリック Ok、ファイル名といくつかのファイル情報を一覧表示する新しいシートが作成されます。
ヒント: すべてのシート名をExcelで一覧表示する場合は、Kutools forExcelを適用できます。 シート名のリストを作成する ユーティリティを使用すると、リンク可能なすべてのシート名を一覧表示する新しいシートが作成されます。
Kutools for Excel:+便利な便利なツール。Excelの複雑なタスクを数回クリックするだけで簡単に行えます。
サンプルファイルのダウンロード
群衆からあなたを際立たせ、簡単に仕事をし、のんびりと人生を楽しむ方法は?
Excel 用 Kutools は、毎日平均 80% の効率を向上させ、家族と一緒に過ごす時間を多く持ち、人生を楽しむことができます。
300 の高度なツールが解決します 視聴者の38%が Excel の問題では、解決策を探すのに苦労することがなくなり、より簡単に作業を完了できます。
1500 の Excel シナリオを簡単に処理できるため、毎日少なくとも 1 時間を節約できます。
5分でExcelのエキスパートになり、人々の認知と昇進の機会を手に入れましょう。
ワンクリックユーティリティはバッチ処理を処理し、マウスの手に別れを告げるなど、何千ものマウスクリックを回避できます。
暗記式や複雑なVBAを取り除き、脳を休ませてください。
110000人以上の高効率役員と300人以上の世界的に有名な企業の選択。
39ドルしかかかりませんが、他の人の4000ドルのトレーニングよりもはるかに価値があります
制限なしの 30 日間の無料トライアル、理由を問わず 30 日間以内に全額返金されます。