在Excel中复制和修改值

Question

我经常做一份工作。现在我只想通过使用VBScript自动完成这项工作。

QUERY

我只是想将一个excel文件从文件夹A复制到另一个已经创建的文件夹B，并且想要更改一个值。

条件

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

• 我想将H列中的值更改为1而不是0。

希望我很清楚。

有人可以帮我解决这个问题吗？

此致

Nanthini

Answer 1

我希望以下链接能为您提供帮助。 如果它不能请你详细说明你的问题。

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