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

複製代碼