quyenpv
Thu nhặt kiến thức
- Tham gia
- 5/1/13
- Bài viết
- 721
- Được thích
- 97
- Giới tính
- Nam
- Nghề nghiệp
- Decode cuộc đời!
Mã:
Private Sub cmdAdd_Tinh_Click()
Dim StrPath As String
StrPath = Application.GetOpenFilename(VNI("Teäp tin Ñôn giaù") & "(*.xls),*.xls,All Files (*.*),*.*", 1, VNI("Choïn teäp tin Ñôn giaù"), VNI("Môû"), False)
If StrPath = "False" Then Exit Sub
If SheetExist(get_Foldername_ofpath(StrPath), Get_FileName(StrPath), "Infor") = False Then
ShowHelp VNI("File [" & Get_FileName(StrPath) & "] khoâng thuoäc kieåu döõ lieäu cuûa chöông trình"), 116
Exit Sub
End If
If Kiemtra_Duongdan(get_Foldername_ofpath(StrPath) & "\Infor.ini") = False Then
ShowHelp VNI("Baïn vui loøng kieåm tra laïi file thoâng tin ñôn giaù keøm theo döõ lieäu"), 117
Exit Sub
End If
'- Kiem tra xem co trung so voi du lieu mac dinh
If lb1.ListCount > 0 Then
For i = 1 To lb1.ListCount
If Replace(lb1.List(i), "*", "", 1, -1, vbTextCompare) Like StrPath Then
ShowWarning VNI("Ñöông daãn : [" & StrPath & "] ñaõ coù. Baïn vui loøng choïn laïi ñöôøng daãn khaùc")
Exit Sub
End If
Next
End If
'Kiem tra trung so voi du lieu Dung chung
Dim tmpDG As String
If lb1.ListCount > 0 Then
For i = 1 To lb1.ListCount
tmpDG = Replace(lb1.List(i), "#[0]", "", 1, -1, vbTextCompare)
tmpDG = Replace(tmpDG, "#[1]", "", 1, -1, vbTextCompare)
tmpDG = Replace(tmpDG, "#[2]", "", 1, -1, vbTextCompare)
tmpDG = Replace(tmpDG, "#[3]", "", 1, -1, vbTextCompare)
' tmpDG = Replace(tmpDG, "#[4]", "", 1, -1, vbTextCompare)
If tmpDG Like StrPath Then
ShowWarning VNI("Ñöông daãn : [" & StrPath & "] ñaõ coù. Baïn vui loøng choïn laïi ñöôøng daãn khaùc")
Exit Sub
End If
Next
End If
If SheetExist(get_Foldername_ofpath(StrPath), Get_FileName(StrPath), "Infor") = False Then
ShowHelp VNI("File [" & Get_FileName(StrPath) & "] khoâng thuoäc kieåu döõ lieäu cuûa chöông trình"), 116
Exit Sub
End If
If Kiemtra_Duongdan(get_Foldername_ofpath(StrPath) & "\Infor.ini") = False Then
ShowHelp VNI("Baïn vui loøng kieåm tra laïi file thoâng tin ñôn giaù keøm theo döõ lieäu"), 117
Exit Sub
End If
If lb1.ListCount = 0 Then
lb1.AddItem "**" & StrPath
'- Nap thong tin vao file ConfigRibbon
Dim strInfor As String
strInfor = get_Foldername_ofpath(StrPath) & "\Infor.ini"
With ThisWorkbook.Sheets("Config_Ribbon")
.Range("B118").Value = Write_Ini_Excel(strInfor, "Thongtin", "DG:", "DG")
.Range("B119").Value = Write_Ini_Excel(strInfor, "Thongtin", "DM:", "DM")
.Range("B120").Value = Write_Ini_Excel(strInfor, "Thongtin", "TDVT:", "TDVT")
.Range("B121").Value = Write_Ini_Excel(strInfor, "Thongtin", "GVT:", "GVT")
.Range("B122").Value = Write_Ini_Excel(strInfor, "Thongtin", "PLV:", "PLV")
.Range("B123").Value = Write_Ini_Excel(strInfor, "Thongtin", "CVC:", "CVC")
.Range("B124").Value = Write_Ini_Excel(strInfor, "Thongtin", "TDCM:", "TDCM")
End With
Else
lb1.AddItem StrPath
End If
End Sub
Mình có đoạn code này, khi thêm đường dẫn 1 file vào Listbox. Mục đích sẽ kiểm tra có chọn trùng file trước đó không thì bị báo lỗi
Mong anh chị em ghé qua giúp đỡ