在Excel中复制和修改值

Question

我正在定期执行一项任务。现在我只想通过使用VBScript自动完成这项工作。

QUERY

我只是想从文件夹中的一个Excel文件复制到今天已经创建好要更改值另一个文件夹B中。

条件

• 我不想同一个文件复制两次。

• 而且我想改变在H列的值的0.1，而不是

希望我是清楚的。

任何人都可以请帮助我吗？

问候，

Nanthini

Answer 1

我希望下面的链接woould帮助你。 如果它不能请你提出你的问题。

http://easyprograming.com/vb-script-articles/17-moving-and-renaming-files-in-vb-script/

而要改变列的值，可以使用下面的代码：

excelPath = "<<Path>>" 'Excel Path 
Set objExcel = CreateObject("Excel.Application") 'Excel object 
Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets("<<Sheet name>>") 
left = currentWorksheet.UsedRange.Column 
Set Cells = currentWorksheet.Cells 
'loop to iterate through all th columns 
For row = 0 to (usedRowsCount-1) 
Cells(row,8).Value = "1" 
Next