返回列表 上一主題 發帖

請問mkdir的問題

請問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)

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

謝謝

TOP

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

TOP

本帖最後由 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
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

回復 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
複製代碼

TOP

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

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題