Új hozzászólás Aktív témák

• #47589 Pakliman tag BEndre34 #47586

  Új Válasz 2021-10-18 13:41:36 #47589

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz BEndre34 #47586 üzenetére

  Szia!

  Megoldható úgy is: az útvonalat a ThisWorkbook.Path fogja megadni a makróm elején:
  MFName = Dir(ThisWorkbook.Path & "\Jelenléti ##.##.xlsx")

  De egy másik lehetőség:
  A kollégák választják ki a szükséges táblázatokat (hibakezelést itt sem csináltam!).
  Az összesítő munkalapra teszel egy ActiveX CommandButton-t, aminek a kódja:
  Private Sub CommandButton1_Click()
Dim twb As Workbook: Set twb = ThisWorkbook
Dim fd As FileDialog
Dim i As Long
Dim MFName As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Excel Files", "*.xls*"

If .Show = -1 Then
For i = 1 To .SelectedItems.Count
If .SelectedItems(i) Like "*\Jelenléti ##.##.xls*" Then
Workbooks.Open Filename:=.SelectedItems(i)
MFName = ActiveWorkbook.Name
ActiveWorkbook.Sheets(1).Copy Before:=twb.Sheets(1)
ActiveSheet.Name = Mid(MFName, 11, 6)
Workbooks(MFName).Close SaveChanges:=False
End If
Next i
End If
End With
End Sub

Új hozzászólás Aktív témák