[問題] VBA CHDIR目錄執行問題?

看板Office作者snecma (每天心發現)時間13年前 (2012/09/12 08:28)推噓0(0推 0噓 2→)

留言2則, 2人參與討論串1/1

(若是和其他不同軟體互動之問題請記得一併填寫) 軟體:2007 版本:NA 大大們,小弟有隻從客戶端拿到的程式如下,可以將txt檔特定儲存格內的數值給擷取出來,小弟今天有個問題就是,此巨集程式在C槽下可執行,若將excel與.txt 檔放在D槽就無法執行(已經有修改Chdir的路徑為D槽),有大大有這樣的問題嗎 Sub macroexample() Application.ScreenUpdating = False 'Clean sheet1 (Datas)' ThisWorkbook.Sheets(1).Range("A6:LZ9999").Clear 'Files directory' ChDir "C:\Documents and Settings\USER\桌面" 'MODIFY Dim monfichier As String Dim n As Long monfichier = Dir("*.txt") n = 11 'MODIFY 'Import CMM datas' While monfichier <> "" 'while excel can open the TXT files one by one 'it opens one txt file Workbooks.OpenText Filename:=monfichier _ , Origin:=936, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _ Array(9, 1)), TrailingMinusNumbers:=True 'and copy and paste the data in the excel table Workbooks(monfichier).Sheets(1).Range("A1").Copy Destination:=ThisWorkbook.Sheets(1).Range("C" & n) 'MODIFY Workbooks(monfichier).Sheets(1).Range("B1").Copy Destination:=ThisWorkbook.Sheets(1).Range("D" & n) 'MODIFY 'next CMM report' n = n + 1 monfichier = Dir() ActiveWorkbook.Close Wend End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.221.160.226