[ Cần giúp đỡ ] Chỉnh code cách chọn tên folder (1 người xem)

Datcdt2k9 · 12/10/21

Em chào mọi người
Em có file excel tham khảo trên mạng lấy tên file trong folder nhưng mỗi lần lại phải click vào mũi tên khoanh đỏ để chọn folder, nhờ các anh chị giúp em sửa code để em có thể thay đường link folder cố định thay vì phải bấm vào mũi tên kia để chọn folder ạ

SA_DQ · 13/10/21

Sửa chính tả tiêu đề của bài đi bạn & chúc khỏe:

sửa cách chọn tên folder

Datcdt2k9 · 13/10/21

SA_DQ đã viết:
Sửa chính tả tiêu đề của bài đi bạn & chúc khỏe:

Vâng bác, mong bác giúp đỡ

Maika8008 · 13/10/21

Datcdt2k9 đã viết:
Em chào mọi người
Em có file excel tham khảo trên mạng lấy tên file trong folder nhưng mỗi lần lại phải click vào mũi tên khoanh đỏ để chọn folder, nhờ các anh chị giúp em sửa code để em có thể thay đường link folder cố định thay vì phải bấm vào mũi tên kia để chọn folder ạ
View attachment 267607

Đoạn này nè. Dòng nào thừa tôi đã chuyển sang dạng ghi chú.

Rich (BB code):

'    ' Open folder dialog window
'    Application.FileDialog(msoFileDialogFolderPicker).Title = " Select foler"
'    intDialogue = Application.FileDialog(msoFileDialogFolderPicker).Show
    strPath = "D:\Temp" 'Thay duong dan cung vao day
    
    ' Retrieve the list of files
'    If intDialogue <> 0 Then
'        strPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
        Application.StatusBar = "Detecting count of files..."
        lngFiles = CountFiles(strPath)
        ReDim varFileList(1 To lngFiles, 1 To ActiveWorkbook.Worksheets(1).ListObjects("tab_files").DataBodyRange.Columns.Count)
        Set objFso = CreateObject("Scripting.FileSystemObject")
        lngRowCount = RetrieveFiles(strPath, objFso, 1)
        RetrieveFolders strPath, objFso, lngRowCount
'    End If

Datcdt2k9 · 13/10/21

Maika8008 đã viết:

Đoạn này nè. Dòng nào thừa tôi đã chuyển sang dạng ghi chú.

Rich (BB code):

'    ' Open folder dialog window
'    Application.FileDialog(msoFileDialogFolderPicker).Title = " Select foler"
'    intDialogue = Application.FileDialog(msoFileDialogFolderPicker).Show
    strPath = "D:\Temp" 'Thay duong dan cung vao day
   
    ' Retrieve the list of files
'    If intDialogue <> 0 Then
'        strPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
        Application.StatusBar = "Detecting count of files..."
        lngFiles = CountFiles(strPath)
        ReDim varFileList(1 To lngFiles, 1 To ActiveWorkbook.Worksheets(1).ListObjects("tab_files").DataBodyRange.Columns.Count)
        Set objFso = CreateObject("Scripting.FileSystemObject")
        lngRowCount = RetrieveFiles(strPath, objFso, 1)
        RetrieveFolders strPath, objFso, lngRowCount
'    End If

Bạn có thể sửa giúp mình chỉ cần open file excel là sẽ tự động chạy code thay vì phải bấm vào mũi tên kia ạ

Maika8008 · 13/10/21

Datcdt2k9 đã viết:
Bạn có thể sửa giúp mình chỉ cần open file excel là sẽ tự động chạy code thay vì phải bấm vào mũi tên kia ạ

Được nhưng để làm gì chứ. Muốn chạy lúc nào thì bấm 1 phát có gì trở ngại đâu.

Datcdt2k9 · 13/10/21

Maika8008 đã viết:
Được nhưng để làm gì chứ. Muốn chạy lúc nào thì bấm 1 phát có gì trở ngại đâu.

Mình định tính cài mở file tự động theo thời gian dùng task scheduler nên cần mở file là sẽ chạy code, bạn giúp mình nhé

Maika8008 · 14/10/21

