Összeszerelése a lapok különböző könyveket az egyik

előző ◈ a következő

Tegyük fel, hogy van egy csomó Excel munkafüzetet, mind lapok, amelyeket kombinálni egy file-ba. Másolás karok, hosszú és kemény, így van értelme, hogy egy egyszerű makró.

Ezután vissza az Excel és futtatni a makrót keresztül létrehozott eszközök - Macro - makrók (Eszközök - Makró - makrók), vagy az ALT + F8. Megjelenít egy Fájl megnyitása párbeszédpanel, ahol meg kell adni egy vagy több (tartsa lenyomva a CTRL vagy SHIFT) fájlok listái, amelyeket hozzá kell adni a jelenlegi könyv.

Kapcsolódó linkek

Nagyon praktikus dolog.
Eddig, bár más módon nem tudom.
Köszönöm.

Köszönöm. Macro - Tűz! Hasznos dolog.

Igen, egyetértek, a makró nem rossz, de a személyes nem akar működni. Prichny, azt hiszem, hogy néhány csapat Personal nem fogadja, vagy vélt, mint valami más. például ThisWorkbook. Azt redid a makró már működik, a Personal gond nélkül. megkapta a következő:

Engedély beszélni!
Azt, amikor a másolás lemezek könyvek különböző változatai Excel csak akkor működik a makró, de amikor akarok másolni csak az első lapot a különböző könyveket, azt a következő kód:

A makró működéséhez, mind az első lemez sikeresen másolt, de volt egy mellékhatása:
nyissa ki az összes könyvet, amelyből ezeket a lapokat másolja.
Kérdés: Meg lehet változtatni a kódot, így működött a régi rendszert, de egy halom könyvet nem nyitják, és rámutattam több lapot akar?

Ő kihasználta a makró egyesíteni több könyvet egy

Sub CombineWorkbooks ()
dim FilesToOpen
Dim x As Integer

Application.ScreenUpdating = False „kikapcsolni a képernyő frissítési sebessége

„Hívd a fájl kiválasztó dialógus importálni
FilesToOpen = Application.GetOpenFilename _
(FileFilter: = "Minden fájl (*), * * .." _
Multiselect: = True, Cím: = "Fájlok egyesítése")

Ha TypeName (FilesToOpen) = "logikai" Akkor
MsgBox „Nincs fájl!”
Exit Sub
End If

Application.ScreenUpdating = True
End Sub

minden működik, köszönöm szépen)
Csak egy hülye kérdés)
Hogy biztosítsuk, hogy az adatok a kombinált könyv frissül változás történik az Egyesült könyv?
Köszönöm előre!

előző ◈ a következő