i =單元格（行。計數，1）。結束（三）。排
set FSO = CreateObject（“scripting . file system object“）
set my folder = FSO . get folder（“d:\ A“）‘用引號將文件夾A的完整路徑填入。
對於myfolder中的每個myfile。文件
如果我的文件。名稱如“*。xls*“那麽
設置wb =工作簿。打開（我的文件。路徑）
i = i + 1
單元格（I，1）= WB。名字
細胞（I，2）= WB。工作表（“餐飲費用”）。【b2】
設置rg = wb。工作表（“餐飲費用”）。使用範圍。find（What:=“供應商地址“，look:= XL values，Lookat: = xlwhole）。
單元格（I，3）= rg。偏移量（1）
單元格（I，4）= rg。偏移（2）
設置rg = wb。工作表（“餐飲費用”）。使用範圍。find（What:=“承包商地址“，looking:= XL values，Lookat: = xlwhole）。
單元格（I，5）= rg。偏移量（1）
單元格（I，6）= rg。偏移（2）
設置rg = wb。工作表（“餐飲費用”）。使用範圍。find（What:=“采購清單的內容2“，Lookin: = xlvalues，Lookat: = xlwhole）。
單元格（I，7）= rg。偏移量（，1）
wb。關閉假
如果…就會結束
然後
設置fso =無
末端接頭