我有一些特定的要求将B列复制到每个工作簿中并按顺序将它们粘贴到Master工作簿中 .
例如WB1,WB2 Wb3是工作簿,Master应该有以下方式的数据:
_999_从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
1 回答
你不能使用
Selection.sourcews...
因为VBScript不知道Selection
是什么 . 全局Selection
对象仅存在于Excel / VBA中 .有关使用VBScript中的Excel对象的详细信息,请参阅this post .