請問mkdir的問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-9-10 17:45 | 顯示全部帖子

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

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

複製代碼

靜思自在 : 人生最大的成就是從失敗中站起來。