標題: 開啟檔案找關鍵字 [打印本頁]

---

作者: samwang    時間: 2016-2-21 11:22     標題: 開啟檔案找關鍵字

如何使用 CreateObject("Scripting.Dictionary") 做到
開啟D槽底下aa.xlsx 檔案-->找尋每個工作表的照片檔裡的關鍵字-->如有找到另開新檔把資料存放於此

Set dict = CreateObject("Scripting.Dictionary")
Workbooks.Open Filename:=D:\aa.xlsx
sFind = InputBox("請輸入要找尋關鍵字")
For i = 1 To Worksheets.Count
For Each shp In ActiveSheet.Shapes
Workbooks.Add
.
.
.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)