Datcdt2k9 đã viết:
Mình định tính cài mở file tự động theo thời gian dùng task scheduler nên cần mở file là sẽ chạy code, bạn giúp mình nhé

Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Open

befaint · 14/10/21

Maika8008 đã viết:
Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Open

Anh đổi tên sub đó thành "Sub auto_open()" là được.

Maika8008 · 14/10/21

befaint đã viết:
Anh đổi tên sub đó thành "Sub auto_open()" là được.

À, thấy trước đây bạn trả lời cho ai đó vậy rồi nhưng không để ý tìm hiểu.

Datcdt2k9 · 15/10/21

Maika8008 đã viết:
Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Open

Mình cảm ơn bạn nhé

Datcdt2k9 · 17/10/21

Maika8008 đã viết:
Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Ope

Maika8008 đã viết:
Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Open

Vì 1 lý do mà mình cần tạo mới file excel. Mình copy nguyên code VBA từ module file gốc sang một file excel mới mà code vẫn chạy bình thường nhưng khi chạy xong không có data được export ra file exccel.Bạn giúp mình kiểm tra và sửa code sao cho giống với file excel ban đầu với ạ

Maika8008 · 17/10/21

Datcdt2k9 đã viết:
Vì 1 lý do mà mình cần tạo mới file excel. Mình copy nguyên code VBA từ module file gốc sang một file excel mới mà code vẫn chạy bình thường nhưng khi chạy xong không có data được export ra file exccel.Bạn giúp mình kiểm tra và sửa code sao cho giống với file excel ban đầu với ạ

Tôi không hiểu giống với file ban đầu là file nào?

Datcdt2k9 · 18/10/21

Maika8008 đã viết:

Đoạn này nè. Dòng nào thừa tôi đã chuyển sang dạng ghi chú.

Rich (BB code):

'    ' Open folder dialog window
'    Application.FileDialog(msoFileDialogFolderPicker).Title = " Select foler"
'    intDialogue = Application.FileDialog(msoFileDialogFolderPicker).Show
    strPath = "D:\Temp" 'Thay duong dan cung vao day
  
    ' Retrieve the list of files
'    If intDialogue <> 0 Then
'        strPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
        Application.StatusBar = "Detecting count of files..."
        lngFiles = CountFiles(strPath)
        ReDim varFileList(1 To lngFiles, 1 To ActiveWorkbook.Worksheets(1).ListObjects("tab_files").DataBodyRange.Columns.Count)
        Set objFso = CreateObject("Scripting.FileSystemObject")
        lngRowCount = RetrieveFiles(strPath, objFso, 1)
        RetrieveFolders strPath, objFso, lngRowCount
'    End If

Vẫn là bài ban đầu bên trên code mình nhờ bạn chỉnh sửa, khi mình tạo file mới và copy y chang module sang mà không được.

Maika8008 đã viết:
Gọi sub RetrieveFilesandFolders từ sự kiện Workbook_Open

File ban đầu là file này bạn ạ, mình copy y chang 2 mudule trong file này, dán sang file excel tạo mới mà không export được data

ongke0711 · 18/10/21

Datcdt2k9 đã viết:
Vẫn là bài ban đầu bên trên code mình nhờ bạn chỉnh sửa, khi mình tạo file mới và copy y chang module sang mà không được.

File ban đầu là file này bạn ạ, mình copy y chang 2 mudule trong file này, dán sang file excel tạo mới mà không export được data

Trong code tôi thấy có tham chiếu tới cái tên "tab-files". Trong file mới bạn có đặt tên table giống vậy chưa?

.ListObjects("tab_files")....

Datcdt2k9 · 18/10/21

Ok

ongke0711 đã viết:
Trong code tôi thấy có tham chiếu tới cái tên "tab-files". Trong file mới bạn có đặt tên table giống vậy chưa?

.ListObjects("tab_files")....

Mình cảm ơn bạn nhé

[ Cần giúp đỡ ] Chỉnh code cách chọn tên folder (1 người xem)

Người dùng đang xem chủ đề này

Thành viên hoạt động

File đính kèm

/(hông là gì!

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

File đính kèm

|||||||||||||

Thành viên gạo cội

Thành viên hoạt động

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

Đếm ngược thời gian