如何复制粘贴和连接Excel列与VBScript？

我正在玩vbscript，如何让我的生活更轻松。 现在我想运行一个打开excel文件的脚本。 将C列（未知行长度）复制到B列，并将其连接到某些东西。

例：

------------------- ||| A | B | C | ------------------- |1|ONE | ANY | 11 | |2|TWO | ANY | 42 | |3|FOUR| ANY | 96 | |4|SIX | ANY | 42 | ------------------- 

为此：

---

 ||| A | B | C | ------------------- |1|ONE |*11* | 11 | |2|TWO |*42* | 42 | |3|FOUR|*96* | 96 | |4|SIX |*42* | 42 | ------------------- 

到目前为止，我已经试过这个：

 Option Explicit Dim objExcel Set objExcel = CreateObject("Excel.Application") With objExcel .Workbooks.Open ("Z:\1\one.xlsx") .Visible = False .Range("C:C").Copy .Range("B1").Select .ActiveSheet.Paste .ActiveWorkbook.Close(True) .Quit End With 

首先它给我一个错误，剪贴板已满，最好清理以释放内存。 其次，我还没有find在vbscript的互联网连接function。

Answer 1

随着一些研究和布鲁斯的帮助下工作，以防万一有人感兴趣：

 Option Explicit Dim objExcel,LastRow Const xlUp = -4162 Set objExcel = CreateObject("Excel.Application") With objExcel .Workbooks.Open ("Z:\1\onest.xlsx") .Visible = False LastRow = .Range("A1048576").End(xlUp).Row .Range("C1:" & "C" & LastRow).Copy .Range("B1").Select .ActiveSheet.Paste Do While LastRow <>0 .Cells(LastRow,2)="*"&.Cells(LastRow,3)&"*" LastRow = LastRow - 1 Loop .ActiveWorkbook.Close(True) .Quit End With