Як експортувати та зберегти кожен аркуш як окрему нову книгу в Excel?
Скажімо, ви хочете експортувати та зберегти один або кілька аркушів як нову книгу, як ви з цим справитесь? Зазвичай ви можете копіювати кожен аркуш і вставляти в нову книгу. Але тут ми пропонуємо вам кілька корисних прийомів, щоб вирішити це:
Експортуйте та зберігайте аркуші як нову книгу за допомогою команди "Перемістити" або "Копіювати"
Експортуйте та зберігайте аркуші як нову книгу з кодом VBA
Експортуйте та зберігайте робочі аркуші як нову книгу за допомогою Kutools для Excel
Експортуйте та зберігайте аркуші як нову книгу за допомогою команди "Перемістити" або "Копіювати"
Використання Перемістити або скопіювати Ця команда допоможе швидко експортувати або скопіювати один або кілька аркушів до нової книги.
Крок 1: Виберіть імена робочого аркуша на панелі вкладок. Можна вибрати кілька, утримуючи натиснутою Ctrl ключ або зсув ключ
Крок 2: Клацніть правою кнопкою миші назву робочого аркуша та клацніть на Перемістити або скопіювати з контекстного меню.
Крок 3: В Перемістити або скопіювати діалоговому вікні, виберіть (нова книга) з випадаючого списку Перемістіть вибрані аркуші в книгу.
Крок 4: Потім натисніть OK, тепер ви перейшли на нова робоча книга з експортованими або скопійованими аркушами клацніть філе > зберегти щоб зберегти нову книгу.
Примітка: У Перемістити або скопіювати діалогове вікно, є Створіть копію варіант. Якщо ви не позначите його, вибрані аркуші перемістяться з оригінальної книги; якщо поставити прапорець, він скопіює вибрані аркуші.
Швидко розділіть кілька аркушів на окрему книгу в Excel
|
У Microsoft Excel ви можете зберегти або розділити аркуш з однієї книги як новий файл Excel, скопіювавши та вставивши цей аркуш у нову книгу. Виглядає клопітно, якщо ви хочете розділити кожен аркуш / аркуш великої книги як окремі файли Excel, txt, csv, pdf. Але з Kutools для ExcelАвтора Роздільна робоча книга утиліта, ви можете швидко впоратися з нею. Натисніть, щоб отримати 30-денну безкоштовну пробну версію з усіма функціями! |
Kutools для Excel: із понад 300 зручними надбудовами Excel, які можна безкоштовно спробувати без обмежень протягом 30 днів. |
Експортуйте та зберігайте аркуші як нову книгу з кодом VBA
Цей наступний код експортує кожен видимий аркуш у нову книгу та збереже книгу з іменем оригінального аркуша у новоствореній папці за тим самим шляхом, що і активна книга. Будь ласка, виконайте такі дії:
Крок 1: утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
Крок 2: клацніть Insert > Модуліта вставте наступний макрос у вікно модуля:
VBA: Експортуйте та збережіть аркуші як нову книгу в новій папці.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub
Крок 3: Натисніть кнопку F5 ключ для запуску цього коду. І з’явиться відповідне вікно із повідомленням про місце розташування нових експортованих книг, а всі аркуші оригінальної книги експортовані до деяких нових окремих книг, які назвали оригінальні аркуші в новій конкретній папці. Дивіться скріншоти:
Експортуйте та зберігайте робочі аркуші як нову книгу за допомогою Kutools для Excel
Якщо у вас є кілька аркушів, які потрібно зберегти як окрему книгу, перший спосіб не може бути хорошим вибором. І код VBA, можливо, трохи складний для початківців Excel. Тут ви можете використовувати Роздільна робоча книга корисність Kutools для Excel швидко та легко експортувати та зберігати кожен аркуш однієї книги для відокремлення нової книги.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
Крок 1: клацніть Kutools Plus > робочий зошит > Розділити книгу…. Дивіться знімок екрана:
Крок 2: у Роздільна робоча книга діалогове вікно, зробіть, як показано нижче:
2: Якщо ви хочете уникнути розділення прихованих або порожніх аркушів, ви можете перевірити Пропустити приховані аркуші or Пропустити порожні аркуші.);
3: а також ви можете перевірити Вкажіть збереження форматі, а щоб вибрати розділити аркуші, потім збережіть їх як текстовий файл, PDF-файл або CSV-файл у файлі defualt, якщо не встановити прапорець, він розділить аркуші та збереже як книгу.
Крок 3: Потім натисніть розщеплений і виберіть папку, до якої потрібно додати нові книги. Дивіться знімок екрана:
Крок 4: А потім натисніть OK, потім кожен перевірений аркуш у Роздільна робоча книга діалогове вікно експортується та зберігається як окрема книга. Кожна нова книга називається оригінальною назвою робочого аркуша. Дивіться знімок екрана:
Клацніть, щоб дізнатися більше про цей інструмент розділеної книги.
Експортуйте та збережіть кожен аркуш як нову книгу
Швидко розділіть дані на кілька аркушів на основі стовпців або фіксованих рядків у Excel
|
Припустимо, у вас є аркуш, який містить дані у стовпцях А-Г, ім'я продавця вказано в стовпці А, і вам потрібно автоматично розділити ці дані на кілька аркушів на основі стовпця А в тій самій книзі, і кожен продавець буде розділений на новий робочий аркуш. Kutools для ExcelАвтора Розділена дата Утиліта може допомогти вам швидко розділити дані на кілька аркушів на основі вибраного стовпця, як показано на знімку екрана, показаному в Excel. Натисніть, щоб отримати повнофункціональну 30-денну безкоштовну пробну версію! |
Kutools для Excel: із понад 300 зручними надбудовами Excel, які можна безкоштовно спробувати без обмежень протягом 30 днів. |
Статті по темі:
- Об’єднайте кілька книг в одну книгу
- Збережіть виділення як окремий файл
- Розділіть книгу, щоб розділити файли Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!