- 帖子
- 42
- 主題
- 12
- 精華
- 0
- 積分
- 283
- 點名
- 2
- 作業系統
- WINDOWS XP
- 軟體版本
- SP2
- 閱讀權限
- 20
- 來自
- KAOHSIUNG
- 註冊時間
- 2010-5-8
- 最後登錄
- 2025-5-21
|
[發問] With Application.FileSearch 無法使用
Dear 大大,
之前用office 97時我都使用With Application.FileSearch找檔案
今天用不同的office版本才發現office改版後己經不能再用了,
請問各位前大大,以下程式碼應該怎麼修改才好?
With Application.FileSearch
.NewSearch
.LookIn = FilePath
.Filename = ".txt"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Cells(RowIdx, 1) = FileDateTime(.FoundFiles(i))
Cells(RowIdx, 1).Select
FName = .FoundFiles(i)
Cells(RowIdx, ColIdx).Select
Open FName For Input As #1
.
. |
|