Câu hỏi Tạo cấu trúc thư mục với đường dẫn được xác định trong ô (hoặc cửa sổ bật lên)


Tôi là một người mới sử dụng VBA của excel và đã tự hỏi nếu bạn có thể giúp tôi tìm ra một giải pháp.

Vì vậy, tôi đang tìm cách tạo một bảng tính excel sẽ tạo ra một cấu trúc thư mục ở một vị trí nhất định.

Việc tạo một bit cấu trúc thư mục mà tôi đã giải quyết bằng cách sử dụng mã sau:

Tạo thư mục và thư mục con với macro VBA

Vấn đề tôi có là xác định vị trí từ một ô, Tôi đã cố gắng sử dụng phần sau để xác định đường dẫn:

Dim strFolders As String
strFolders = Worksheets("Sheet1").Cells(7, "A").Value

tạo thành mã này cùng nhau

Sub CreateFolderStructure()
    Dim objRow As Range, objCell As Range, strFolders As String

    For Each objRow In ActiveSheet.UsedRange.Rows
        Dim strFolders As String
            strFolders = Worksheets("Sheet1").Cells(7, "A").Value
        For Each objCell In objRow.Cells
            strFolders = strFolders & "\" & objCell
        Next
        Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))
    Next
End Sub

Thật không may nó không đơn giản như vậy. Tôi nhận được một lỗi khai báo trùng lặp, mặc dù tôi không hiểu nơi (cũng không phải lý do tại sao, vì vậy cảm thấy tự do để giải thích điều này với tôi).

Đương nhiên, tôi hy vọng rằng chèn đường dẫn vào một ô cũng sẽ tạo ra nó như một thư mục (hoặc một lỗi do '/'), vì vậy tôi cũng đang tìm kiếm một giải pháp cho điều đó (nhưng tôi đang tập trung vào vấn đề trước mặt tôi), tôi đã nghĩ đến việc có thể tạo ra một menu pop-up nơi bạn có thể định nghĩa chúng, tôi không chắc chắn nó khó đến mức nào nhưng tôi vẫn đang học những sợi dây ngay bây giờ để tập trung vào một cái gì đó dễ dàng cho bây giờ.

Tôi đang để câu hỏi này mở ra ở đây trong khi chờ đợi trong khi tôi tiếp tục tìm ra một giải pháp cho bản thân mình, nếu tôi tìm thấy câu trả lời, tôi chắc chắn sẽ cập nhật điều này!

Cảm ơn bạn


1
2017-09-24 14:11


gốc




Các câu trả lời:


Vì bạn đã tuyên bố strFolders hai lần, một lần với các biến khác trong 2nd Row và thứ hai trong Row 4, để bạn nhận được Duplicate declaration error 

Xóa hàng này khỏi mã bạn tìm thấy trong Hàng 4.

 Dim strFolders As String 

0
2017-09-25 05:42



#Mateusz, rất vui được giúp bạn ,, tiếp tục hỏi - Rajesh S