0

Excel 2003 を使用して、表示する必要のあるデータのみを 1 つの s/s に集約できる Excel ファイルのグループ用のマクロを作成したいと考えていました。唯一の問題は、どこから始めればよいかわからないことです。私は職場でディレクトリを使用しており、約 15 ～ 20 の Excel s/s を 1 日というラベルの付いたフォルダーに保存しています。各秒を調べなければならない毎日のプロセスを促進するには、ワークブックで正しいタブ (その特定の日に存在しない場合があります) を検索し、データ フィルターで並べ替え、識別コードのリストと照合します。マクロでこれを作成したいと思います。したがって、ディレクトリ内の今日の日付の付いたフォルダーを開き、正しいラベルの付いたタブ (NYK123 と呼びましょう) を見つけ、各ファイルを開いて ID コード (H 列) と部門コード (J 列) を照合するマクロを探しています。元のs/sにあるテーブル、元の s/s に結果を表示します。また、新しい問題では、行全体のフォントが赤く、元の s/s に表示する必要があります。皆さんが提供できるどんな助けも大歓迎です。

4

1 に答える 1

0

始めるには：

Dim oFSO As New Scripting.FileSystemObject

Dim fsoFile As Scripting.file
Dim fsoFolder As Scripting.Folder

Dim sReportsFolder As String: sReportsFolder = "C:\temp\"

Set fsoFolder = oFSO.GetFolder(sReportsFolder)

For Each fsoFile In fsoFolder.Files

   Dim xlWorkbook As New Workbook
   Set xlWorkbook = Workbooks.Open(fsoFile.Name)

   Dim xlWorksheet As Worksheet
   Set xlWorksheet = xlWorkbook.Sheets("Sheet1")

   ' put your logic here...

Next

警告: メモリから書き込まれ、コンパイルする必要があります

于 2012-09-10T11:42:22.817 に答える