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,776
Thích
3,138
Điểm
560
#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 tiêu biểu
Tham gia ngày
26 Tháng năm 2009
Bài viết
407
Thích
75
Điểm
395
#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