Специальная вставка в VBA работает неправильно - PullRequest
0 голосов
/ 25 марта 2020

У меня проблемы с правильным выполнением этого кода. Конечная цель этого кода состоит в том, что он копирует данные из рабочей книги 2, «основного» листа, и вставляет их в «ключевой» лист рабочей книги 1. По какой-то причине он в конечном итоге вставляет код в правильный лист, но также в лист «потенциальных клиентов» в книге 1. Я попытался изменить код, отладка и т. д. c. но я не могу понять, что не так. Любое руководство приветствуется!

Sub Leads_Import_Key_Click()

Dim wkb1 As Workbook
Dim sht1 As Worksheet
Dim wkb2 As Workbook
Dim sht2 As Worksheet

Application.ScreenUpdating = False

Set wkb1 = ThisWorkbook
Set wkb2 = Workbooks.Open("Workbook2.xlsx")
Set sht1 = wkb2.Sheets("Master")
Set sht2 = wkb1.Sheets("Key")

sht1.Range("A1:B10000").Copy
sht2.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wkb2.Close True

Worksheets("Leads").Select

MsgBox ("Successfully imported Key.")

Worksheets("Leads").Range("A1").Select

End Sub

1 Ответ

0 голосов
/ 27 марта 2020

Не нужно использовать буфер обмена, просто сделайте прямую передачу значения:

sht2.Range("A1:B10000").Value = sht1.Range("A1:B10000").Value
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...