Открыть другой документ Excel

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

Открыть другой документ Excel (Макросы/Sub)

ant6729

Дата: Среда, 31.08.2016, 11:39 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Раньше открывал документ Excel на рабочем столе макросом из другого документа Excel. Создавал новые документы макросами.

Сейчас создал руками документ на рабочем столе. Написал макрос в другом документе Excel, чтобы его открыть . И данный макрос не видит этот новосозданный документ на рабочем столе, однако успешно продолжает выполнять операции внутри себя самого.

Как вернуть возможность открытия конкретных документов via VBA.

???

Ответить

buchlotnik

Дата: Среда, 31.08.2016, 11:40 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

ant6729, пример в студию

Ответить

sboy

Дата: Среда, 31.08.2016, 11:58 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата ant6729, 31.08.2016 в 11:39, в сообщении № 1

не видит этот новосозданный документ

а как Вы его показываете макросу?
пример кода нужен

Яндекс: 410016850021169

Ответить

ant6729

Дата: Среда, 31.08.2016, 12:03 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

[vba]

Код

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

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "цукцукец"
    Range("C4").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

[/vba]

По факту я находился в документе 2, открывал документ 1.
Писал в 1 цукцукец сохранял, закрывал его.

Ответить

ant6729

Дата: Среда, 31.08.2016, 12:05 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Раньше на другом компе была директория документа.

То есть VBA мог её как-то прописывать в код.

Сейчас то-ли версия Excel другая, то ли компьютер другой.

Ответить

sboy

Дата: Среда, 31.08.2016, 12:09 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

[offtop]мда[/offtop]
этим макросом Вы другой файл никак не показываете... цукцукец будет в активную книгу вноситься

Яндекс: 410016850021169

Ответить

ant6729

Дата: Среда, 31.08.2016, 12:19 | Сообщение № 7

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

блин, а я думал...

Ответить

ant6729

Дата: Среда, 31.08.2016, 12:23 | Сообщение № 8

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

[vba]

Код

Workbooks.Add
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "йцукцук"
    Range("B3").Select
    ChDir "C:\Users\1234\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\1234\Desktop\Книга1.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Range("I10").Select

[/vba]

Ладно, пойду другим путём. Буду постоянно создавать новый документ. И туда писать.

Сообщение отредактировал ant6729 - Среда, 31.08.2016, 12:42

Ответить

sboy

Дата: Среда, 31.08.2016, 14:52 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата ant6729, 31.08.2016 в 12:23, в сообщении № 8

постоянно создавать новый документ

так если нужно в записывать в уже созданный, то зачем новый?
[vba]

Код

Workbooks.Open("C:\Users\1234\Desktop\Книга1.xlsx").Activate
    Range("A1").FormulaR1C1 = "йцукцук"
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("I10").Select

[/vba]

Яндекс: 410016850021169

Ответить

Открыть другой документ Excel (Макросы/Sub)

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