Mình có Macro sau:
Sub In_danh_sach_hoa_don()
MyFolder = "C:\Users\Admin\Desktop\thang 12\Test Huy"
Dim fs, f, f1, fc, s
Dim vung_du_lieu, bien_chay As Range
Set vung_du_lieu = ThisWorkbook.Sheets(1).Range("B10:B100")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyFolder)
Set fc = f.Files
For Each f1 In fc
s = f1.Name
Dim my_so_hoa_don As String
my_so_hoa_don = Mid(s, 20, 7)
For Each bien_chay In vung_du_lieu
Dim test As Boolean
MsgBox bien_chay.Value
If bien_chay.Value = my_so_hoa_don Then
in_file (s)
End If
Next
Next
End Sub
Trong đó: khi debug thì: bien_chay.Value và my_so_hoa_don đều cho giá trị là: 0115036 mà khi so sánh lại không bằng nhau và ko chui vào điều kiện If.
Các bro giải xem giúp mình với. Trong đó, my_so_hoa_don mình lấy từ tên file, và bien_chay.Value mình lấy từ ô trong file excel.
Sub In_danh_sach_hoa_don()
MyFolder = "C:\Users\Admin\Desktop\thang 12\Test Huy"
Dim fs, f, f1, fc, s
Dim vung_du_lieu, bien_chay As Range
Set vung_du_lieu = ThisWorkbook.Sheets(1).Range("B10:B100")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyFolder)
Set fc = f.Files
For Each f1 In fc
s = f1.Name
Dim my_so_hoa_don As String
my_so_hoa_don = Mid(s, 20, 7)
For Each bien_chay In vung_du_lieu
Dim test As Boolean
MsgBox bien_chay.Value
If bien_chay.Value = my_so_hoa_don Then
in_file (s)
End If
Next
Next
End Sub
Trong đó: khi debug thì: bien_chay.Value và my_so_hoa_don đều cho giá trị là: 0115036 mà khi so sánh lại không bằng nhau và ko chui vào điều kiện If.
Các bro giải xem giúp mình với. Trong đó, my_so_hoa_don mình lấy từ tên file, và bien_chay.Value mình lấy từ ô trong file excel.
