Вопросы относительно Dir VBA

Question

У меня есть набор файлов, которые я хочу прокрутить с именами файлов: Бюджет 2015, Бюджет 2016, Бюджет 2017 до 2022. Я прокручиваю их, используя Dir.

Dim OpenWb as workbook 
path = Dir("C:\pathtofile\Budget 20??.xlsx") 'Using the ? Dir Wildcard 
filepath = "C:\pathtofile\" 'Since Dir returns file name, not the whole path 
myHeadings = Split("Januari,Februari,Mars,April,Maj,Juni,Juli,Augusti,September,Oktober,November,December", ",") 
j = 0 
Do While Len(path) > 0 
    i = 0 
    If Dir = "Budget 2014.xlsx" Then 
     j=0 
    Else 
     For i = 0 To UBound(myHeadings) 
      Set openWb = Workbooks.Open(filepath & path) 
      MsgBox Len(path) 
      Set openWs = openWb.Sheets(myHeadings(i)) 
      If openWs.Range("C34") = 0 Then 
       currentWb.Sheets("Indata").Cells(70, i + 27 + 12 * (j + 1)).Value = "" 
      Else 
       currentWb.Sheets("Indata").Cells(70, i + 27 + 12 * (j + 1)).Value = openWs.Range("C34") 
      End If 
     Next i 
    End if 
    path = Dir 
    j= j + 1 
    Loop 

Беда в том, что в FilePath есть также файл под названием Бюджет 2014, который я не хочу перебрать, потому что 1) Это не обязательно, значения вычисляются уже и 2) Поскольку он щурит мой индексы в петле

Обновлен мой код. Но использование msgBox (path) внутри цикла i = 0 ... возвращает «Budget 2014.xlsx», который мне не нужен, и, следовательно, это «беспорядок» с моим j индексом.

Answer 1

Вы можете использовать метод Year. Нечто подобное,

Dim OpenWb as workbook, yearNo As Long, filepath As String 

filepath = "C:\pathtofile\" 
yearNo = Year(Date()) 

path = Dir("C:\pathtofile\Budget " & yearNo & ".xlsx") 

Do While Len(path) > 0 
    set OpenWb = Workbooks.open(filepath & path) ' Since Dir only returns file name 
    'Doing some things 
    yearNo = yearNo + 1 
    path = Dir("C:\pathtofile\Budget " & yearNo & ".xlsx") 
Loop 

Answer 2

Вы также можете попробовать это:

Dim OpenWb as workbook 
path = Dir("C:\pathtofile\Budget 20??.xlsx") 'Using the ? Dir Wildcard 
filepath = "C:\pathtofile\" 'Since Dir returns file name, not the whole path 
myHeadings = Split("Januari,Februari,Mars,April,Maj,Juni,Juli,Augusti,September,Oktober,November,December", ",") 
j = 0 
Do While Len(path) > 0 
    i = 0 
'change here: only execute if it's NOT the file you're NOT after 
    If Dir <> "Budget 2014.xlsx" Then 
     For i = 0 To UBound(myHeadings) 
      Set openWb = Workbooks.Open(filepath & path) 
      MsgBox Len(path) 
      Set openWs = openWb.Sheets(myHeadings(i)) 
      If openWs.Range("C34") = 0 Then 
       currentWb.Sheets("Indata").Cells(70, i + 27 + 12 * (j + 1)).Value = "" 
      Else 
       currentWb.Sheets("Indata").Cells(70, i + 27 + 12 * (j + 1)).Value = openWs.Range("C34") 
      End If 
     Next i 
'Change here: only update path & j if you processed the file 
     path = Dir 
     j= j + 1 
    End if 
    Loop 

Answer 3

Sub M_snb() 
c00 = "C:\pathtofile\" 
sn = Application.GetCustomListContents(4) 

c01 = Dir(c00 & "Budget 20*.xlsx") 
Do While c01 <> "" 
    If c01 <> "Budget 2014.xlsx" Then 
    With GetObject(c00 & c01) 
    For j = 0 To UBound(sn) 
    c02 = c02 & "|" & IIf(.Sheets(sn(j)).Range("C34") = 0, "", .Sheets(sn(j)).Range("C34")) 
    Next 
    .Close 0 
    End With 
    End If 
    c01 = Dir 
Loop 

sp = Split(Mid(c02, 2), "|") 
ThisWorkbook.Sheets("Indata").Cells(70, 51).Resize(, UBound(sp)) = sp 
End Sub