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

• #22408 Brutis újonc Delila_1 #22367

  Új Válasz 2014-07-11 08:15:07 #22408

  Ú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 Delila_1 #22367 üzenetére

  Szia!

  Nagyon szépen köszönöm a segítséget.
  Sokat segítettél.
  Most már össze tudtam pofozni és üzemel is.

• #22358 Brutis újonc Delila_1 #22346

  Új Válasz 2014-07-09 09:23:36 #22358

  Ú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 Delila_1 #22346 üzenetére

  Helló!

  Mindig másik könyvtárba mentett adatokat kell másolni.
  Így az elérési út is változik, azért van ez a "tallózásos" megoldás.
  De a formátuma mindig *xls és egyformák a táblázatok is.

  A táblázatokban szereplő adatokat és képleteket is másolni kell.

  Most annyit módosult a dolog, hogy a mappából beolvasott munkafüzetek munkalapjait kell átmásolni és nem kell egy lapra összehozni a megadott cellák tartalmát.
  Hanem az egyforma nevű fülecskék felülírják egymást.

  ' Haverom tanácsára, hiába csak a megadott range kell azt javasolta növeljem meg mert lehet hogy valaki még ír alá megjegyzést így most ("A1:z80") az új terület.

  Előre is köszönöm a segítséget!

• #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

• #22340 Brutis újonc

  Új Válasz 2014-07-08 15:08:31 #22340

  Ú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

  Más szemszögből és újult erővel.
  Egyszerűsödött a feladat:

  Adott mappából beolvassuk a fájlokat:
  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

  és ezután szeretném én azt a segítséget kérni ,hogy
  egy olyan for ciklus kellene amivel a beolvasott fájlokból az összes munkafüzet munkalapját át tudjam másolni abba a munkafüzetbe amiből meghívtam a makrót.

• #22335 Brutis újonc

  Új Válasz 2014-07-08 12:27:55 #22335

  Ú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

  Sziasztok!

  Nekem olyan problémám lenne, hogy ndb *.xls fájlt kellene beolvasnom egy mappából, a fájlokban szereplő munkalapokon(ezek változóak 2-20 között) táblázatoknak meghatározott részeit kellene átmásolni egy nagy táblázatba úgy ,hogy a munkalapok nevei az A oszlopba kerüljenek a meghatározott adatok pedig ugyanabba a sorba , szintén az előre lefixált helyükre.
  Ha valakinek van ötlete azt nagy örömmel fogadom.
  A segítséget előre is köszönöm

  A beolvasást eddig kétféleképpen próbáltam de nem igazán kristályosodott még ki.
  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

  2. próbálkozás:

  Sub megnyitás() ' tallózás

  Dim fileName As String

  fileName = Application.GetOpenFilename("Comma Separated Values (*.xls),*.xls")

  If fileName <> "False" Then
  Workbooks.Open fileName, Format:=2
  End If
  End Sub

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