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

• m.zmrzlina senior tag

  2014-12-16 17:43:41 #24647

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  Van itt ez a kód. Egy részét Delila_1 egy korábbi hsz-ból loptam, az elejét pedig a neten találtam. Működik de van pár sor benne amit nem értek. Hálás lennék ha valaki tudna válaszolni a kérdéseimre.

  Előre is köszi.

  Sub osszesito()
  Dim strMunkamappa As String
  Dim munkamappa
  Dim FN As String
  ???Milyen tipusú objektumváltozó a munkamappa???
  Set munkamappa = Application.FileDialog(msoFileDialogFolderPicker)

  With munkamappa
  .AllowMultiSelect = False
  If .Show <> -1 Then Exit Sub
  strMunkamappa = .SelectedItems(1)
  End With

  ChDir strMunkamappa
  FN = Dir(strMunkamappa & "\" & "*.xls", vbNormal)
  Do
  ???Egészen pontosan mi ez a feltétel (magyarul mikor lesz FN "." vagy ".."???
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=strMunkamappa & "\" & FN

  ActiveWorkbook.Worksheets("nemrogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("nemrogzit").Range("A" & ThisWorkbook.Worksheets("nemrogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)
  ActiveWorkbook.Worksheets("rogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("rogzit").Range("A" & ThisWorkbook.Worksheets("rogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)

  ??? Itt mi az ami False???
  ActiveWorkbook.Close False
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

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