copy paste2

dl0506

1. Option Explicit
   
2. 
   
3. Public Sub ImportCombine_Step1_Main()
   
4.     Dim dtStartTime As Date
   
5.     Dim dtEndTime As Date
   
6.     Dim myWkb As Workbook
   
7.     Dim wkb_EachSubFile As Workbook
   
8.     Dim wks_EachSubFileSheet1 As Worksheet
   
9.     Dim sEachSubFileName As String
   
10.     Dim arr_AllFileNames As Variant
    
11.     Dim iLoop As Long
    
12.     Dim iProcessedFile As Long
    
13.    
    
14.     '/ initial
    
15.     dtStartTime = Now
    
16.     Application.ScreenUpdating = False
    
17.     Application.DisplayAlerts = False
    
18.     Set myWkb = ThisWorkbook
    
19.     Call InitialLog
    
20. 
    
21.     '/ check input file folder
    
22.     If CheckFolderFile(sInput1_FolderPath) = False Then
    
23.         Exit Sub
    
24.     End If
    
25. 
    
26.    '/ Get folder files
    
27.     arr_AllFileNames = GetFilesName(sInput1_FolderPath)
    
28.     For iLoop = 0 To UBound(arr_AllFileNames)
    
29.         sEachSubFileName = sInput1_FolderPath & "" & arr_AllFileNames(iLoop)
    
30.         Application.AskToUpdateLinks = False
    
31.         Set wkb_EachSubFile = Workbooks.Open(sEachSubFileName, False)
    
32.         Select Case iType
    
33.             Case 1 '/ D365
    
34.                 '/ process Each Folder File
    
35.                 If GetData_D365(wkb_EachSubFile) = True Then
    
36.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine OK")
    
37.                     iProcessedFile = iProcessedFile + 1
    
38.                 Else
    
39.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine Error")
    
40.                 End If
    
41.                 wkb_EachSubFile.Close SaveChanges:=False
    
42.                 Set wkb_EachSubFile = Nothing
    
43. 
    
44.             Case 2  '/ Zhao hang
    
45.                 '/ process Each Folder File
    
46.                 If GetData_CMB(wkb_EachSubFile) = True Then
    
47.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine OK")
    
48.                     iProcessedFile = iProcessedFile + 1
    
49.                 Else
    
50.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine Error")
    
51.                 End If
    
52.                 wkb_EachSubFile.Close SaveChanges:=False
    
53.                 Set wkb_EachSubFile = Nothing
    
54.             Case 3 '/ hua qi
    
55.                 '/ process Each Folder File
    
56.                 If GetData_CitiBank(wkb_EachSubFile) = True Then
    
57.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine OK")
    
58.                     iProcessedFile = iProcessedFile + 1
    
59.                 Else
    
60.                     Call WriteDataToLog("File [" & arr_AllFileNames(iLoop) & " ]", "Combine Error")
    
61.                 End If
    
62.                 wkb_EachSubFile.Close SaveChanges:=False
    
63.                 Set wkb_EachSubFile = Nothing
    
64.         End Select
    
65.     Next
    
66.     '/ end
    
67.     With Application
    
68.         .ScreenUpdating = True
    
69.         .DisplayAlerts = True
    
70.     End With
    
71.     dtEndTime = Now
    
72.     Call WriteDataToLog("Combine Process Completed.", "OK")
    
73.     Call ShowMsgbox("Combine Processing Completed, Please Check it." & vbCrLf & vbCrLf & _
    
74.                                 "Process Combine Files Count [ " & iProcessedFile & " ]" & vbCrLf & vbCrLf & _
    
75.                                 "Processing Time : [ " & TimeDiff(dtStartTime, dtEndTime) & " ]", 1)
    
76.     Exit Sub
    
77. ErrorHandle:
    
78.     MsgBox "Error [ PaymentCheck_Step1_Main ]", vbExclamation, "Error"
    
79. End Sub
    
80. Public Sub EmptyTemplateSheet()
    
81.     Dim myWkb As Workbook
    
82.    
    
83.     Set myWkb = ThisWorkbook
    
84.     '/ initial Combine sheet data
    
85.     With myWkb.Worksheets("TemplateSheet")
    
86.         .AutoFilterMode = False
    
87.         .Columns("A:AZ").Hidden = False
    
88.         .Range("A2:Z1048576").Delete
    
89.     End With
    
90.     Call ShowMsgbox("TemplateSheet Data Empty OK.", 1)
    
91. End Sub
    
92. Public Sub GetLoadTitle(ByVal strType As String)
    
93.     Dim myWkb As Workbook
    
94.     Dim iLastRow As Long
    
95.     Dim iLoop As Long
    
96.     Dim myMappingSheet As Worksheet
    
97.    
    
98.     Set myWkb = ThisWorkbook
    
99.     Set myMappingSheet = myWkb.Worksheets("Mapping")
    
100.     Set dic_LoadTitle = CreateObject("Scripting.dictionary")
     
101.     With myMappingSheet
     
102.         .AutoFilterMode = False
     
103.         .Range("A:AZ").EntireColumn.Hidden = False
     
104.         iLastRow = .Range("A65536").End(xlUp).Row
     
105.         Select Case strType
     
106.             Case "D365"
     
107.                 For iLoop = 2 To iLastRow
     
108.                     If .Cells(iLoop, "A").Value <> "" And .Cells(iLoop, "C").Value <> "" Then
     
109.                         dic_LoadTitle(.Cells(iLoop, "C").Value) = .Cells(iLoop, "A").Value
     
110.                     End If
     
111.                 Next
     
112.             Case "CitiBank"
     
113.                 For iLoop = 2 To iLastRow
     
114.                     If .Cells(iLoop, "A").Value <> "" And .Cells(iLoop, "D").Value <> "" Then
     
115.                         dic_LoadTitle(.Cells(iLoop, "D").Value) = .Cells(iLoop, "A").Value
     
116.                     End If
     
117.                 Next
     
118.             Case "CMB"
     
119.                 For iLoop = 4 To iLastRow
     
120.                     If .Cells(iLoop, "A").Value <> "" And .Cells(iLoop, "E").Value <> "" Then
     
121.                         dic_LoadTitle(.Cells(iLoop, "E").Value) = .Cells(iLoop, "A").Value
     
122.                     End If
     
123.                 Next
     
124.         End Select
     
125.     End With
     
126. End Sub
     
127. 
     

复制代码