Question

VB Scripting的新手。我的问题是2部分：我需要将450列标题从一个Excel工作表复制到另一个包含数据的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

单元格边框未使用特殊粘贴复制

1 个答案: