Hỏi về GetOpenFileName (1 người xem)

[blue_green]

Hiện tại tôi vẫn dùng phương thức GetOpenFileName để lấy dữ liệu từ 1 file.
Xin hỏi là có cách nào để mở nhanh đến 1 thư mục được chỉ định sẵn.

Ví dụ: các file dữ liệu tôi để ở folder C:\Data\.
Giờ tôi muốn khi chạy GetOpenFileName sẽ tự động mở ngay đến thư mục Data, mình chỉ việc chọn file trong đó.

Thanks.

 

[thanhlanh]

Hiện tại tôi vẫn dùng phương thức GetOpenFileName để lấy dữ liệu từ 1 file.
Xin hỏi là có cách nào để mở nhanh đến 1 thư mục được chỉ định sẵn.

Ví dụ: các file dữ liệu tôi để ở folder C:\Data\.
Giờ tôi muốn khi chạy GetOpenFileName sẽ tự động mở ngay đến thư mục Data, mình chỉ việc chọn file trong đó.

Thanks.

Ban hãy dùng FileDialog linh hoạt hơn, ví dụ:

Sub OpenFile()
    With Application.FileDialog(msoFileDialogOpen)
        '.InitialFileName = "%UserProfile%\My Documents\Downloads"
        .InitialFileName = "D:\"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "File cua tui", "*.xls"
        .Show
        If .SelectedItems.Count Then
            oFile = .SelectedItems(1)
            Set wb = Workbooks.Open(oFile)
        End If
    End With
End Sub

Nếu đường dẫn sai nó sẽ mở My Documents

 

[blue_green]

Cảm ơn anh đã nhiệt tình giúp đỡ.