- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 120
- 點名
- 0
- 作業系統
- vista
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-6-22
- 最後登錄
- 2011-3-29
|
9#
發表於 2010-9-7 11:33
| 只看該作者
本帖最後由 huang40 於 2010-9-7 11:39 編輯
其實問題很單純(或者我自以為很單純)
在TEST1不能執行的主程式去卻在TEST2可以執行
那問題會是出在哪呢
Sub Test1()
Application.DisplayAlerts = False
dirPath = ThisWorkbook.Path & "\"
csvName = Dir(dirPath & "*.csv")
Do While csvName <> ""
Workbooks.Open (dirPath & csvName)
'
'(主程式)
'
ActiveWorkbook.Close savechanges:=False
csvName = Dir
Loop
Sub Test2()
Application.DisplayAlerts = False
Sheets(1).Activate
Columns("V").Clear
dirPath = ThisWorkbook.Path & "\"
csvName = Dir(dirPath & "*.csv")
n = 0
Do While csvName <> ""
n = n + 1
Cells(n, 22) = csvName
csvName = Dir
Loop
MsgBox "檔案數=" & n
For i = 1 To n
csvfile = Sheets(1).Cells(i, 22)
Workbooks.Open (dirPath & csvfile)
'
'(主程式)
'
ActiveWorkbook.Close savechanges:=False
next i
End Sub |
|