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

• #9571 Delila_1 veterán Oly #9570

  Új Válasz 2011-02-28 19:07:30 #9571

  Ú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

  

  Delila_1

  veterán

  válasz Oly #9570 üzenetére

  Feltételezve, hogy a füzetekben, és a gyűjtő füzetben az első sorban megvan a címsor, valamint, hogy az összemásolandó adatok az A oszlopban kezdődnek:

  Sub Osszadat()
  Dim wbgyujto As Workbook, wb2 As Workbook
  Dim utvonal As String, FN As String
  
  Application.ScreenUpdating = False
  utvonal = "E:\Temp\"
  
  Set wbgyujto = ActiveWorkbook
  
  FN = Dir$(utvonal & "*.*", vbDirectory)
  Do While (Len(FN) > 0)
  If Not (FN = "." Or FN = "..") Then
  Workbooks.Open Filename:=utvonal & FN
  Set wb2 = ActiveWorkbook
  Range("A2").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Copy
  wb2.Close
  Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
  ActiveSheet.Paste
  End If
  FN = Dir$()
  Loop
  
  Application.ScreenUpdating = True
  Msgbox "Kész az összemásolás"
  End Sub

  Az utvonal = "E:\Temp\" sort írd át a saját útvonaladra

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