Макрос vba excel создание файла - Word и Excel - помощь в работе с программами

Создание файлов Excel методами Workbooks.Add, Worksheet.Copy и текстовых файлов с помощью оператора Open и метода CreateTextFile из кода VBA Excel. Создание документов Word рассмотрено в отдельной статье.

Метод Workbooks.Add

Описание

Файлы Excel можно создавать из кода VBA с помощью метода Add объекта Workbooks.

Workbooks.Add – это метод, который создает и возвращает новую книгу Excel. Новая книга после создания становится активной.

Ссылку на новую книгу Excel, созданную методом Workbooks.Add, можно присвоить объектной переменной с помощью оператора Set или обращаться к ней, как к активной книге: ActiveWorkbook.

Синтаксис

Workbooks.Add (Template)

Template – параметр, который определяет, как создается новая книга.

Значение Template	Параметры новой книги
Отсутствует	Новая книга с количеством листов по умолчанию.
Полное имя существующего файла Excel	Новая книга с указанным файлом в качестве шаблона.
xlWBATChart	Новый файл с одним листом диаграммы.
xlWBATWorksheet	Новый файл с одним рабочим листом.

Примеры

Пример 1
Создание новой книги Excel с количеством листов по умолчанию и сохранение ее в папку, где расположен файл с кодом VBA:

Sub Primer1()

‘Создаем новую книгу

Workbooks.Add

‘Сохраняем книгу в папку, где расположен файл с кодом

ActiveWorkbook.SaveAs (ThisWorkbook.Path & «Моя новая книга.xlsx»)

‘Закрываем файл

ActiveWorkbook.Close

End Sub

Файл «Моя новая книга.xlsx» понадобится для следующего примера.

Пример 2
Создание новой книги по файлу «Моя новая книга.xlsx» в качестве шаблона с присвоением ссылки на нее объектной переменной, сохранение нового файла с новым именем и добавление в него нового рабочего листа:

Sub Primer2()

‘Объявляем объектную переменную с ранней привязкой

Dim MyWorkbook As Workbook

‘Создаем новую книгу по шаблону файла «Моя новая книга.xlsx»

Set MyWorkbook = Workbooks.Add(ThisWorkbook.Path & «Моя новая книга.xlsx»)

With MyWorkbook

‘Смотрим какое имя присвоено новому файлу по умолчанию

MsgBox .Name ‘»Моя новая книга1″

‘Сохраняем книгу с новым именем

.SaveAs (ThisWorkbook.Path & «Моя самая новая книга.xlsx»)

‘Смотрим новое имя файла

MsgBox .Name ‘»Моя самая новая книга»

‘Добавляем в книгу новый лист с именем «Мой новый лист»

.Sheets.Add.Name = «Мой новый лист»

‘Сохраняем файл

.Save

End With

End Sub

Метод Worksheet.Copy

Описание

Если в коде VBA Excel применить метод Worksheet.Copy без указания параметра Before или After, будет создана новая книга с копируемым листом (листами). Новая книга станет активной.

Примеры

Пример 3
Создание новой книги с помощью копирования одного листа (в этом примере используется книга, созданная в первом примере):

Sub Primer3()

‘Если книга источник не открыта, ее нужно открыть

Workbooks.Open (ThisWorkbook.Path & «Моя новая книга.xlsx»)

‘Создаем новую книгу копированием одного листа

Workbooks(«Моя новая книга.xlsx»).Worksheets(«Лист1»).Copy

‘Сохраняем новую книгу с именем «Еще одна книжица.xlsx» в папку,

‘где расположен файл с кодом

ActiveWorkbook.SaveAs (ThisWorkbook.Path & «Еще одна книжица.xlsx»)

End Sub

Также, как и при создании нового файла Excel методом Workbooks.Add, при создании новой книги методом Worksheet.Copy, можно ссылку на нее присвоить объектной переменной.

Пример 4
Создание новой книги, в которую включены копии всех рабочих листов из файла с кодом VBA:

Sub Primer4()

ThisWorkbook.Worksheets.Copy

End Sub

Пример 5
Создание новой книги, в которую включены копии выбранных рабочих листов из файла с кодом VBA:

Sub Primer5()

ThisWorkbook.Sheets(Array(«Лист1», «Лист3», «Лист7»)).Copy

End Sub

Создание текстовых файлов

Оператор Open

При попытке открыть несуществующий текстовый файл с помощью оператора Open, такой файл будет создан. Новый файл будет создан при открытии его в любом режиме последовательного доступа, кроме Input (только для чтения).

Пример

Sub Primer6()

Dim ff As Integer, ws As Object

‘Получаем свободный номер для открываемого файла

ff = FreeFile

‘Создаем новый текстовый файл путем открытия

‘несуществующего в режиме чтения и записи

Open ThisWorkbook.Path & «Мой-новый-файл.txt» For Output As ff

‘Записываем в файл текст

Write #ff, «Этот файл создан при его открытии оператором « & _

«Open по несуществующему адресу (полному имени).»

‘Закрываем файл

Close ff

‘Открываем файл для просмотра

Set ws = CreateObject(«WScript.Shell»)

ws.Run ThisWorkbook.Path & «Мой-новый-файл.txt»

Set ws = Nothing

End Sub

В имени текстового файла пробелы заменены дефисами (знаками минус), так как метод Run объекта Wscript.Shell не способен открывать файлы с именами, содержащими пробелы.

Рекомендую открывать файлы для просмотра методом ThisWorkbook.FollowHyperlink. Пример и преимущества этого метода в статье VBA Excel. Открыть файл другой программы.

Метод FileSystemObject.CreateTextFile

Для создания нового текстового файла из кода VBA Excel по указанному имени, можно использовать метод CreateTextFile объекта FileSystemObject.

Пример

Sub Primer7()

Dim fso, fl, ws

‘Создаем новый экземпляр объекта FileSystemObject

Set fso = CreateObject(«Scripting.FileSystemObject»)

‘Присваиваем переменной fl новый объект TextStream,

‘связанный с созданным и открытым для записи файлом

Set fl = fso.CreateTextFile(ThisWorkbook.Path & «Еще-один-текстовый-файл.txt»)

‘Записываем в файл текст

fl.Write («Этот текстовый файл создан методом CreateTextFile объекта FileSystemObject.»)

‘Закрываем файл

fl.Close

‘Открываем файл для просмотра

Set ws = CreateObject(«WScript.Shell»)

ws.Run ThisWorkbook.Path & «Еще-один-текстовый-файл.txt»

End Sub

Стоит отметить, что новый текстовый файл может быть создан и с помощью метода OpenTextFile объекта FileSystemObject при условии присвоения параметру create значения True.

Источник

На чтение 3 мин. Просмотров 11.1k.

Что делает макрос: Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.

Содержание

Код макроса
Как работает этот код
Как использовать

Код макроса

