bạn đã sửa được chưa ??? mình cũng bị y trang vậy khi chạy trên excel 2010, khi chay tren 2003 thi khong sao
Sub timfile()
Dim i As Long, mydir As String, ii As String
mydir = ThisWorkbook.Path & "\data"
With User.ComboBox2
.Clear
.ColumnCount = 1
.ColumnWidths = "100pt"
End With
With Application.FileSearch
.LookIn = mydir
.Filename = "*.mdb"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ii = Replace(.FoundFiles(i), mydir & "\", "")
User.ComboBox2.AddItem ii
Next i
User.ComboBox2.value = ii
End If
End With
End Sub
Mình cũng bị như vậy mà ko biết làm thế nào nữaEm tải về mở ra được thế này mà không biết làm thế nào nữa, mong bác chỉ giáo ạ!View attachment 134465
Em tải về mở ra được thế này mà không biết làm thế nào nữa, mong bác chỉ giáo ạ!View attachment 134465
Mình tải cũng chỉ thấy đc như vậy thôi.mọi người chỉ mình với
bác cho em 1 file vào mail được ko ak mail: truongtiep0203@gmail.com vì em tải về ko dùng được akSau một thời gian ngồi viết lach, cuối cùng mình cũng ra được một chương trinh nho nhỏ chuyên việc quản lý vận chuyển như: chi phí, doanh thu, xăng dầu, sửa chữa... Chương trình này khá nhỏ và được viết ra để đáp ứng đúng yêu cầu của công ty mình hiện tại. Hôm nay xin load lên đây cho những bác nào cũng làm trong ngành vận tải và đang quan tâm đến vấn đề quản lý chi phí các chuyến vận tải.
Các bác cứ check và cho ý kiến nhé
user: admin
pass: 123
Note: phải giải nén toàn bộ mới chạy được, chương trình không chạy trực tiếp ở màn hình giải nén.
Chào bạnSau một thời gian ngồi viết lach, cuối cùng mình cũng ra được một chương trinh nho nhỏ chuyên việc quản lý vận chuyển như: chi phí, doanh thu, xăng dầu, sửa chữa... Chương trình này khá nhỏ và được viết ra để đáp ứng đúng yêu cầu của công ty mình hiện tại. Hôm nay xin load lên đây cho những bác nào cũng làm trong ngành vận tải và đang quan tâm đến vấn đề quản lý chi phí các chuyến vận tải.
Các bác cứ check và cho ý kiến nhé
user: admin
pass: 123
Note: phải giải nén toàn bộ mới chạy được, chương trình không chạy trực tiếp ở màn hình giải nén.