Question

我正在试图弄清楚哪些文件按什么顺序处理，我的宏的输出没有办法解密订单。我有4种不同的食谱，将完全相同的CSV文件吐出到同一目录中，并且它们不易分离（它们按时间戳记排序）。以下是宏：

最终编译的工作簿非常适合我想要的，除了我无法确定哪些行属于哪个配方。任何想法或帮助表示赞赏。

Sub loopAllMeasAndIR()

Dim sPath As String
Dim s2Path As String
Dim sFil As String
Dim strName As String
Dim twbk As Workbook
Dim owbk As Workbook
Dim ws As Worksheet
Dim row As Integer, col As Integer
Dim deleted As Integer
Dim actualRow As Integer
Dim totalRows As Integer
Dim totalCols As Integer
Dim MyDay
Dim MyMonth
Dim MyYear
Dim MyHour
Dim MyMinute
Dim MySeconds
Dim MyTDS As String
Dim MyDate
Dim MyTime

Workbooks.Add 

Set twbk = ActiveWorkbook
sPath = "D:\tisET16\optical\goo\goo2\"
s2Path = "D:\tisET16\optical\goo\xlsx\"
s3Path = "D:\tisET16\optical\goo\friendly\"  

sFil = Dir(sPath & "*.csv")

Do While sFil <> ""

MyDate = Date
MyYear = Year(MyDate)
MyMonth = Month(MyDate)
MyDay = Day(MyDate)
MyTime = Time
MyHour = Hour(MyTime)
MyMinute = Minute(MyTime)
MySeconds = Second(MyTime)

MyTDS = (MyMonth & MyDay & MyYear & MyHour & MyMinute & MySecond)

strName = sPath & sFil   
 Set owbk = Workbooks.Open(strName) 
massageCSV        
    twbk.Sheets("sheet1").Range("A1048576").End(xlUp)(2).PasteSpecial xlPasteValues                               
            owbk.Close False     
    sFil = Dir        
 Loop

  twbk.SaveAs s3Path & "CSVFriendly" & MyTDS & ".xlsx", XlFileFormat.xlOpenXMLWorkbook
      ' CleanupCSVtoJMPFile    
  ActiveWorkbook.Close
End Sub

Dir（）如何决定在循环中处理哪个文件？

0 个答案: