单元格边框不复制与粘贴特殊

总新手到VB脚本。 我的问题是2部分：我需要从一个Excel表格复制一个450列标题到另一个Excel表格与数据。 标题具有表格边框并被格式化。 我在网上查了一些例子，把这个脚本复制一下。

但是，单元格边框不被复制。 只是文本 – 所以标题格式不结转。

下面是我的代码。

这不是粘贴边界的正确方法吗？

一旦复制了边框，如果我将这个表单复制到另一个表单中，单元格边框和格式化是否也会被转移？

Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook1= objExcel.Workbooks.Open("header.xlsx") Set wksSource = objWorkbook1.Worksheets("Sheet1") Set objWorkbook2= objExcel.Workbooks.Open("IS3.xlsx") Set wksDest = objWorkbook2.Worksheets("TD") Set objRange = objWorkbook1.Worksheets("Sheet1").Range("A1:IZ3").Copy wksDest.Range("A1:IZ3").PasteSpecial objRange objWorkbook1.Save objWorkbook1.Close objWorkbook2.Save objWorkbook2.Close objExcel.Quit Set objExcel = Nothing Set wksSource = Nothing Set wksDest = Nothing 

Answer 1

您的粘贴特殊没有指示。 你需要打两次。 一次为格式，一次为值。

 wksDest.Range("A1:IZ3").PasteSpecial Paste:=xlPasteFormats objRange wksDest.Range("A1:IZ3").PasteSpecial Paste:=xlPasteValues objRange