Sub SozdatFajl()
'Шаг 1 - копируем данные с листа
Sheets("Продажи").Range("B4:C15").Copy

'Шаг 2 - создаем новую книгу
Workbooks.Add

'Шаг 3 - вставляем данные
ActiveSheet.Paste Destination:=Range("A1")

'Шаг 4 - отключаем системные сообщения
Application.DisplayAlerts = False

'Шаг 5 - сохраняем по нужному адресу
ActiveWorkbook.SaveAs _
Filename:="C:ОтчетыПродажиМесяц.xlsx"

'Шаг 6 - включаем системные сообщения
Application.DisplayAlerts = True
End Sub

Как работает этот код

Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.
Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ
На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.
Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.
Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол
ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»).
Поскольку мы запретили показывать системные сообщения в пункте 4, мы должны включить их обратно. Если этого не сделать Excel будет подавлять все предупреждения, что не
допустимо.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

Активируйте редактор Visual Basic, нажав ALT + F11.
Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
Выберите Insert➜Module.
Введите или вставьте код во вновь созданном модуле.
Измените имя листа, диапазон ячеек, и место сохранения файла.

Источник

Что делает макрос
Код макроса
Как работает макрос
Как использовать
Скачать файл

Ссылка на это место страницы:
#zadacha

Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.

Ссылка на это место страницы:
#formula

Sub SozdatFajl()
Sheets("Продажи").Range("B4:C15").Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _ Filename:="C:ОтчетыПродажиМесяц.xlsx"
Application.DisplayAlerts = True
End Sub

Ссылка на это место страницы:
#kak

1. Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.

2. Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ

3. На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.

4. Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.

5. Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»).

6. Поскольку мы запретили показывать системные сообщения в пункте 4, мы должны включить их обратно. Если этого не сделать Excel будет подавлять все предупреждения, что не допустимо.

Ссылка на это место страницы:
#touse

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. Выберите Insert➜Module.
3. Введите или вставьте код во вновь созданном модуле.
4. Измените имя листа, диапазон ячеек, и место сохранения файла.

Ссылка на это место страницы:
#file

Файлы статей доступны только зарегистрированным пользователям.

1. Введите свою почту

2. Нажмите Зарегистрироваться

3. Обновите страницу
Вместо этого блока появится ссылка для скачивания материалов.

Привет! Меня зовут Дмитрий. С 2014 года Microsoft Cretified Trainer. Вместе с командой управляем этим сайтом. Наша цель — помочь вам эффективнее работать в Excel.

Изучайте наши статьи с примерами формул, сводных таблиц, условного форматирования, диаграмм и макросов. Записывайтесь на наши курсы или заказывайте обучение в корпоративном формате.

Подписывайтесь на нас в соц.сетях:

Источник

Home / VBA / VBA Create New Workbook (Excel File)

A quick video on how to create a new workbook using macro.

To create a new workbook using VBA, you need to use the “Workbooks.Add” method. When you use this method, it inserts a new workbook (without saving it) and activates it after that. It works like when you press the keyboard shortcut CONTROL + N. You can also use a template to insert a new workbook.

Make sure to add the developer tab to the ribbon to enter this code into the VBE.

Type the keyword “Workbooks” to refer to the workbook object.
After that, type a dot.
Here you’ll have a list of properties and methods to select.
Select “Add” from that list or type it.

Sub vba_new_workbook()
Workbooks.Add
End Sub

Add a New Workbook using a Template

As I said, we are using the Workbooks.Add method. With this method, there’s an argument (optional) that you can use to refer to a file as a template.

Workbook.Add Template (Optional)

Let’s say you have a workbook and want to have the new workbook exactly the same as it, you can refer to it as a template.

Workbooks.Add Template:="C:UsersDellDesktopbook1.xlsx"

When you run the above code, it takes the reference from the “book1” which is saved on the desktop. The template workbook has 6 worksheets and the new workbook has exactly the same number of worksheets.

Apart from this, you can use the default arguments to decide what type of sheet you want to have in the new workbook.

xlWBATChart: Chart Sheet
xlWBATExcel4IntlMacroSheet: Macro Sheet Version 4
xlWBATExcel4MacroSheet: Macro Sheet (International) Version 4
xlWBATWorksheet: Worksheet

Create a New Excel Workbook and Save it

When you create a new workbook, Excel opens it but will not save it with the Add method. So for this, you need to use the SaveAs method.

Sub vba_create_workbook()
Workbooks.Add
ActiveWorkbook.SaveAs "C:usersdelldesktopmyBook.xlsx"
End Sub

First, use the workbook.add to create a new workbook.
Next, refer to the active workbook and use the SaveAs method.
In the SaveAs method, use the path where you want to save the workbook along with the name of the file.
In the end, run the code.

More on VBA Workbooks

VBA Workbook

Источник

I have a file which is manually added or modified based on the inputs. Since most of the contents are repetitive in that file, only the hex values are changing, I want to make it a tool generated file.

I want to write the c codes which are going to be printed in that .txt file.

What is the command to create a .txt file using VBA, and how do I write to it

ashleedawg

20k8 gold badges73 silver badges104 bronze badges

asked Jul 16, 2012 at 11:20

To elaborate on Ben’s answer:

If you add a reference to Microsoft Scripting Runtime and correctly type the variable fso you can take advantage of autocompletion (Intellisense) and discover the other great features of FileSystemObject.

Here is a complete example module:

Option Explicit

' Go to Tools -> References... and check "Microsoft Scripting Runtime" to be able to use
' the FileSystemObject which has many useful features for handling files and folders
Public Sub SaveTextToFile()

    Dim filePath As String
    filePath = "C:tempMyTestFile.txt"

    ' The advantage of correctly typing fso as FileSystemObject is to make autocompletion
    ' (Intellisense) work, which helps you avoid typos and lets you discover other useful
    ' methods of the FileSystemObject
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim fileStream As TextStream

    ' Here the actual file is created and opened for write access
    Set fileStream = fso.CreateTextFile(filePath)

    ' Write something to the file
    fileStream.WriteLine "something"

    ' Close it, so it is not locked anymore
    fileStream.Close

    ' Here is another great method of the FileSystemObject that checks if a file exists
    If fso.FileExists(filePath) Then
        MsgBox "Yay! The file was created! :D"
    End If

    ' Explicitly setting objects to Nothing should not be necessary in most cases, but if
    ' you're writing macros for Microsoft Access, you may want to uncomment the following
    ' two lines (see https://stackoverflow.com/a/517202/2822719 for details):
    'Set fileStream = Nothing
    'Set fso = Nothing

End Sub

answered Apr 5, 2018 at 14:16

an easy way with out much redundancy.

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("C:your_pathvba.txt", True, True)
    Fileout.Write "your string goes here"
    Fileout.Close

answered Feb 23, 2016 at 17:01

pelospelos

1,6743 gold badges24 silver badges32 bronze badges

Dim SaveVar As Object

