Вставить только значения - PullRequest
0 голосов
/ 09 марта 2020

Попытка вставить значения ячеек вместо относительной ссылки. однако .PasteSpecial Paste: = xlPasteValues ​​выдает ошибку?

Private Sub CommandButton1_Click()
   Dim Fname As String
   Dim SrcWbk As Workbook
   Dim DestWbk As Workbook

   Set DestWbk = ThisWorkbook

   Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a import file")
   If Fname = "False" Then Exit Sub
   Set SrcWbk = Workbooks.Open(Fname)

   SrcWbk.Sheets("Resources").Range("D1:AV206").Copy DestWbk.Sheets("Resources").Range("C87:AV293")**.PasteSpecial Paste:=xlPasteValues**

   SrcWbk.Close False



   Columns("A:AB").ColumnWidth = 13
   Rows("1:5000").autofit


End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...