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

Question

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

e.g。 WB1，WB2 Wb3是工作簿，Master应该有以下方式的数据：

1. 从WB1数据B3开始复制直到值存在并粘贴到Matser工作簿B3列以后
2. 从WB2数据B3开始复制直到值存在并粘贴到Master工作簿C3列以后
3. 从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

Answer 1

您无法使用Selection.sourcews...，因为VBScript不知道Selection是什么。全局Selection对象仅存在于Excel / VBA中。

有关使用VBScript中的Excel对象的详细信息，请参阅this post。