Nhờ các bạn giúp bật lại chức năng seach tìm file trong excel

phulien1902

GPE - My love
Tham gia ngày
6 Tháng bảy 2013
Bài viết
3,056
Được thích
3,587
Điểm
560
Nơi ở
Hải Phòng
Nhờ các bạn giúp bật lại chức năng seach tìm file trong excel
Có phải:
PHP:
Sub OpenFile()
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls;*.xlsm*")
If myFileName <> False Then
    Workbooks.Open (myFileName)
End If
End Sub
 

hiénlinh197

Thành viên tích cực
Tham gia ngày
26 Tháng năm 2009
Bài viết
485
Được thích
111
Điểm
695
Có phải:
PHP:
Sub OpenFile()
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls;*.xlsm*")
If myFileName <> False Then
    Workbooks.Open (myFileName)
End If
End Sub
Đúng rồi bạn phulien1902. mình chạy code trên của bạn nó cũng báo như hình ảnh trên, Chắc bạn có hướng giải quyết. Giúp mình với nhé. Cảm ơn bạn,
 
Top