如何使用 vbscript 将一张纸中的行复制到另一张纸

2023-12-25

假设我的 Excel 中有 Sheet(1)。现在我也有 2500 行,其中包含从 A 到 BO 的列的数据。现在我希望将数据从这些工作表复制到同一 Excel 文件的另一张工作表中 2500 行,但不是整个列,而是我只需要从 A 到 AA 的列数据复制到新工作表。

那么如何使用VBscript来构建它呢?

请帮我。

如何使用 vbscript 将一张纸中的行复制到另一张纸


要将数据从一张工作表复制到另一张工作表,您可以使用“复制”和“特殊粘贴”命令。要执行此操作,请使用.vbs脚本执行以下操作:

' Create Excel object
Set objExcel = CreateObject("Excel.Application")
' Open the workbook
Set objWorkbook = objExcel.Workbooks.Open _
    ("C:\myworkbook.xlsx")
' Set to True or False, whatever you like
objExcel.Visible = True

' Select the range on Sheet1 you want to copy 
objWorkbook.Worksheets("Sheet1").Range("A1:AA25").Copy
' Paste it on Sheet2, starting at A1
objWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
' Activate Sheet2 so you can see it actually pasted the data
objWorkbook.Worksheets("Sheet2").Activate 

如果您想在 Excel 中使用 VBS 宏执行此操作,您还可以调用复制和粘贴方法。只有你的工作簿对象才会像这样ActiveWorkbook

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

如何使用 vbscript 将一张纸中的行复制到另一张纸 的相关文章

随机推荐