Макрос сохранение активного листа книги в отдельный файл

@v-jay · Регистрация: 14.04.2014

Author24 — интернет-сервис помощи студентам

Код сохраняет файл, но с пустым содержанием. Подскажите, в чем может быть проблема?

Visual Basic

  With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
        If .Show = 0 Then Exit Sub
        ThisWorkbook.ActiveSheet.Copy
        Application.DisplayAlerts = False
        .Execute
        Application.DisplayAlerts = True
    End With
    ActiveWorkbook.Close False

@pashulka · 12.07.2015, 16:53

ThisWorkbook и ActiveWorkbook не всегда одна и таже книга.

Visual Basic

With Application.FileDialog(msoFileDialogSaveAs)
     .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
     If .Show = 0 Then Exit Sub
         
     Application.DisplayAlerts = False
     ActiveSheet.Copy: .Execute
     ActiveWorkbook.Close False
     Application.DisplayAlerts = True
End With

Visual Basic

With Application.FileDialog(msoFileDialogSaveAs)
     .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
     If .Show = 0 Then Exit Sub
         
     Application.DisplayAlerts = False
     ActiveSheet.Copy
     ActiveWorkbook.Close True, .SelectedItems(1)
     Application.DisplayAlerts = True
End With

@v-jay · 13.07.2015, 12:20 **[ТС]**

pashulka
Спасибо, теперь все сохраняется с данными.

Новые блоги и статьи
КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .	Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .	Fortran и WinAPI: как создать приложение с графическим интерфейсом hw_wired 28.01.2025 Fortran — это один из старейших высокоуровневых языков программирования, широко используемый в науке и инженерии уже несколько десятилетий. Его название происходит от "Formula Translation" (перевод. . .	Списки в Haskell hw_wired 28.01.2025 Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .	Функции высшего порядка в Haskell hw_wired 28.01.2025 Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .
Как в цикле обойти все поля объекта в JavaScript bytestream 28.01.2025 Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .	Как выбрать строки в DataFrame по значению столбца в Pandas bytestream 28.01.2025 В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .	Как сделать перенос строки в Bash bytestream 28.01.2025 При работе с командной оболочкой Bash разработчики часто сталкиваются с необходимостью форматирования текстового вывода, где ключевую роль играет правильное управление переносами строк. Умение. . .	Поиск подстроки в строке с помощью Bash bytestream 28.01.2025 Поиск подстроки в строке является одной из важных задач в программировании и обработке текстов. Применение такого поиска можно найти в самых разных областях, от анализа данных до разработки. . .	[golang] 169. Majority Element alhaos 28.01.2025 Тут надо вернуть "мажористый" элемент который встречается в слайсе больше чем в половине случаев. По условиям задачи во входных данных такой элемент обязан присутствовать. / / . . .	Когда лучше использовать LinkedList вместо ArrayList в Java bytestream 28.01.2025 При разработке Java-приложений выбор правильной структуры данных играет ключевую роль в обеспечении эффективности и производительности программы. ArrayList и LinkedList являются двумя. . .

@v-jay 0 / 0 / 0 Регистрация: 14.04.2014 Сообщений: 3
	13.07.2015, 12:20 [ТС]	3
	pashulka Спасибо, теперь все сохраняется с данными. 0

Макрос сохранение активного листа книги в отдельный файл

Решение