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,029
Được thích
3,528
Đ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
481
Được thích
108
Điểm
395
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