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

Tham gia ngày
6 Tháng bảy 2013
Bài viết
2,483
Thích
2,678
#2
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 thường trực
Tham gia ngày
26 Tháng năm 2009
Bài viết
397
Thích
70
#3
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