請問mkdir的問題

wufonna

請問執行

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

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

謝謝

wufonna

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

kimbal

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

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

回復 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

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