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

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

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

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

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
  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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
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    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
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
Спасибо, теперь все сохраняется с данными.

Новые блоги и статьи Все статьи Все блоги /
Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .	Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет иметь приблизительный результат вычисления для метода обработки данных из double buffering. Hrethgir 10.04.2025 Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу можно будет корректировать по ходу. Это потому что прямое соотношение. . .
Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .	Vue SFC компонент на PHP с Fusion Jason-Webb 09.04.2025 PHP на сервере и JavaScript на клиенте — классическое сочетание, которое, несмотря на свою эффективность, создает определенный когнитивный диссонанс при разработке. В этом контексте появляются. . .	TypeScript vs JavaScript: Отличия и когда что использовать Reangularity 09.04.2025 JavaScript появился в 1995 году как творение Брендана Эйха и быстро стал основой интерактивности в вебе. За свою историю он прошел путь от простого языка для манипуляций с DOM до полноценной. . .

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

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

Решение