Note: The other languages of the website are Google-translated. Back to English

Excelのセルに複数のファイル名をインポートするにはどうすればよいですか?

数百のファイルを含むフォルダーがあり、これらのファイル名をワークシートのセルにインポートするとします。 XNUMXつずつコピーして貼り付けると、かなりの時間がかかります。この記事では、フォルダーからワークシートに複数のファイル名をインポートするのに役立ついくつかの簡単なトリックについて説明します。

VBAコードを使用して複数のファイル名をワークシートセルにインポートします

Kutools forExcelを使用して複数のファイル名をワークシートセルにインポートする


VBAコードを使用して複数のファイル名をワークシートセルにインポートします

次のVBAコードは、ファイル名、ファイル拡張子、フォルダー名をワークシートのセルにインポートするのに役立ちます。次の手順で実行してください。

1。 ファイル名をインポートする新しいワークシートを起動します。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:ワークシートのセルに複数のファイル名をインポートします

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. 次に、 F5 キーを押してこのコードを実行し、ポップアウトされた[参照]ウィンドウで、ファイル名フォームをインポートするフォルダーを選択します。スクリーンショットを参照してください。

docインポートファイル名1

5。 そして、 OK ボタンをクリックすると、次の結果が得られます。

docインポートファイル名2

注意:特定のフォルダ内にサブフォルダがある場合、サブフォルダ内のファイル名はインポートされません。


Kutools forExcelを使用して複数のファイル名をワークシートセルにインポートする

フォルダとサブフォルダの両方にファイル名をインポートする必要がある場合は、心配しないでください。 Kutools for Excelさん ファイル名リスト ユーティリティを使用すると、サブフォルダを含む特定のフォルダ内のすべてのファイル名を簡単にインポートできます。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. 

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

1に設定します。 OK をクリックします。 クツールズプラス> インポート・エクスポート > ファイル名リスト、スクリーンショットを参照してください:

2。 の中に ファイル名リスト ダイアログボックスで、次の操作を実行します。

(1.)クリック docインポートファイル名5 インポートしたいファイルのあるフォルダを選択するボタン。

(2.)チェック サブディレクトリにファイルを含める サブフォルダーのファイル名をインポートします。

(3.)インポートするファイルの種類を[ ファイルタイプ セクション;

(4.)表示するファイルサイズの単位をXNUMXつ選択します。 ファイルサイズ単位 セクション;

(5.)ファイル名とフォルダをハイパーリンクする場合は、チェックしてください。 ハイパーリンクを作成する オプションを選択します。

docインポートファイル名4

3。 設定終了後、をクリックしてください OK ボタンをクリックすると、次のスクリーンショットのように、フォルダとサブフォルダの両方のファイル名が新しいワークシートにインポートされます。

docインポートファイル名6

ヒント:特定のフォルダから指定されたタイプのファイル名をXNUMXつだけインポートする場合は、次のことを確認できます。 指定 内のオプション ファイル名リスト ダイアログでファイル拡張子を入力すると、指定したタイプのファイル名のみがフォルダーとサブフォルダーの両方からインポートされます。

このファイル名リスト機能の詳細については、クリックしてください…

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


デモ:Kutools forExcelを使用して複数のファイル名をワークシートセルにインポートする

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

関連記事:

フォルダとサブフォルダ内のすべてのファイルをワークシートに一覧表示するにはどうすればよいですか?

フォルダ内のすべてのファイル名を一覧表示し、Excelでそれらのハイパーリンクを作成するにはどうすればよいですか?


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (14)
5の5を評価 · 1の評価
このコメントは、サイトのモデレーターによって最小化されました
ねえ、
いくつかの製品名を持つecxelシートがあり、セルデータと同じ名前のpdfファイルがあるフォルダーもあります。たとえば、セルA2の値がapple1の場合、Pdfファイル名はapple1.pdfです。どの名前か知りたいです。ファイルがありません。excelsomwhowで取得できますか。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Myk、
まず、上記のコードを適用してファイル名をワークシートに挿入し、ファイル名のXNUMXつの列をXNUMXつのワークシートに一覧表示します。次に、Kutoolsの[同じセルと異なるセルの選択]機能を使用して、不足しているファイル名を識別して強調表示できます。スクリーンショットを参照してください。 :

ぜひお試しください、ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
とても助かりました、ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya、
このコメントは、サイトのモデレーターによって最小化されました
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
このコメントは、サイトのモデレーターによって最小化されました
ありがとう。 それはすごかった
このコメントは、サイトのモデレーターによって最小化されました
VBAコードの場合、変更された日付もどのように取得しますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
インポートされたファイル名の変更日列を追加します。次のVBAコードを適用してください。試してみてください。お役に立てば幸いです!

Sub GetFileList()
オブジェクトとしての薄暗いxFSO
オブジェクトとしての薄暗いxFolder
xFileをオブジェクトとして薄暗くする
xFiDialogをFileDialogとして薄暗くする
文字列としてのDimxPath
Dim i As Integer
xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)を設定します
xFiDialog.Show=-1の場合
xPath = xFiDialog.SelectedItems(1)
終了する場合
xFiDialog=Nothingを設定します
xPath = ""の場合、Subを終了します
xFSO = CreateObject( "Scripting.FileSystemObject")を設定します
xFolder = xFSO.GetFolder(xPath)を設定します
ActiveSheet.Cells(1、1)="フォルダ名"
ActiveSheet.Cells(1、2)="ファイル名"
ActiveSheet.Cells(1、3)="ファイル拡張子"
ActiveSheet.Cells(1、4)="最終更新日"
I = 1
xFolder.Files内の各xFileに対して
私 = 私 + 1
ActiveSheet.Cells(i、1)= xPath
ActiveSheet.Cells(i、2)= Left(xFile.Name、InStrRev(xFile.Name、 "。")-1)
ActiveSheet.Cells(i、3)= Mid(xFile.Name、InStrRev(xFile.Name、 "。")+ 1)
ActiveSheet.Cells(i、4)= CDate(xFile.datelastmodified)
次へ
End Subの
このコメントは、サイトのモデレーターによって最小化されました
フォルダーパスを既にコードに含める方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
フォルダ名だけを挙げたいのですが、そのためのvbaコードは何ですか。
このコメントは、サイトのモデレーターによって最小化されました
テーブル、フォルダ名のみ、およびデータも変更したいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
特定のメインフォルダのすべてのフォルダ名を一覧表示しますか? 問題をもっと詳しく教えてください。
このコメントは、サイトのモデレーターによって最小化されました
もうXNUMXつの簡単な方法があります。 ドキュメントを保存したディレクトリパスをコピーし、そのリンクをブラウザ(chrome / Mozilla)に貼り付けるだけです。 名前リストを取得し、コピーして貼り付けてExcelに貼り付けます。 乾杯!
このコメントは、サイトのモデレーターによって最小化されました
非常に役立ちます。 Tnxが多い
5の5を評価
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護