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
3,009
Thích
3,492
Đ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 tích cực
Tham gia ngày
26 Tháng năm 2009
Bài viết
436
Thích
82
Đ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