Sub Main()

    Console.WriteLine("Enter Text")

    Console.WriteLine("")

    SaveVar = Console.ReadLine

    My.Computer.FileSystem.WriteAllText("N:A-Level Computing2017!PPESaveFileSaveData.txt", "Text: " & SaveVar & ", ", True)

    Console.WriteLine("")

    Console.WriteLine("File Saved")

    Console.WriteLine("")

    Console.WriteLine(My.Computer.FileSystem.ReadAllText("N:A-Level Computing2017!PPESaveFileSaveData.txt"))
    Console.ReadLine()

End Sub()

BDL

20.7k19 gold badges52 silver badges52 bronze badges

answered Feb 10, 2017 at 13:16

Источник

Макрос создания текстовых файлов по таблице Excel

Макросы VBA Excel
Работа с диапазонами ячеек и листами
Текстовые строки
Текстовые файлы
Обработка таблиц
Текстовые файлы
Книги Excel
Перевод и кодировка
текстовые строки
Работа с файлами
Разное

Макрос предназначен для создания текстовых файлов в кодировке UTF-8.

Исходными данными является таблица Excel из 12 столбцов.

Сначала, макрос создаёт папку для будущих текстовых файлов.
Папка создаётся в том же каталоге, где расположена книга Excel.

Далее, для каждой строки таблицы, макрос формирует подпапку,
используя в качестве её названия текст из 7-го столбца таблицы.

И потом, когда папка для файла создана, макрос создаёт текстовый файл с содержимым из 10 столбца таблицы,
и сохраняет его под именем, взятым из второго столбца той же таблицы Excel.
После создания файла, у него меняется кодировка на UTF-8 (изначально, при создании, файлы имеют кодировку Unicode)

По окончании работы макроса, открывается папка, содержащая созданные текстовые файлы.

Пример макроса смотрите в прикреплённом файле.

Код макроса, создающего папки, подпапки, и текстовые файлы по данным из таблицы Excel:

