Sub NewToNewCICO()
Dim OldReportFolder
Dim NewReportFolder
Dim CompareResultFolder
'Dim wkTemplate As Workbook
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim SummaryResult As String
Set xlapp = CreateObject("excel.application")
Dim Threshold
BaselineReportFolder = "C:\AutoTest\ASAP2.0 RE Baseline\CICO\Baseline"
NewReportFolder = "C:\AutoTest\ASAP2.0 RE Baseline\CICO\New"
CompareResultFolder = "C:\AutoTest\ASAP2.0 RE Baseline\CICO\Result"
SummaryResult = "C:\AutoTest\ASAP2.0 RE Baseline\SummaryResult.xlsx"
'Before test, delete all existing result files
Call DeleteFiles(CompareResultFolder)
Name = Dir(BaselineReportFolder & "/*.xlsx")
Do While Name <> ""
FileName = Left(Name, Len(Name) - 10)
'Copy template file
'Set wkTemplate = Workbooks.Open(CompareResultFolder & "\" & "Template.xlsx")
'wkTemplate.SaveAs (CompareResultFolder & "\" & FileName & "_Result.xlsx")
'wkTemplate.Close
Set xlbook = xlapp.Workbooks.Add
xlapp.Visible = True
xlbook.SaveAs CompareResultFolder & "\" & FileName & "_Result.xlsx"
xlbook.Close
Threshold = 0.00001
Call CICO(BaselineReportFolder, NewReportFolder, CompareResultFolder, FileName, Threshold, SummaryResult)
Name = Dir
Loop
End Sub
'Function ProcessBondCashflow(ByVal BaselineReportFolder As Stirng, ByVal NewReportFolder As String, ByVal CompareResultFolder As Stirng
VBA
最新推荐文章于 2023-03-29 22:22:35 发布