将列从一个excel复制到另一个excel

我有一些特定的要求，复制每个工作簿的B列，并将它们按顺序粘贴到主工作手册中

e、 g.WB1、WB2、Wb3为工作手册，Master应具有以下方式的数据：

从WB1数据B3开始复制，直到值存在，然后粘贴到Matser工作簿B3列

从WB2数据B3开始复制，直到值存在，然后粘贴到主工作簿C3列

从WB2数据B3开始复制，直到值存在，然后粘贴到主工作簿D3列

其他工作手册也是如此

我正在使用VBS，但找不到满足我要求的任何帮助。这方面的任何帮助都是非常值得的。谢谢你的期待

这就是我一直在尝试的

Set objExcel = CreateObject("Excel.Application")
Set sourcewb = objExcel.Workbooks.Open(SourceFilePath)
Set destwb = objExcel.Workbooks.Open(DestFilePath)
objExcel.Visible = True
Set sourcews = sourcewb.Sheets(sourcesheet)
Set destws = destwb.Sheets(destsheet)
sourcews.Activate
Set SourceColumn = Selection.sourcews.Offset(3, 1).Range("B1").Select
Set TargetColumn = destws.Range("B3")
SourceColumn.Copy

---

您不能使用

Selection.sourcews…

，因为VBScript不知道

Selection

是什么。全局

选择

对象仅存在于Excel/VBA中

---

有关从VBScript使用Excel对象的详细信息，请参见。

向我们展示迄今为止您尝试了哪些设置objExcel=CreateObject（“Excel.Application”）设置swb=objExcel.Workbooks.Open（SFilePath）设置dwb=objExcel.Workbooks.Open（DFilePath）objExcel.Visible=True设置sws=swb.Sheets（ssheet）设置dws=dwb.Sheets（dsheet）设置Rows=sws.Rows sws.Activate set SourceColumn=Selection.sws.Offset（3,1）.Range（“B1”）。选择set TargetColumn=dws.Range（“B3”）SourceColumn.COPYTHORK-simoco更新代码（我是新手）再次感谢。您打算在哪里使用此代码？从Excel工作簿？我正在编写一个VBS，它将在Excel工作簿-Saket上为我执行此操作