Sub открыть_вставить_закрыть() Application.ScreenUpdating = False a = Selection.Value With GetObject(ThisWorkbook.Path & "\2.xls") With .Sheets("Лист1") .Range("A1").Resize(UBound(a), Selection.Columns.Count) = arr End With .Windows(1).Visible = True .Close True End With Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub открыть_вставить_закрыть() Application.ScreenUpdating = False a = Selection.Value With GetObject(ThisWorkbook.Path & "\2.xls") With .Sheets("Лист1") .Range("A1").Resize(UBound(a), Selection.Columns.Count) = arr End With .Windows(1).Visible = True .Close True End With Application.ScreenUpdating = True End Sub
По идее, можно попробовать воспользоваться ADO и инструкцией UPDATE (что позволит обновить именно закрытую книгу). Но в таком случае мы переходим из плоскости теории к практическим рассуждениям - ибо надо знать структуру книги-получателя...
wild_pig, а без открытия?
По идее, можно попробовать воспользоваться ADO и инструкцией UPDATE (что позволит обновить именно закрытую книгу). Но в таком случае мы переходим из плоскости теории к практическим рассуждениям - ибо надо знать структуру книги-получателя...AndreTM
воспользоваться ADO и инструкцией UPDATE (что позволит обновить именно закрытую книгу)
Не позволит. Позволит ее открыть, да не просто, а для записи. Ни один из существующих механизмов, будь то чтение, или запись в файл, не работает напрямую с дисковыми секторами.
воспользоваться ADO и инструкцией UPDATE (что позволит обновить именно закрытую книгу)
Не позволит. Позволит ее открыть, да не просто, а для записи. Ни один из существующих механизмов, будь то чтение, или запись в файл, не работает напрямую с дисковыми секторами.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
KuklP, ну, это я так предложил - мало ли, ТС не устраивает механизм, предложенный wild_pig А "закрытая" у меня предполагала то, о чём, видимо, и говорил ТС - "не открытая в данный момент приложением Excel".
KuklP, ну, это я так предложил - мало ли, ТС не устраивает механизм, предложенный wild_pig А "закрытая" у меня предполагала то, о чём, видимо, и говорил ТС - "не открытая в данный момент приложением Excel".AndreTM
Приветствую участников! Я думал вопрос изначально некорректный "глупый", а он вот как обсуждается... Посмотрю варинат wild_pig, и отпишусь позднее, всем спасибо...
Приветствую участников! Я думал вопрос изначально некорректный "глупый", а он вот как обсуждается... Посмотрю варинат wild_pig, и отпишусь позднее, всем спасибо...Мур
Может, две описки? a и arr - это одно. А как насчёт Ubound(a) против Ubound(a, 1) ? Не сильно принципиально в VBA - но может вызвать оччень большие проблемы при бездумном переносе на другие языки
Может, две описки? a и arr - это одно. А как насчёт Ubound(a) против Ubound(a, 1) ? Не сильно принципиально в VBA - но может вызвать оччень большие проблемы при бездумном переносе на другие языки AndreTM