Vào ngay Folder chứa File khi dùng Application.GetOpenFilename

[Yeuvoyeucon]

Kính gửi Anh chị,
Em dùng Application.GetOpenFilename để mở forder và lấy dữ liệu của files trong Folder. Khi em chạy code thì không ra đường dẫn ngay, mà phải chọn để tìm ra path để lấy File. Với Forlder có tên không dấu thì em thêm đoạn này FileSystem.ChDir ActiveWorkbook.Path là vào trực tiếp Forder chứa dữ liệu, nhưng Forder tiếng Việt nó báo lỗi. Giờ có cách gì khắc phục lỗi này và đạt được mục đích vào thẳng Folder chứa dữ liệu ạ.

FileSystem.ChDir ActiveWorkbook.Path
FileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _
Title:="Get data", _
MultiSelect:=True)

 

[befaint]

FileDialog mới có InitialFileName

 

[Yeuvoyeucon]

FileDialog mới có InitialFileName

Em đã thử mà vẫn không được anh ạ. A hướng dẫn thêm giúp em với

Set fd = Application.FileDialog(msoFileDialogOpen)
fd.InitialFileName = ThisWorkbook.Path
FileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _
Title:="Get data", _
MultiSelect:=True)

 

[quanluu]

đã dùng filedialog rồi thì dùng getopenfilename làm gì bạn.

Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
    .Title = "Select a File"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With

 

[Yeuvoyeucon]

đã dùng filedialog rồi thì dùng getopenfilename làm gì bạn.

Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
    .Title = "Select a File"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With

Code không được a.

 

[quanluu]

Code không được a.

code không được gì bạn? sItem chính là file bạn chọn trong thư mục đó để chạy lấy dữ liệu.

 

[Yeuvoyeucon]

code không được gì bạn? sItem chính là file bạn chọn trong thư mục đó để chạy lấy dữ liệu.

Code của anh là giống trang này

Meaning of fldrPicker.show=-1 then in vba coding

Hi all, I am trying to understand the meaning of the below code: Any one's help will be appreciated..Thanks in advance Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title = "Select A Target Folder"...

www.mrexcel.com

Em có một File chứa code và các files cần lấy trong folder. Khi mở File chứa code, bấm thì nó đi đến trực tiếp folđer chứa các File này.

 

[quanluu]

Code của anh là giống trang này

Meaning of fldrPicker.show=-1 then in vba coding

Hi all, I am trying to understand the meaning of the below code: Any one's help will be appreciated..Thanks in advance Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title = "Select A Target Folder"...

www.mrexcel.com

Em có một File chứa code và các files cần lấy trong folder. Khi mở File chứa code, bấm thì nó đi đến trực tiếp folđer chứa các File này.

thì thay đoạn code này: .InitialFileName = strPath, strPath là đường dẫn cần nó trỏ đến thôi.

 

[Yeuvoyeucon]

thì thay đoạn code này: .InitialFileName = strPath, strPath là đường dẫn cần nó trỏ đến thôi.

Ý bác em chưa hiểu
Đoạn dưới này có thay được không bác.
Dim fso as FileSystemObject
localPath as String
localFullFileName as String
localPath = fso.GetParentFolderName(fso.GetAbsolutePathName(Application.ActiveWorkbook.Name))
localFullFileName = fso.GetAbsolutePathName(Application.ActiveWorkbook.Name)

 

[be_09]

Kính gửi Anh chị,
Em dùng Application.GetOpenFilename để mở forder và lấy dữ liệu của files trong Folder. Khi em chạy code thì không ra đường dẫn ngay, mà phải chọn để tìm ra path để lấy File. Với Forlder có tên không dấu thì em thêm đoạn này FileSystem.ChDir ActiveWorkbook.Path là vào trực tiếp Forder chứa dữ liệu, nhưng Forder tiếng Việt nó báo lỗi. Giờ có cách gì khắc phục lỗi này và đạt được mục đích vào thẳng Folder chứa dữ liệu ạ.

FileSystem.ChDir ActiveWorkbook.Path
FileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _
Title:="Get data", _
MultiSelect:=True)

Một câu hỏi không cụ thể:
Ý muốn giúp code làm cái gì thì phải nêu rõ, ví dụ: Tôi muốn giúp code khi click vào nút thì chọn bất kỳ Folder, tiếp theo là chọn bất kỳ File hoặc tất cả các File để lấy dữ liệu vào 1 sheet hoặc mỗi sheet của các File là 1 sheet riêng.

 

[truongvu317]

Phải chăng là hiện một hộp thoại chọn file nào đó. Mà cái hộp thoại đó sẽ hiển thị nội dung của một thư mục nào đó để có thể dùng chuột chọn CÁC file luôn. Giúp chọn nhanh ngay các file không phsir duyệt nhiều thư mục?

 

[Yeuvoyeucon]

Phải chăng là hiện một hộp thoại chọn file nào đó. Mà cái hộp thoại đó sẽ hiển thị nội dung của một thư mục nào đó để có thể dùng chuột chọn CÁC file luôn. Giúp chọn nhanh ngay các file không phsir duyệt nhiều thư mục?

Đúng bạn. Bình thường nếu tên thu mục là không dấu thì mình thêm đoạn này FileSystem.ChDir ActiveWorkbook.Path nó sẽ đi thẳng đển thư mục chứa File mà không phải tìm theo đường dẫn của hộp thoại nữa. Nhưng nếu thư mục tiếng việt có dấu thì không được nữa.

 

[giaiphap]

Đúng bạn. Bình thường nếu tên thu mục là không dấu thì mình thêm đoạn này FileSystem.ChDir ActiveWorkbook.Path nó sẽ đi thẳng đển thư mục chứa File mà không phải tìm theo đường dẫn của hộp thoại nữa. Nhưng nếu thư mục tiếng việt có dấu thì không được nữa.

Chắc có lẽ thế này.

.InitialFileName = ThisWorkbook.Path

 

[Yeuvoyeucon]

Chắc có lẽ thế này.

.InitialFileName = ThisWorkbook.Path

Chắc có lẽ thế này.

.InitialFileName = ThisWorkbook.Path

Đúng rồi anh ạ. Em cảm ơn anh.