Em có file excel này , nó tạo 1 danh sách liệt kê những folder có trong folder mình đã chọn, nhưng mà code chỉ chạy ra trang wb khác( book 1)
và có thể ko hoạt động .Xin mn giúp đỡ sữa code sao cho nó chạy trên wordsheet mìnhđang làm việc, và sữa chữa về vấn đề ko hoạtđ ộng của code
Dạ Anh/Chị,
Em có file excel này , nó tạo 1 danh sách liệt kê những folder có trong folder mình đã chọn, nhưng mà code chỉ chạy ra trang wb khác( book 1)
và có thể ko hoạt động .Xin mn giúp đỡ sữa code sao cho nó chạy trên wordsheet mìnhđang làm việc, và sữa chữa về vấn đề ko hoạtđ ộng của code
Theo mình thấy thì đoạn cẩn thận về chính tả trong bài viết của bạn đã chứng minh được vì sao code không hoạt động được rồi, bạn thử kiểm tra lại xem nhé.
Theo mình thấy thì đoạn cẩn thận về chính tả trong bài viết của bạn đã chứng minh được vì sao code không hoạt động được rồi, bạn thử kiểm tra lại xem nhé.
Lúc trước tôi cũng hay nhắc nhở vấn đề chính tả, nhưng từ lúc ban quản trị có nói một bài về vấn đề này nên cảm thấy bài nào giúp được thì xem không thì thôi chứ cũng không để ý nữa. Nhắc tốt cho người ta thì có khi còn bị ghét, BQT thì tư tưởng là không cần khắt khe. Vậy nghĩ lại mình làm điều đó để làm gì!
Em có file excel này , nó tạo 1 danh sách liệt kê những folder có trong folder mình đã chọn, nhưng mà code chỉ chạy ra trang wb khác( book 1)
và có thể ko hoạt động .Xin mn giúp đỡ sữa code sao cho nó chạy trên wordsheet mìnhđang làm việc, và sữa chữa về vấn đề ko hoạtđ ộng của code
Lúc trước tôi cũng hay nhắc nhở vấn đề chính tả, nhưng từ lúc ban quản trị có nói một bài về vấn đề này. BQT thì tư tưởng là không cần khắt khe. Vậy nghĩ lại mình làm điều đó để làm gì!
Tật xấu truyền nhanh. BQT chưa có kinh nghiệm nên nghĩ rằng chuyện ấy chỉ xảy ra cho một vài người, một vài thớt. Họ không biết rằng những cái tật ấy nếu không chặn từ đầu thì trong tương lai nó sẽ tràn ngập mọi nơi.
Chú: bạn chỉ bị ghét mà cũng sợ. Tôi còn được BQT cảnh báo là "hành động của tôi làm diễn đàn mất khách" nữa.
Tật xấu truyền nhanh. BQT chưa có kinh nghiệm nên nghĩ rằng chuyện ấy chỉ xảy ra cho một vài người, một vài thớt. Họ không biết rằng những cái tật ấy nếu không chặn từ đầu thì trong tương lai nó sẽ tràn ngập mọi nơi.
Chú: bạn chỉ bị ghét mà cũng sợ. Tôi còn được BQT cảnh báo là "hành động của tôi làm diễn đàn mất khách" nữa.
Theo tôi hiểu thì bài viết được gắn liên kết nói về "vùi dập cho biết mùi đời", "bị dập, bị bắt bẻ không thương tiếc" (sic), còn nếu nhắc nhở nhẹ nhàng thì không sao. Bản thân tôi cũng có nhắc nhở nhẹ nhàng ở đâu đó.
Theo tôi hiểu thì bài viết được gắn liên kết nói về "vùi dập cho biết mùi đời", "bị dập, bị bắt bẻ không thương tiếc" (sic), còn nếu nhắc nhở nhẹ nhàng thì không sao. Bản thân tôi cũng có nhắc nhở nhẹ nhàng ở đâu đó.
Anh à, đôi khi em thấy có những thành viên vi phạm Nội quy diễn đàn nhưng thấy có thành viên Ban quản trị vẫn giúp đỡ rất lâu mà không thấy nhắc nhở nên em nghĩ có thể do quên hoặc không để ý, nhưng lâu quá thì cũng không nên anh nhỉ.
Anh à, đôi khi em thấy có những thành viên vi phạm Nội quy diễn đàn nhưng thấy có thành viên Ban quản trị vẫn giúp đỡ rất lâu mà không thấy nhắc nhở nên em nghĩ có thể do quên hoặc không để ý, nhưng lâu quá thì cũng không nên anh nhỉ.
Ờ thì tôi cũng có lúc sơ ý.
Ngoài ra tôi dị ứng với kiểu ak, hj, ko, hok, vk, ... nên phản ứng nhanh hơn là viết tắt "e" cho "em", cũng là 1 cái sai sai
dạ code đây ạ , mới đăng bài lần đầu mong mn thông cảm:
Sub FolderNames()
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
Ờ thì tôi cũng có lúc sơ ý.
Ngoài ra tôi dị ứng với kiểu ak, hj, ko, hok, vk, ... nên phản ứng nhanh hơn là viết tắt "e" cho "em", cũng là 1 cái sai sai
Do từ đầu em ghi nội dung bằng cách viết tắt ( mn: mọi người, ko: không, và ghi là hoạtđ ộng) nên bị nhắc nhở ạ
Nếu thế thì cho em xin lỗi, vì nhắn tin với đám bạn trên mạng hằng ngày nên lâu dần quen với cách đánh chữ như vậy.
Là do sự sơ ý của em, em chân thành xin lỗi ạ, Và xin mọi người giúp đỡ em về vấn đề em đã trình bày.
dạ code đây ạ , mới đăng bài lần đầu mong mn thông cảm:
Do từ đầu em ghi nội dung bằng cách viết tắt ( mn: mọi người, ko: không, và ghi là hoạtđ ộng) nên bị nhắc nhở ạ
Nếu thế thì cho em xin lỗi, vì nhắn tin với đám bạn trên mạng hằng ngày nên lâu dần quen với cách đánh chữ như vậy.
Là do sự sơ ý của em, em chân thành xin lỗi ạ, Và xin mọi người giúp đỡ em về vấn đề em đã trình bày.