3

私は熱心な映画コレクターで、何千もの映画のコレクションを持っています。

私が通常行うことは、ダウンロードして視聴する映画のリストを含むメモ帳を持っていることです。ダウンロードしたすべての映画を「Movies」という名前の 1 つのフォルダーに保存し、映画を見たら、「Watched Movies」という名前の別のフォルダーに移動します。

ここで、これらの各フォルダー内の映画のリストを表示するシートを含む Excel ファイルが必要です。また、ムービーを「Movies」フォルダーに入れるたびに、Excelシートにそのファイル/フォルダー名が表示され、「Watched Movies」フォルダーに移動するたびに、Excelが自動的に更新されるようにします。

これは、そこにいるあなたにとってはケーキの一部になると確信しています.

どんな助けでも大歓迎です。ありがとう、ベスト、JV

4

1 に答える 1

2

これを行うには、VBA マクロを使用する必要があります。実際に探しているものはそれほど難しくありませんが、プログラミングの知識が少し必要です。

ステップ 1
2010 を使用している場合は、Excel に開発者リボンを追加する必要があります。

ステップ 2
開発者タブで をクリックするVisual Basicと、VB インターフェイスが開きます。スクリプトを提供しますが、「Microsoft Scripting Runtime」参照を追加する必要があります。

ステップ 3
• Visual Basic で、ドロップダウン メニューから [ツール] - [参照] を選択します
。 • 使用可能な参照のリストボックスが表示され
ます。 • [Microsoft Scripting Runtime] の横にあるチェック ボックスをオンにします
。ファイルがリストボックスの下に表示されます
。 • [OK] ボタンをクリックします。

ステップ 4

ThisWorkbook を選択し、次のコードを貼り付けます

Sub ViewFiles()
    theRow = 3
    Call ShowFiles(Range("A1"), True)
End Sub

Sub ShowFiles(path, subfolders)
    Set obj = New Scripting.FileSystemObject
    Set Source = obj.GetFolder(path)
    On Error Resume Next
    For Each file In Source.Files
       theCol = 2
       Cells(theRow, theCol).Value = file.path
       theCol = theCol + 1
       Cells(theRow, theCol).Value = file.Name
       theCol = theCol + 1
       Cells(theRow, theCol).Value = file.Size
       theCol = theCol + 1
        theRow = theRow + 1
    Next
    If subfolders Then
    For Each subFolder In Source.subfolders
        Call ShowFiles(subFolder.path, True)
    Next
   End If
End Sub

ステップ 5 セル A1
に 、表示するパスを貼り付けてから、ALT + F8 を押して、これと呼ばれるマクロを実行すると、ブックがすべてのファイルで更新されます。ViewFiles

次のようになります。 ここに画像の説明を入力

それがあなたのために働いたかどうか教えてください！

于 2013-06-15T20:59:42.510 に答える