[發問] 檔案操作疑問請教

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-9-6 10:31 | 只看該作者

On Error Resume Next拿掉偵錯看看
基本上字串連結語法已經錯誤
csvName = Dir(dirpath & "*.csv")

學海無涯_不恥下問

帖子: 11
主題: 3
精華: 0
積分: 120
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-6-22
最後登錄: 2011-3-29

3^#

發表於 2010-9-6 10:43 | 只看該作者

回復 2# Hsieh
On Error Resume Next 已mark掉
csvName = Dir(dirpath & "*.csv") 中的&已加上
偵錯是出現在 csvName=dir 這一行
怎麼辦呢

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-9-6 11:03 | 只看該作者

回復 3# huang40

Sub Test()

Application.DisplayAlerts = False

dirPath = ThisWorkbook.Path & "\"

csvName = Dir(dirPath & "*.csv")

Do While csvName <> ""

MsgBox csvName

Workbooks.Open (dirPath & csvName)
'
'balabalabala
'
'
ActiveWorkbook.Close savechanges:=False

csvName = Dir

Loop

End Sub

學海無涯_不恥下問

帖子: 11
主題: 3
精華: 0
積分: 120
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-6-22
最後登錄: 2011-3-29

5^#

發表於 2010-9-6 11:21 | 只看該作者

本帖最後由 huang40 於 2010-9-6 11:30 編輯

回復 4# Hsieh

這樣是執行OK

但一旦加入中間balabalabala的處理程序

Workbooks.Open (dirPath & csvName)
'
'balabalabala
'
'
ActiveWorkbook.Close savechanges:=False

csvName=dir 這行就還是出現錯誤訊息

有可能因為中間處理的程序碼出問題導致嗎?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-9-6 14:15 | 只看該作者

回復 5# huang40
那就慢慢逐行偵錯，看錯誤出在哪?

學海無涯_不恥下問

帖子: 11
主題: 3
精華: 0
積分: 120
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-6-22
最後登錄: 2011-3-29

7^#

發表於 2010-9-6 20:04 | 只看該作者

本帖最後由 huang40 於 2010-9-6 20:06 編輯

試過還是卡在csvName=dir這裡

沒法可想只好用最笨的方法

先把檔名列出再一個一個開啟終於搞定

可是對為什麼會卡在 csvName=dir 還是不瞭

總有個理由吧

Sub Test()
Application.DisplayAlerts = False
Sheets("MK").Activate
Columns("V").Clear
bPath = ThisWorkbook.Path
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) '
'
'balabalabala
'
ActiveWorkbook.Close savechanges:=False
next i

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2010-9-6 21:11 | 只看該作者

這麼說別人無法知道錯誤時顯示什麼及出錯時相對變數的值是否正確，只有你自己一行行run時才會知道的！

帖子: 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

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-9-7 18:00 | 只看該作者

本帖最後由 Hsieh 於 2010-9-7 18:02 編輯

回復 9# huang40

要學習VBA就要學會偵錯
逐行(F8)
一行一行跑程式看變數值的變化找出錯誤

學海無涯_不恥下問