Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » O_Lex
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Ошибка буфера обмена run-time error '-2147221040 (800401d0)'
 
#
03.06.2021 11:11:40
Столкнулся с проблемкой при работе с буфером обмена. При попытке скопировать в буфер, возникает ошибка - run-time error '-2147221040 (800401d0)'

У экселя бывает такой глючёк - иногда при перемещении ячеек/строк/столбцов, он выдает ошибку "Не удалось освободить буфер обмена". Так вот именно в этом случае VBA и спотыкается. Причем если нажать debug и затем продолжить выполнение макроса, то всё проходит нормально.
Спотыкается на строке S = .GetText
Код
Sub CopyList()
    Dim S As String
    Application.ScreenUpdating = False
    Sheets("Заявка").Activate
    Sheets("Заявка").Select
    Worksheets("Заявка").Range("Заявка_текст").Copy
    With New DataObject
        .GetFromClipboard
        S = .GetText
        .Clear
        .SetText S
        .PutInClipboard
    End With
    Worksheets("Продажи").Activate
    Application.ScreenUpdating = True
End Sub


P.S. В архиве форума уже есть аналогичная тема, но проблема там не решена: Парсер VBA
Изменено: O_Lex - 03.06.2021 11:58:36
 
Перейти    
Копирование листа в новую книгу с определенным именем.
 
#
08.04.2021 05:28:04
Это не то. Файл не нужно сохранять сразу. И путь заранее неизвестен. Пользователь сам решает нужно ли сохранять, и в какую папку. А вот имя файла желательно предопределить.
 
Перейти    
Копирование листа в новую книгу с определенным именем.
 
#
05.04.2021 16:05:33
Моя задача скопировать лист в новую книгу, для последующего сохранения.
Столкнулся с парочкой проблем:

1.   Несмотря на явно указанное имя, при сохранении файла всё равно предлагается стандартное "КнигаN.xlsx" (где N это номер присвоенный экселем)
Делал так:
Код
target_workbook.Windows(1).Caption = "Продажи.xlsx"
Других способов не нашел.

2.   Заметил, что если при копировании конкретно указать книгу в которую копировать, то операция копирования выполняется дольше, чем без указания (новая книга создается автоматически).
Код
    Select Case N
        Case 1                                                        '  Способ 1
            Sheets("Продажи").Copy
            Set NewSheet = ActiveWorkbook.ActiveSheet
        Case 2                                                        '  Способ 2
            Set source_worksheet = ThisWorkbook.Sheets("Продажи")
            Set target_workbook = Workbooks.Add()
            source_worksheet.Copy Before:=target_workbook.Sheets(1)
            Set NewSheet = target_workbook.Sheets("Продажи")
    End Select

Есть ли у кого нибудь какие либо соображения на этот счёт?

P.S.
От первого способа решил отказаться по той причине, что если во время экспорта происходит какой-то сбой, то новый лист иногда теряет фокус, и дальнейший код выполняется с дочерним листом (ActiveWorkbook.ActiveSheet). Что приводит к безвозвратной утере важных данных. (хорошо что регулярно делаю бэкапы).
 
Перейти    
vba скопировать формулу из одной ячейки в другую
 
#
04.06.2020 17:29:07
Цитата
The_Prist написал:
a = Cells(LastRow - 0, 6).Formula
Cells(LastRow + 1, 6).Formula = a
Зачем промежуточная переменная?
Разве нельзя просто написать:
Код
Cells(LastRow + 1, 6).Formula = Cells(LastRow, 6).Formula
Изменено: O_Lex - 04.06.2020 17:30:05
 
Перейти    
Страницы: 1
Наверх