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

• #22345 Brutis újonc Brutis #22340

  Új Válasz 2014-07-08 16:20:37 #22345

  Ú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

  

  Brutis

  újonc

  válasz Brutis #22340 üzenetére

  Ennyire jutottam , de még mindig hibás.
  És sajnos nem boldogulok vele
  Sub talloz()

  'mappa ki tallózása
  With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  If .Show = -1 Then

  File_name = .SelectedItems(1)
  End If
  End With

  Call main(File_name)

  End Sub

  Sub main(File_name)

  'ForReading Megnyitás csak olvasásra 1
  'ForWriting 'Megnyitás csak írásra 2
  'ForAppending Megnyitás, hogy a fájl végére való íráshoz 8

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Könyvtár = fso.GetFolder(File_name)
  Set Fájlok = Könyvtár.Files

  Set munka = Workbooks()
  'a mappában lévő fájlok bejárása
  For Each Fájl In Fájlok
  'akt beállítás és megnyitás
  Set akt = Workbooks.Open(fileName:=Fájl)

  munka.Worksheets.Add.Name = akt.Worksheets(i).Name
  For i = 1 To munka.Worksheets.Count

  akt.Name ("Aktuális")
  akt.Worksheets(i).Range("A1:L43").Copy Destination:=munka.Worksheets().Rows(1).Columns("a")
  'For i = 1 To munka.Worksheets.Count
  'akt.name a munkafüzet neve akt.worksheets(i).name munkalap neve
  Next i
  'akt. bezárás

  akt.Close

  Next Fájl

  'Call vege

  End Sub

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