Макрос - Мир MS Excel

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос (Макросы Sub)

Макрос

Борис

Дата: Вторник, 18.02.2014, 13:38 | Сообщение № 1

Группа: Гости

Помогите пожалуйста. Есть макрос:
[vba]

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "C:\Users\boris\Documents"
Range("A3").Select
ActiveCell.FormulaR1C1 = "опа"
Range("A4").Select
ChDir [A2]
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [A3]
Application.DisplayAlerts = True

End Sub

[/vba]

проблема в следующем: Кода я применяю этот макрос, первый раз он мне его сохраняет в ту папку которая указана в макросе. Я удаляю
сохраненный файл и заново применяю макрос и он его отправляет на рабочий стол. Как можно исправить эту проблему?
[moder]Тема закрыта. Нарушение правил форума

Ответить

alex77755

Дата: Вторник, 18.02.2014, 13:59 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Будь проще! Зачем эти Select, FormulaR1C1, ChDir ?
поменяй путь на свой:
[vba]

Код

Sub Макрос1()
     Range("A3") = "C:\Documents and Settings\Александр\Мои документы\опа"
     Application.DisplayAlerts = False
     ActiveWorkbook.SaveAs [A3]
     Application.DisplayAlerts = True
  End Sub

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос (Макросы Sub)

Страница 1 из 1
1