Если так, то сохраняет на рабочий стол. (Понятия не имею почему)
А если так, то сохраняет в указаную папку.
Вопрос:
1. А как сделать чтобы он сохранял в ту папку, из которой я его открыла?
2. А еще как сделать чтобы он создавал новую папку в том месте где я ему укажу, и сохранял документ там?
К примеру, я хочу чтобы он создавал новую папку именем ячейки А1,
по адресу "C:\Users\Вероника\Документы\ (имя с ячейки А1)"
| Код |
|---|
Sub SaveAs1() Application.DisplayAlerts = False ActiveWorkbook.SaveAs [AZ32] Application.DisplayAlerts = True End Sub |
А если так, то сохраняет в указаную папку.
| Код |
|---|
Sub SaveAs2() Application.DisplayAlerts = False ChDir "C:\Users\Вероника\Документы" ActiveWorkbook.SaveAs [AZ32] Application.DisplayAlerts = True End Sub |
Вопрос:
1. А как сделать чтобы он сохранял в ту папку, из которой я его открыла?
2. А еще как сделать чтобы он создавал новую папку в том месте где я ему укажу, и сохранял документ там?
К примеру, я хочу чтобы он создавал новую папку именем ячейки А1,
по адресу "C:\Users\Вероника\Документы\ (имя с ячейки А1)"
Изменено: - 12.06.2013 21:11:07
