請問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)到精華下就沒有了

謝謝

u.rar (38.47 KB)

樓主熱帖

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

6^#

發表於 2012-9-10 19:31 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 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

複製代碼

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2012-9-10 13:56 | 只看該作者

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

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

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