ワークシートにすべてのファイル名を収集することは、作業にとって非常に重要です。 この記事では、VBAマクロを使用してすべてのファイル名をワークシートに入力する方法を紹介します。
前回の記事で フォルダ内のすべてのファイル名のリストをExcelワークシートにコピーする2つの方法、フォルダ内のすべてのファイル名をワークシートに一覧表示するXNUMXつの方法を導入しました。 そして今、私たちは別の方法を見つけました。 VBAマクロを使用してこのタスクを完了することもできます。 以下の手順に従って、使用方法を確認してください。
フォルダ内のすべてのファイル名のリストをコピーする
- ファイル名を入力する必要があるワークブックを開きます。
- 次に、キーボードのショートカットキー「Alt + F11」を押して、VisualBasicエディターを開きます。
- その後、ツールバーの「挿入」タブをクリックします。
- 次に、ドロップダウンリストでオプション「モジュール」を選択します。 したがって、エディターに新しいモジュールを挿入しました。
- このステップでは、次のコードを新しいモジュールにコピーします。
Sub ListAllFileNames() Dim strTargetFolder As String, strFileName As String, nCountItem As Integer ' Initialization nCountItem = 1 strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\" strFileName = Dir(strTargetFolder, vbDirectory) ' Get the file name Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then Cells(nCountItem, 1) = strFileName nCountItem = nCountItem + 1 End If strFileName = Dir Loop End Sub
このマクロでは、実際のニーズに合わせてターゲットフォルダを変更する必要があります。ファイル名はワークシートのA列に入力します。ファイル名を別の範囲に入力する必要がある場合は、コードを修正してください。
- その後、このマクロを実行します。 ツールバーの「RunSub」ボタンをクリックするか、キーボードの「F5」ボタンを押して、このマクロを実行できます。
- 次に、ワークシートに戻ります。 フォルダ内のすべてのファイル名がすでに列Aに表示されていることがわかります。
記事の他のXNUMXつの方法と比較 フォルダ内のすべてのファイル名のリストをExcelワークシートにコピーする2つの方法、VBAマクロの使用が非常に便利であることがわかります。 ただし、一方で、Excel VBAに慣れていない場合は、コードを変更するときにエラーが発生します。 したがって、実際のニーズに応じて、XNUMXつの方法のいずれかを使用できます。
危険なソフトウェアに注意を払う
あなたは確かにあなたのコンピュータにたくさんのソフトウェアをインストールするでしょう。 そして、それらのアプリケーションはあなたの仕事に大いに役立ちます。 ただし、それらのいくつかは危険なアプリケーションです。 あなたがそれらをあなたのコンピュータにインストールすると、彼らはあなたの個人情報を収集します。 さらに悪いことに、Excelファイルもそれらによって損傷を受けます。 この時点で、危険なソフトウェアをすぐにアンインストールしてください。 その上、あなたはまた回復ツールを使用する必要があります 破損したxlsxファイルを修復する。 したがって、Excelファイルが安全であることを確認できます。
著者紹介：
Anna Maは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Wordのdocxファイルの問題を修復します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com