我有一個代碼，可以復制我選擇的資料，但我想在輸出檔案（zeszyt 3）中保持粘貼前的單元格格式。我的意思是只復制值而不復制格式。
Set wb = Workbooks.Open(strPath, False, True)
wb.Sheet("vintage_agr").Columns("A:C").Copy Destination:=wbMe.Sheet("input_4").Range("A1")
wb.Sheet("vintage_agr").Columns("H").Copy Destination:=wbMe.Sheet("input_4").Range("D1")
wb.Sheet("analityka_id-tabele").Range("E68:G71").Copy Destination:=wbMe.Sheet("strona 3").Range("E16")
wb.Sheet("analityka_id-tabele").Range("E72:G72").Copy Destination:=wbMe.Sheet("strona 3").Range("E15")
wb.Close False。
Set wb = Nothing。
鳴叫
MsgBox "Mamy to"/span>
End Sub
uj5u.com熱心網友回復：
不幸的是，"destination:="命令不支持 "只有值"
所以我會使用.copy，然后使用.pastespecial與".xlPasteValues"
完整的代碼測驗：
Sub test()
Set wb = ThisWorkbook
Set wbMe = ThisWorkbook
'Set wb = Workbooks.Open（strPath, False, True）
wb.Sheet("vintage_agr").Columns("A:C") .Copy
wbMe.Sheet("input_4").Range("A1").PasteSpecialPaste：=xlPasteValues
wb.Sheet("vintage_agr").Columns("H") .Copy
wbMe.Sheet("input_4").Range("D1").PasteSpecialPaste：=xlPasteValues
wb.Sheets("analityka_id-tabele").Range("E68:G71") .Copy
wbMe.Sheet("strona 3").Range("E16").PasteSpecial Paste:=xlPasteValues
wb.Sheets("analityka_id-tabele").Range("E72:G72") .Copy
wbMe.Sheet("strona 3").Range("E15").PasteSpecial Paste:=xlPasteValues
wb.Close False。
Set wb = Nothing
'提示音 '提示音
MsgBox "Mamy to"/span>
End Sub
uj5u.com熱心網友回復：
使用xlPasteValues。
一般的格式是：
Range("A1"/span>).Copy
Range("B1").PasteSpecial Paste:=xlPasteValues
例如，你的代碼中的第3行將由以下內容組成：
wb.Sheet("vintage_agr") 。 Columns("A:C").Copy Destination:=wbMe.Sheet("input_4").Range("A1")
to
With wb.Sheet("vintage_agr").Columns("A：C")
.復制
.PasteSpecial Paste:=xlPasteValues
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/324169.html
標籤：