標題: 請問mkdir的問題 [打印本頁]

---

作者: wufonna    時間: 2012-9-9 14:06     標題: 請問mkdir的問題

請問執行

Sub MkDirs()
'造股票代號的目錄


For i = 2 To 1409
MkDir ThisWorkbook.Path & "\" & " (" & 工作表1.Range("A" & i).Value & ")" & 工作表1.Range("B" & i).Value
Next

End Sub

造目錄(1565)到精華下就沒有了

謝謝

---

作者: wufonna    時間: 2012-9-9 14:10

執行階段錯誤 75
路徑或檔案存取錯誤

謝謝

---

作者: wufonna    時間: 2012-9-10 13:30

是不是unicode的問題，如何改，謝謝

---

作者: kimbal    時間: 2012-9-10 13:56

本帖最後由 kimbal 於 2012-9-10 13:58 編輯

多數是因為重覆建,試試這樣先檢查後建.

1. Sub MkDirs()
   
2. '造股票代號的目錄
   
3. Dim strPath As String
   
4. For i = 2 To 5
   
5.     strPath = ThisWorkbook.Path & "\" & " (" & 工作表1.Range("A" & i).Value & ")" & 工作表1.Range("B" & i).Value
   
6.     If Len(Dir(strPath, vbDirectory)) = 0 Then
   
7.         MkDir strPath
   
8.     End If
   
9. Next
   
10. End Sub

複製代碼

---

作者: GBKEE    時間: 2012-9-10 17:45

回復 1# wufonna
ChrW(160)是不可見字元,造成錯誤的主要原因

1. Option Explicit
   
2. Sub MkDirs()
   
3.     Dim i As Integer, N As String, strPath As String
   
4.     MsgBox 工作表1.Range("B136")
   
5.     '?  為ChrW(160)是不可見字元,造成錯誤的主要原因
   
6.     工作表1.Cells.Replace ChrW(160), "", xlPart  '清除工作表中ChrW(160)不可見字元
   
7.     MsgBox 工作表1.Range("B136")
   
8.     For i = 2 To 1409
   
9.         strPath = ThisWorkbook.Path & "\" & " (" & 工作表1.Range("A" & i).Value & ")" & 工作表1.Range("B" & i)
   
10.         'kimbal 版主 建議查看無重覆建立目錄
    
11.         If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath
    
12.     Next
    
13. End Sub

複製代碼

---

作者: wufonna    時間: 2012-9-10 19:31

謝謝 kimbal大大 GBKEE大大，的幫忙，程式可執行了，
謝謝^0^

---

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