Sub СозданиеТекстовыхФайлов()

    On Error Resume Next

    Dim cell As Range, ra As Range

    Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp)).Resize(, 11)

    arr = ra.Value    ' считываем данные в массив

    Set FSO = CreateObject("scripting.filesystemobject")

    ' создаём главную папку

    BaseFolder$ = ThisWorkbook.Path & "Товар по группам": MkDir BaseFolder$

    ' перебираем все строки

    For i = LBound(arr) To UBound(arr)

        ' создаём папку для очередной строки (если папки ещё нет)

        Folder$ = BaseFolder$ & arr(i, 7) & ""    ' имя папки - в столбце G

        MkDir Folder$

        ' формируем имя создаваемого текстового файла

        Filename$ = Folder$ & Trim(arr(i, 2)) & ".txt"

        ' создаём файл в кодировке Unicode

        Set ts = FSO.CreateTextFile(Filename$, True, True)

        ts.Write Trim(arr(i, 10))    ' данные в файл - из ячейки 10-го столбца

        ts.Close

        ' если текстовый файл нужен в другой кодировке

        ChangeFileCharset Filename$, "utf-8"

    Next i

    Set ts = Nothing: Set FSO = Nothing

    MsgBox "Файлы созданы, и помещены в папку" & vbNewLine & BaseFolder$, vbInformation, "Готово"

    ' открываем папку с файлами

    CreateObject("wscript.shell").Run "explorer.exe /e, """ & BaseFolder$ & """"

End Sub

Вложение	Размер	Загрузки	Последняя загрузка
prays.xls	38.5 КБ	170	8 часов 11 минут назад

35605 просмотров

Источник

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

06.09.2014 23:19:21

Доброе время суток. Есть книга, в ячейке А1 значение.

Код
Sub New2() Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs ("D:test" & "1" & ".xls") New_Wb.Close End Sub

Запускаю макрос, создается новая книга сохраняется по пути D:test, присваивается имя 1.xls и закрывается.

Проблема в следующем, как переписать макрос, чтобы новая книга сохранялась с названием как в ячейке А1 книги, с которой запускается макрос?
Заранее спасибо!

Alexander88

Пользователь

Сообщений: 400
Регистрация: 02.09.2014

06.09.2014 23:32:21

Попробуйте заменить пятую строку на:

Код
New_Wb.SaveAs ("D:test" & Cells(1, 1) & ".xls")

Изменено: Alexander88 — 06.09.2014 23:32:32

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

06.09.2014 23:35:54

Код
Sub New2() Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs ("D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls") New_Wb.Close End Sub

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

06.09.2014 23:38:01

Цитата
Alexander88 пишет: заменить пятую строку на:

ошибку дает (

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

06.09.2014 23:39:26

Цитата
evgeniy_m пишет: ошибку дает

Это не информация — всегда следует указывать — КАКУЮ ошибку получаете.

	И пример Юрия с указанием откуда берется ячейка не работает?

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014	макрос не компилируеться..

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	evgeniy_m, Лист1 в книге с макросом присутствует? Что означает «макрос не компилируется»? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#10

06.09.2014 23:55:12

Цитата
Юрий М пишет: Мой вариант проверяли?

супер! Огромное спасибо !

ПОмогите еще с одним моментом, книгу создал, обозвал её как Вы помогли, теперь беда… Хочу с книги откуда запускал макрос скопировать лист (plan) в эту новую книгу с созданым листом «plan_191».

Код

Dim sShName As String, sAddress As String, vData
    Dim objThisBook As Object
    Set objThisBook = GetObject.ActiveWorkbook
    sAddress = "A1:AA6000"
    vData = objCloseBook.Sheets("plan").Range(sAddress).Value
    objThisBook.Close False
    Sheets("plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

но на строке Set objThisBook = GetObject.ActiveWorkbook дает ошибку…. как мне указать, что нужно копировать лист из книги откуда запускался макрос….?

Johny

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#11

07.09.2014 00:01:23

Цитата
evgeniy_m пишет: Хочу с книги откуда запускал макрос скопировать лист (plan) в эту новую книгу с созданым листом «plan_191».

Ничего не понятно (а в приложенном макросе вообще какая-то, извините, ерунда).

There is no knowledge that is not power

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#12

07.09.2014 00:04:40

Код

Sub New2()
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    ThisWorkbook.Sheets("plan").Copy
    New_Wb.Sheets.Add After:=New_Wb.Sheets(Sheets.Count)
    New_Wb.SaveAs ("D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls")
    New_Wb.Close
End Sub

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

#13

07.09.2014 00:05:00

скопировать лист (plan) в эту новую книгу —

Код
sheets("plan").copy

получите новую книгу с одним листом, который затем можете переименовать.
Только при таком копировании пострадают длинные строки в ячейках, если они конечно есть. Хотя в новых экселях не проверял…

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014	Суть такая, открываю книгу, запускаю макрос, создается новая книга и лист в ней. Теперь из 1-й книги нужно скопировать лист в новую книгу. Помогите пожалуйста

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Согласен с Johny: ерунда получается — сначала имя листа «plan», затем «plan_191″…

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	evgeniy_m, у Дмитрия (The_Prist) очень хороший текст в подписи — прочитайте))

	Может проще создать копию книги, а потом удалить листы кроме нужного?

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	Кстати хороший вариант сделать копию файла, его открыть, поудалять лишнее. Так и строки не пострадают, и связи…

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#19

07.09.2014 00:12:45

Код

Dim sShName As String, sAddress As String, vData
    Dim objThisBook As Object
    Set objThisBook = GetObject("d:test.xls")
    sAddress = "A1:AA6000"
    vData = objThisBook.Sheets("abs_plan").Range(sAddress).Value
    Sheets("abs_plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

Вот написал, все отлично работает, но копирует без сохранения параметров ячеек…

Johny

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#20

07.09.2014 00:14:18

Так?

Код
Sub F() Dim wkbNew As Workbook Sheets("plan").Copy Set wkbNew = ActiveWorkbook wkbNew.Sheets(1).Name = "plan_191" wkbNew.SaveAs "D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls" End Sub

There is no knowledge that is not power

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	evgeniy_m, Вы читаете, что Вам пишут?

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

#23

30.05.2017 13:54:20

Всем привет!

Надеюсь мой вопрос здесь уместен. Я под основу взяла код, предлагаемый здесь. Но его чуток видоизменила. И теперь у меня проблема-выдает ошибку на строку

Код
New_Wb.SaveAs

А сам код вот

Код
Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs (Range("O6") & "" & Range("Книга") & ".xlsm")

либо

Код

Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs ("M:ProductionМастера2017Нормализация" & Range("имя_папки").Value & "" & Range("Книга") & ".xlsm")

Спасибо

Изменено: Honey — 30.05.2017 13:57:38

Honey Пользователь Сообщений: 204 Регистрация: 06.02.2015	Люди добрые! Помогите с проблемой выше, пожалуйста… Интернет обыскала ничего не получается((( Вся надежда на Вас

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#25

21.06.2017 08:46:59

Цитата
Honey написал: выдает ошибку

что за ошибка — нам угадать?
Да и скобки здесь лишние. В VBA методы без присвоения результата переменной указываются без скобок:

Код
New_Wb.SaveAs Range("O6") & "" & Range("Книга") & ".xlsm"

плюс очень желательно указывать формат файла явно:

Код
New_Wb.SaveAs Range("O6") & "" & Range("Книга") & ".xlsm", 52

52 — формат xslm.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Honey Пользователь Сообщений: 204 Регистрация: 06.02.2015	The_Prist, спасибо, что откликнулись! Ошибка Runtime error 1004:: Method ‘Range’ of Global Failed Изменено: Honey — 21.06.2017 08:56:57

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

А Вы вдумайтесь в ошибку. В Google-переводчик закиньте. Тогда видно будет, что у Вас проблема в том, что нет диапазона «Книга» или «Об» или другого, чего Вы пишите в Range.
Так же надо помнить, что указание Range явного указания для него листа и книги подразумевает обращение к АКТИВНОЙ книге. А Вы её только что создали. Следовательно там НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ, да и вообще данных.
Советую очень внимательно изучить:

Как обратиться к диапазону из VBA

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Honey Пользователь Сообщений: 204 Регистрация: 06.02.2015	Во вложении файл, в котором этот самый макрос (модуль) Прикрепленные файлы Расчет.xlsm (76.72 КБ) Изменено: Honey — 21.06.2017 09:06:17

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

The_Prist,
Об этом я читала… Видимо, действительно, я чего-то не понимаю((( У меня есть такие диапазоны. И я ведь указываю на имена диапазонов не в ново-созданной книге. Или как мне конкретней указать, чтобы диапазон брался конкретно с первоначальной книги для именования…?

Спасибо за ссылочку))

Изменено: Honey — 21.06.2017 09:09:17

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#30

21.06.2017 09:20:23

Цитата
Honey написал: указываю на имена диапазонов не в ново-созданной книге

нет. Я же написал, что указание Range без явного указания листа и книги в Вашем случае указывает на активный лист. А т.к. Вы это делаете после создания новой книги — то активна именно она, а не что-то там где-то еще. Видимо, читали либо не все, либо не то, либо не так.

Код
New_Wb.SaveAs ThisWorksbook.Sheets("1 норм").Range("O6") & "" & ThisWorksbook.Sheets("1 норм").Range("Книга") & ".xlsm", 52

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Источник

Как создать новую книгу с заданным именем?

Смотрите также книгу с заданным то как прописать ведущее к нервному
end with
указать, чтобы диапазон Range(«имя_папки»).Value & «» скопировать лист в берется ячейка не больше туда ничего
от сгенерированного имениGustav, 14.01.2015 вEnd Sub
активный лист. АThe_Prist

 — прочитайте)): супер! Огромное спасибоnew_see

кол-вом листов Application.SheetsInNewWorkbook

CyberForum.ru

Создание новой книги макросом

 макрос, чтобы он срыву. Про шаблоныwith workbooks.add брался конкретно с
& Range(«Книга») & новую книгу. работает? не добавлять, да присвойте ее объектной 15:45, в сообщенииЧитаем внимательно правила т.к. Вы это: что за ошибкаAlexander88 !
: Как создать новую = tmp ‘вернуть все делал то согласен польностью без.sheets(1)… первоначальной книги для «.xlsm»)
Помогите пожалуйста

evgeniy_m и к тому переменной:
№ 5200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я его форума делаете после создания

 — нам угадать?: Может проще создатьПОмогите еще с книгу с заданным значение свойстваКстати, добавлять же самое, за комментариев :)…

 именования…?Спасибо

Юрий М: макрос не компилируеться.. же отчеты содержатSet MyTempWb=workbooks.add и дополнительно раскрасил множественными

Особенно п.п.3 новой книги -Да и скобки копию книги, а одним моментом, книгу

 именем? листы в существующую

 исключением копирования даннойРезюме: Моя хотелка

end withСпасибо за ссылочку))Honey: Согласен с Johny:Юрий М

 по несколько листов, обращайтесь к ней областями:
Hugo то активна именно здесь лишние. В потом удалить листы создал, обозвал еёНапример книгу тоже можно кнопки. Проще говоря не реализуется безGuestThe_Prist
: Люди добрые! ерунда получается -: Мой вариант проверяли? а работа в дальше MyTempWb.sheets(1)…Красиво раскрасил, но: В новый эксель она, а не VBA методы без кроме нужного? как Вы помогли,Sub CreateWorkbook() Set не по одному: — без этой дополнительных телодвижений. Тема: Есть файл данных: нет. Я же

Помогите с проблемой сначала имя листаThe_Prist одной книге сИли с помощью

 оказалось достаточным кода вставить скопированные столбцы что-то там где-то присвоения результата переменнойHugo теперь беда… Хочу NewWorkbook = Workbooks.Add Sheets.Add after:=ActiveSheet, Count:=200Параметр кнопки.

 закрыта. в процессе работы написал, что указание выше, пожалуйста… Интернет
«plan», затем «plan_191″…: evgeniy_m, Лист1 в 30-40 листами удовольствие конструкции with …
у alex77755) будет проблематично - еще. Видимо, читали указываются без скобок:: Кстати хороший вариант с книги откуда End Subсоздает книгу

 Count тоже вПрикрепил файлСпасибо всем за создаются отчеты (промежуточные), Range без явного обыскала ничего неЮрий М книге с макросом ведущее к нервному
end with

Друзья, вставляйте в тот либо не все,New_Wb.SaveAs Range(«O6») & сделать копию файла,

 запускал макрос скопировать с именем по пределах 1..255.gling помощь!

 которые открываются в указания листа и получается(((: evgeniy_m, у Дмитрия присутствует? Что означает

 срыву. Про шаблоныwith workbooks.addогромное спасибо же эксель. Т.е. либо не то, «» & Range(«Книга») его открыть, поудалять

 лист (plan) в умолчанию,Hugo121: Пропишите такikki новых книгах. После книги в ВашемВся надежда на (The_Prist) очень хороший «макрос не компилируется»? согласен польностью без.sheets(1)…за помощь! Я Ваш код почти

 либо не так. & «.xlsm»
лишнее. Так и эту новую книгуа как изменить: На практике обычно200?’200px’:»+(this.scrollHeight+5)+’px’);»>shSmeta.Copy Before:=bkNew.Sheets(1): гм… работы все это случае указывает на

 Вас текст в подписиevgeniy_m

 комментариев :)…

 недели две блуждал полностью не годится,
New_Wb.SaveAs ThisWorksbook.Sheets(«1 норм»).Range(«O6»)плюс очень желательно строки не пострадают, с созданым листом имя, чтобы создалась нужноActiveSheet.Shapes(«Button 1»).Deleteа вот так? без сохранения удаляется.
активный лист. АThe_Prist
— прочитайте)): супер! Огромное спасибоРезюме: Моя хотелкаend with в интернете и нужно переписывать.
& «» &
указывать формат файла и связи… «plan_191». не ‘Книга1’,Set xlWb =bkNew.SaveAs ThisWorkbook.Path &Sub xx()
Проблема в том,

 т.к. Вы это: что за ошибка
Alexander88 ! не реализуется безGuest
не мог найтиalex77755

 ThisWorksbook.Sheets(«1 норм»).Range(«Книга») & явно:evgeniy_m
Dim sShName Asа например ‘Моя Workbooks.Add(1) ‘создать книгу «» & CStr(shAct.Range(«B19»).Value)Set wb =
что когда отчетов делаете после создания — нам угадать?
: Может проще создатьПОмогите еще с дополнительных телодвижений. Тема
: Есть файл данных подходящий код, все:
«.xlsm», 52New_Wb.SaveAs Range(«O6») &

: Dim sShName As String, sAddress As книга’
с одним листомДалее & «.xlsx» Workbooks.Add

 10 и более, новой книги -Да и скобки копию книги, а одним моментом, книгу закрыта. в процессе работы остальные не подходили,200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Sub nytfjdkt()Дмитрий_С «» & Range(«Книга»)
String, sAddress As String, vData Dimnew_see можно листы добавить,bkNew.Closewb.Windows(1).Caption = «fryerye» а все названия то активна именно здесь лишние. В потом удалить листы создал, обозвал еёСпасибо всем за
создаются отчеты (промежуточные), а ошибку в

Dim oWbk As: Добрый день! & «.xlsm», 52 String, vData Dim

 objThisBook As Object: NewWorkbook.Windows(1).Caption = ‘Моя
но это нужноНо думаю чтоEnd Sub Книга1, Книга2 и она, а не VBA методы без кроме нужного? как Вы помогли, помощь! которые открываются в них я не Excel.WorkbookУ меня имеется52 — формат
objThisBook As Object

 Set objThisBook = книга’ редко. лучше кнопку иYuryK т.д. запомнить где что-то там где-то присвоения результата переменнойHugo теперь беда… Хочуikki новых книгах. После мог найти. ДанныйDim oSheet As файл из которого xslm. Set objThisBook = GetObject.ActiveWorkbook sAddress =спасибоSerg_FSM список выбора сметы: А вот так

planetaexcel.ru

Как вставить данные из старой книги в новую созданную книгу (Макросы/Sub)

 какой очень проблематично, еще. Видимо, читали
указываются без скобок:: Кстати хороший вариант с книги откуда: гм… работы все это
код это именно Excel.Worksheet мне необходимо скопироватьHoney GetObject(«d:test.xls») sAddress = «A1:AA6000» vData =evgeniy_m: Приветствую. разместить вверху сметы. получилось именно то, приходится все книги
либо не все,New_Wb.SaveAs Range(«O6») &
сделать копию файла, запускал макрос скопировать а вот так? без сохранения удаляется. то, что мне Dim Sh As некоторые столбцы в : The_Prist, спасибо, что "A1:AA6000" vData = objCloseBook.Sheets("plan").Range(sAddress).Value objThisBook.Close False : Доброе время суток. Помогите с такой Кнопку привязать к что нужно. перебирать, вот и либо не то, "" & Range("Книга") его открыть, поудалять лист (plan) вSub xx() Проблема в том, надо. Всё работает! Excel.Worksheet новую созданную книгу. откликнулись! objThisBook.Sheets("abs_plan").Range(sAddress).Value Sheets("abs_plan_191").Range("A1").Resize(UBound(vData, 1), Sheets("plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData, Есть книга, в проблемой: нужно програмно строкам и приСпасибо огромное! хочется имена присваивать. либо не так. & ".xlsm" лишнее. Так и эту новую книгуSet wb = что когда отчетовHugoSet Sh =Данный код нашелОшибка Runtime error UBound(vData, 2)).Value = 2)).Value = vDataно
ячейке А1 значение. создать новую рабочую
копировании сметы удалять

den45444А без сохранения New_Wb.SaveAs ThisWorksbook.Sheets(«1 норм»).Range(«O6»)плюс очень желательно строки не пострадают, с созданым листом Workbooks.Add 10 и более,: Т.е. нужно было

 ActiveSheet в интернете, не1004:: Method 'Range' vDataВот написал, все на строке Set Sub New2() Dim книгу Excel, но верхнею строку или: Есть макрос на никак? В принципе & "" & указывать формат файла и связи... "plan_191".wb.Windows(1).Caption = "fryerye" а все названия только вот это?Set oWbk = могу в нем of Global Failed отлично работает, но objThisBook = GetObject.ActiveWorkbook New_Wb As Workbook

 при этом с строки. Удалится и создание новой книги.

 вопрос не критичный, ThisWorksbook.Sheets(«1 норм»).Range(«Книга») & явно:evgeniy_mDim sShName AsEnd Sub Книга1, Книга2 и200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub tt() Workbooks.Add() сделать новую книгуThe_Prist копирует без сохранения дает ошибку…. как Set New_Wb =
определенным именем (а список и кнопка Его нужно немного но не хочется ".xlsm", 52 New_Wb.SaveAs Range("O6") &: Dim sShName As String, sAddress As YuryK т.д. запомнить гдеDim r AsSet oSheet = активной чтобы в: А Вы вдумайтесь параметров ячеек... мне указать, что Workbooks.Add New_Wb.Activate New_Wb.SaveAs не тем что вызова макроса. изменить под условие.

 каждый раз выбиратьYuryK «» & Range(«Книга») String, sAddress As specool
 String, vData Dim: А вот так какой очень проблематично, Range oWbk.Worksheets(«Лист1») ‘Находим Лист1 ней работать, например
в ошибку. ВJohny нужно копировать лист
(«D:test» & «1» Excel предлагает поden45444Подробно: в проводнике пусть: Добрый день! Прошу & «.xlsm», 52 String, vData Dim objThisBook As Object получилось именно то, приходится все книги’——Копирование столбцов изoSheet.Name = «Новый как вставить данные victory

 Google-переводчик закиньте. Тогда: Так? из книги откуда
& ".xls") New_Wb.Close умолчанию), без использования: - Есть книга и сохранять, а помощи в таком 52 - формат objThisBook As Object Set objThisBook = что нужно.

excelworld.ru

Можно ли создать Workbook со своим именем?

 перебирать, вот и старой книги в лист» ‘Присваиваем ему из буфера обмена, видно будет, чтоSub F() Dim
запускался макрос….? End SubЗапускаю макрос, шаблона и безgling и в этой потом так же вопросе. Создаю книги xslm. Set objThisBook = GetObject.ActiveWorkbook sAddress =Спасибо огромное!
хочется имена присваивать. новую книгу———-

 имя «Новый лист» т.к. активной книгой
у Вас проблема wkbNew As WorkbookJohny
создается новая книга сохранения файла. Нужно, Благодарю за помощь.

книги есть лист удалять. из vba коммандойHoney GetObject(«d:test.xls») sAddress = «A1:AA6000» vData =

evgeniy_mА без сохраненияSet r =’——Копирование столбцов из остается та из в том, что Sheets(«plan»).Copy Set wkbNew: Ничего не понятно сохраняется по пути это вот дляRAN «Смета» и естьLightZ
Workbooks.Add: The_Prist, спасибо, что «A1:AA6000» vData =
objCloseBook.Sheets(«plan»).Range(sAddress).Value objThisBook.Close False: Доброе время суток. никак? В принципе
ActiveSheet.Range(«A:H»)
старой книги в
которой копирую столбцы
нет диапазона «Книга»

 = ActiveWorkbook wkbNew.Sheets(1).Name (а в приложенном D:test, присваивается имя чего: обработчик события: кнопка на другом: Попробуйте такой вариант…Возможно ли создать откликнулись! objThisBook.Sheets(«abs_plan»).Range(sAddress).Value Sheets(«abs_plan_191»).Range(«A1»).Resize(UBound(vData, 1), Sheets(«plan_191»).Range(«A1»).Resize(UBound(vData, 1), UBound(vData, Есть книга, в вопрос не критичный,r.Copy Workbooks.Add.Sheets(1).Range(«A1») новую книгу———-Помогите, пожалуйста. (В или «Об» или = «plan_191» wkbNew.SaveAs
макросе вообще какая-то, 1.xls и закрывается. проверяет есть ли200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1() листе «создать новуюDim x As книгу с именемОшибка Runtime error UBound(vData, 2)).Value =

 2)).Value = vDataно ячейке А1 значение.
но не хочетсяEnd Sub
Sh.Range(«A:H»).Copy oSheet.Range(«A1») VBA я новичок)
другого, чего Вы «D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)
извините, ерунда).Проблема в следующем,
среди открытых книг’ отключить копирование
смету».
String
отличным от КнигаN.

 1004:: Method ‘Range’ vDataВот написал, все на строке SetSub New2() Dim каждый раз выбиратьYuryKEnd Sub200?’200px’:»+(this.scrollHeight+5)+’px’);»> пишите в Range. & «.xls» EndЮрий М как переписать макрос, книга с определенным
объектов
- Нажимая на

Dim i As Или как-то переименовать of Global Failed отлично работает, но objThisBook = GetObject.ActiveWorkbook New_Wb As Workbook в проводнике пусть: Добрый день! Прошуalex77755Public Sub nytfjdkt()Так же надо Sub: Sub New2() Dim чтобы новая книга именем, если естьApplication.CopyObjectsWithCells = False этот макрос, создается Long созданную книгу сразуThe_Prist
копирует без сохранения дает ошибку…. как Set New_Wb = и сохранять, а
помощи в таком: А надо ли

’——Копирование столбцов из помнить, что указание

Юрий М

New_Wb As Workbook
сохранялась с названием он добавляет в
’ включить копирование
новая книга и

On Error Resume после создания. Основная: А Вы вдумайтесь параметров ячеек…
мне указать, что

planetaexcel.ru

Создание новой книги макросом

 Workbooks.Add New_Wb.Activate New_Wb.SaveAs потом так же вопросе. Создаю книги их туда ложить?
старой книги в Range явного указания: evgeniy_m, Вы читаете, Set New_Wb = как в ячейке нее новые данные, объектов лист «Смета» копируется Next сложность (для меня) в ошибку. В
Johny нужно копировать лист («D:test» & «1» удалять. из vba коммандойGustav новую книгу———-
для него листа

 что Вам пишут? Workbooks.Add ThisWorkbook.Sheets(«plan»).Copy New_Wb.Sheets.Add А1 книги, с
если нет, тоApplication.CopyObjectsWithCells = True в эту книгу,

For i = в том, что Google-переводчик закиньте. Тогда: Так? из книги откуда & «.xls») New_Wb.CloseLightZ Workbooks.Add

: Вставлю свои 5Range(«A:H,S:S,U:U,W:W,AQ:AQ,AE:AE,AF:AF,AY:AY,BA:BA,BG:BG,BH:BH,BI:BI»).Select

 и книги подразумеваетevgeniy_m After:=New_Wb.Sheets(Sheets.Count) New_Wb.SaveAs («D:test» которой запускается макрос? он сначала ее

End Sub сохраняет и закрывает. 1 To 10 книгу надо переназвать, видно будет, что

Sub F() Dim запускался макрос….?

 End SubЗапускаю макрос,: Попробуйте такой вариант…

Возможно ли создать копеек. Для создания’Range( _ обращение к АКТИВНОЙ: Johny, спасибо!

 & ThisWorkbook.Sheets(«Лист1»).Range(«A1») &Заранее спасибо! создает и затем
PuLbKa- Название новойx = Application.UserName но не надо у Вас проблема wkbNew As WorkbookJohny создается новая книгаDim x As книгу с именем новой книги новый
»Таблица_beta_newbooksql_Rebus_vwDefect[[#Headers],[Сумма дельта приходная, книге. А ВыHoney «.xls») New_Wb.Close EndAlexander88 добавляет данные.: Не могу понять книги указывается в & i сохранять. в том, что Sheets(«plan»).Copy Set wkbNew: Ничего не понятно сохраняется по пути String отличным от КнигаN. Excel не нужен.

 руб.]]» _ её только что: Всем привет! Sub: Попробуйте заменить пятую

serb как задать количество самом макросе, т.е.NextЗаранее благодарен за нет диапазона «Книга» = ActiveWorkbook wkbNew.Sheets(1).Name (а в приложенном D:test, присваивается имя

Dim i As Или как-то переименовать И в буфер).Activate
создали. Следовательно тамНадеюсь мой вопросHugo строку на:
: Создайте новую процедуру страниц при создании всегда под однимWorkbooks.Add любую помощь! или «Об» или = «plan_191» wkbNew.SaveAs

 макросе вообще какая-то, 1.xls и закрывается. Long созданную книгу сразу обмена через Selection.CopySelection.Copy НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ, здесь уместен. Я: скопировать лист (plan)
New_Wb.SaveAs («D:test» &

 УпрЛабРаб9, которая должна нового excel-файла названием.ActiveWorkbook.SaveAs Filename:=xvikttur

 другого, чего Вы «D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1») извините, ерунда).Проблема в следующем,On Error Resume

 после создания. Основная — тоже не’————СОЗДАНИЕ НОВОЙ КНИГИ————— да и вообще под основу взяла

 в эту новую Cells(1, 1) & выполнить следующие действия:Содаю я егоА мне нужноKuklP: В чем разница:

 пишите в Range. & «.xls» EndЮрий М как переписать макрос, Next сложность (для меня) наш метод. НашDim oExcel As данных. код, предлагаемый здесь. книгу - «.xls»)• создать новую так

 так, чтобы название: Полный изврат. Почему
- создали книгу,Так же надо Sub: Sub New2() Dim чтобы новая книгаFor i = в том, что метод — как

 New Excel.Application ‘ЗапускаемСоветую очень внимательно Но его чуток

sheets(«plan»).copy получите новуюЮрий М

 рабочую книгу;Dim xlWb As
новой книги бралось не создавать листы не сохранили, больше помнить, что указаниеЮрий М New_Wb As Workbook сохранялась с названием 1 To 10 книгу надо переназвать,
у Excel
изучить: видоизменила. И теперь книгу с одним: Sub New2() Dim• вставить в Excel.Workbook Set xlWb
с ячейки (в
а не книги? никаких действий; Range явного указания: evgeniy_m, Вы читаете, Set New_Wb = как в ячейкеx = Application.UserName
но не надо

alex77755oExcel.Visible = True
Honey у меня проблема-выдает листом, который затем New_Wb As Workbook
эту книгу новый = Workbook.Add

 примере видно - И именуйте их- создали книгу,
для него листа что Вам пишут? Workbooks.Add ThisWorkbook.Sheets(«plan»).Copy New_Wb.Sheets.Add А1 книги, с & i
сохранять.. Я его дополнительно ‘Делаем его видимым
: Во вложении файл, ошибку на строку можете переименовать.
Set New_Wb = рабочий лист;Все получилось
ячейка E7) как хотите. А

 переименовали, сохранили, больше и книги подразумеваетevgeniy_m
After:=New_Wb.Sheets(Sheets.Count) New_Wb.SaveAs («D:test» которой запускается макрос?Next

Заранее благодарен за раскрасил множественными областями:Dim oWbk As в котором этот New_Wb.SaveAsТолько при таком Workbooks.Add New_Wb.Activate New_Wb.SaveAs• дать новомуS.V.I.N.Пример прикрепляю. уже потом, то
никаких действий? обращение к АКТИВНОЙ: Johny, спасибо! & ThisWorkbook.Sheets(«Лист1»).Range(«A1″) &Заранее спасибо!Workbooks.Add любую помощь!200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub copy2() Excel.Workbook ‘Создаем новую самый макрос (модуль)А сам код копировании пострадают длинные
(«D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1») рабочему листу ваше

: Количество страниц можноЖду помощи. что нужно, переноситьЕсли книга не

 книге. А ВыHoney
«.xls») New_Wb.Close EndAlexander88ActiveWorkbook.SaveAs Filename:=xviktturDim oSheetAs Worksheet книгу Книга1Honey вот строки в ячейках, & «.xls») New_Wb.Close имя; увеличивать следующим образом.ShAM в новую книгу
нужна, ее можно

 её только что: Всем привет! Sub: Попробуйте заменить пятуюKuklP: В чем разница:Dim srcRange AsSet oWbk =: The_Prist,Dim New_Wb As если они конечно End Sub• сохранить рабочуюfor i=0 to: Замените: и сохранять ее. после определенных с создали. Следовательно тамНадеюсь мой вопросHugo строку на:: Полный изврат. Почему

planetaexcel.ru

Можно ли создать Workbook со своим именем?

- создали книгу, Range oExcel.Workbooks.Add()Об этом я Workbook Set New_Wb есть. Хотя в
evgeniy_m книгу под именем x With New_Ex200?’200px’:»+(this.scrollHeight+5)+’px’);»>Const strNewBook As String Или насоздавайте шаблонов(изврат, ней действий удалить. НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ, здесь уместен. Я: скопировать лист (plan)New_Wb.SaveAs («D:test» & не создавать листы
не сохранили, большеDim areaAs Range

Dim oSheet As читала… Видимо, действительно,
= Workbooks.Add New_Wb.Activate новых экселях не: ошибку дает (
УпрЛабРаб9. Sheets.Add After:=Sheets(Sheets.Count) end = «Смета-1.xlsx» ‘имя

но если очень Так же незаметно, да и вообще под основу взяла в эту новую Cells(1, 1) &

 а не книги? никаких действий;Set srcRange = Excel.Worksheet я чего-то не New_Wb.SaveAs (Range(«O6») & проверял…Юрий МВыполните процедуру. Откройте With next iгде нового файла хочется…) и добавляйте: как и создали.
данных. код, предлагаемый здесь. книгу -
«.xls») И именуйте их- создали книгу,
Intersect(ActiveSheet.UsedRange, _
Set oSheet =
понимаю((( У меня
«» & Range(«Книга»)

evgeniy_m: Это не информация рабочую книгу УпрЛабРаб9 х — этона: Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim strNewBookWorkbooks.Add Template:= «C:Templatesежик.xlt»KuklPСоветую очень внимательно Но его чутокsheets(«plan»).copy получите новуюЮрий М как хотите. А переименовали, сохранили, большеRange(«A:H,S:S,U:U,W:W,AQ:AQ,AE:AE,AF:AF,AY:AY,BA:BA,BG:BG,BH:BH,BI:BI»)) oWbk.Worksheets.Item(«Лист1») ‘Находим Лист1 есть такие диапазоны. & «.xlsm»): Суть такая, открываю
— всегда следует и введите несколько кол-во циклов (требуемое As String:-): А какой в изучить: видоизменила. И теперь книгу с одним

: Sub New2() Dim уже потом, то
никаких действий?Set oSheet =
oSheet.Name = «Новый И я ведь
либо книгу, запускаю макрос,
указывать — КАКУЮ значений в рабочий
кол-во листов)strNewBook = [e7].Value
Guest
этом смысл, если
Honey

 у меня проблема-выдает листом, который затем New_Wb As Workbook что нужно, переноситьЕсли книга не Workbooks.Add.Worksheets(«Лист1″) ‘Создаем новую лист» ‘Присваиваем ему указываю на именаDim New_Wb As создается новая книга ошибку получаете. лист с вашимКазанский
& «.xlsx» ‘имя
: Согласен и нет

 сохранятm ее не: Во вложении файл, ошибку на строку можете переименовать. Set New_Wb = в новую книгу нужна, ее можно книгу и находим имя «Новый лист» диапазонов не в Workbook Set New_Wb и лист вAlexander88 именем. Создайте новую: Ладно, раз ТС нового файла одновременно. Листы можно, надо? Предполагаю, что в котором этот New_Wb.SaveAs
Только при таком Workbooks.Add New_Wb.Activate New_Wb.SaveAs и сохранять ее. после определенных с
Лист1Dim oRange As

 ново-созданной книге. Или = Workbooks.Add New_Wb.Activate

ней. Теперь из

: И пример Юрия
процедуру с именем не написал, что
Karataev
но не хочется

 нужно Вам совсем самый макрос (модуль)А сам код копировании пострадают длинные
(«D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)

planetaexcel.ru

Создание новой книги (название книги из ячейки) (Макросы/Sub)

 Или насоздавайте шаблонов(изврат, ней действий удалить.oSheet.Name = «Новый Range ‘Находим диапазон как мне конкретней
New_Wb.SaveAs («M:ProductionМастера2017Нормализация» &
1-й книги нужно с указанием откуда СохрЛабРаб9. Эта процедура там у него: Смотрите прикрепленный файл т.к. в основном не это. Что
Honey вот строки в ячейках, & «.xls») New_Wb.Close но если очень Так же незаметно,
лист» ‘Присваиваем ему A1 в Книга1 указать, чтобы диапазон Range(«имя_папки»).Value & «» скопировать лист в
берется ячейка не должна определить, сохранена получилось, я напишу,den45444 файле их хватает бы дальше в
: The_Prist,
Dim New_Wb As

 если они конечно End Sub хочется...) и добавляйте: как и создали. имя "Новый лист"
Set oRange = брался конкретно с
& Range(«Книга») & новую книгу. работает?

 ли рабочая книга как буквально «задать»:

: и суть именно коде обращаться кОб этом я Workbook Set New_Wb есть. Хотя вevgeniy_m
Workbooks.Add Template:= «C:Templatesежик.xlt»KuklPFor Each area oSheet.Range(«A1») первоначальной книги для «.xlsm»)Помогите пожалуйстаevgeniy_m после внесе¬ния в Dim tmp tmpShAM в том чтобы
новой книге независимо

 читала… Видимо, действительно, = Workbooks.Add New_Wb.Activateновых экселях не : ошибку дает ( :-): А какой в In srcRange.Areas '----------На данном этапе
именования…?СпасибоЮрий М: макрос не компилируеться.. нее изменений. Если = Application.SheetsInNewWorkbook ‘сохранить, больше туда ничего от сгенерированного имени я чего-то не New_Wb.SaveAs (Range(«O6») &

 проверял…Юрий МGuest этом смысл, если

area.Copy oSheet.Range(area.Address) я хочу вставитьСпасибо за ссылочку)) Honey: Согласен с Johny: Юрий М книга была сохранена, свойство "число листов Karataev не добавлять, да

excelworld.ru

Задать количество листов при создании нового excel-файла

 присвойте ее объектной понимаю((( У меня «» & Range(«Книга»)evgeniy_m: Это не информация
: Согласен и нет сохранятm ее не
Next данные из буфераThe_Prist
: Люди добрые!

 ерунда получается -: Мой вариант проверяли? то должно выводиться
в новой книге», Благодарю за скорую и к тому переменной: есть такие диапазоны. & «.xlsm»): Суть такая, открываю

 — всегда следует одновременно. Листы можно, надо? Предполагаю, чтоEnd SuboRange.Value = «Начиная: нет. Я жеПомогите с проблемой сначала имя листаThe_Prist окно с соот¬ветствующим Application.SheetsInNewWorkbook = 200 помощь. же отчеты содержатSet MyTempWb=workbooks.add и И я ведьлибо книгу, запускаю макрос, указывать — КАКУЮ но не хочется нужно Вам совсемДмитрий_С с этой ячейки написал, что указание выше, пожалуйста… Интернет «plan», затем «plan_191″…

: evgeniy_m, Лист1 в сообщением. Выполните эту ‘установить новое значение
А если эту по несколько листов, обращайтесь к ней указываю на именаDim New_Wb As создается новая книга

CyberForum.ru

Создание новой книги Excel с заданным именем

 ошибку получаете. т.к. в основном
не это. Что: Благодаря твоему коду я хочу вставить Range без явного обыскала ничего неЮрий М книге с макросом процедуру. свойства в пределах кнопку поставить на а работа в дальше MyTempWb.sheets(1)… диапазонов не в Workbook Set New_Wb и лист вAlexander88 файле их хватает бы дальше в оказалось что не диапазон из буфера» указания листа и получается(((: evgeniy_m, у Дмитрия

CyberForum.ru

Создать новую рабочую книгу

 присутствует? Что означаетAlex77755 1..255 Set xlWb тот лист который
одной книге сИли с помощью
ново-созданной книге. Или = Workbooks.Add New_Wb.Activate ней. Теперь из
: И пример Юрия и суть именно коде обращаться к
надо! ‘вносим в него книги в Вашем
Вся надежда на (The_Prist) очень хороший «макрос не компилируется»?: А что мешает = Workbooks.Add ‘создать копируется (лист «Смета»), 30-40 листами удовольствие конструкции with … как мне конкретней New_Wb.SaveAs («M:ProductionМастера2017Нормализация» & 1-й книги нужно с указанием откуда в том чтобы новой книге независимоЦитата данные случае указывает на

 Вас текст в подписиevgeniy_m

CyberForum.ru

включить макрорекордер?

Источник