Xin chào mọi người trên GPE,
Mình có chỉnh sửa code load tên ảnh vào combobox trên diễn đàn GPE, tuy nhiên khi mình copy cả thư mục chứa file và ảnh sang 1 thư mục khác thì không load được tên ảnh trong cùng thư mục
Nhờ mọi người giúp đỡ
Vì dung lượng file không cho phép nên mình up lên google driver
drive.google.com
Mình có chỉnh sửa code load tên ảnh vào combobox trên diễn đàn GPE, tuy nhiên khi mình copy cả thư mục chứa file và ảnh sang 1 thư mục khác thì không load được tên ảnh trong cùng thư mục
Nhờ mọi người giúp đỡ
Mã:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim fA()
Dim I, n As Integer
Dim dName As Variant
ChDir ActiveWorkbook.Path
'ChDir "C:\Users\Administrator\Desktop\New folder" 'Ð?a ch? du?ng d?n noi ch?a ?nh
dName = Dir("*.jpg") 'Tên d?i tu?ng du?c ch?n là các ?nh có duôi .jpg trong thu m?c
'N?p các d?i tu?ng có trong thu m?c vào trong 1 danh sách
Do While dName <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA(n) = dName
dName = Dir()
Loop
'N?p danh sách vào Combobox cbSale
For I = 1 To n
cbSale.AddItem fA(I)
Next
Application.ScreenUpdating = True
Label16 = Sheets("DATA").Range("I1").Value
Dim lr As Long
lr = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Row
lb1.List = Sheets("DATA").Range("A1:F" & lr).Value
Label11.Caption = ""
TextBox1.Value = ""
cbSale.Value = ""
Label10.Caption = Sheets("DATA").Range("I2").Value
CheckBox1.Value = False
Label17.Caption = ""
tx5.Visible = False
End SubVì dung lượng file không cho phép nên mình up lên google driver
BaoGia.rar
drive.google.com
