Sửa lại code filesearch (1 người xem)

[nguhucu]

Các bác giúp em sửa lại code của file excel bị lỗi form đăng nhập vì em dùng 2007 và 2010 form này code 2003 bị lỗi file search.cám ơn cá bác nhiều.
user :admin/pass 123

 

[HieuCD]

Các bác giúp em sửa lại code của file excel bị lỗi form đăng nhập vì em dùng 2007 và 2010 form này code 2003 bị lỗi file search.cám ơn cá bác nhiều.
user :admin/pass 123

bạn dùng thử code nầy
Sub timfile()
Dim i As Long, mydir As String, ii As String, f, f1, fc, fs
mydir = ThisWorkbook.Path & "\data"
With User.ComboBox2
.Clear
.ColumnCount = 1
.ColumnWidths = "100pt"
End With
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(mydir)
Set fc = f.Files
For Each f1 In fc
If InStr(1, f1, ".mdb") > 0 Then
ii = Replace(f1, mydir & "", "")
User.ComboBox2.AddItem ii
End If
Next
End Sub

 

[nguhucu]

Cám ơn bạn nhiều thiệt nhiều nhé.Mình làm được rồi.