复制和修改Excel中的值

我在定期做一份工作。现在，我只想通过使用VBScript来自动完成这项工作

查询

我只是想将一个excel文件从文件夹A复制到今天创建的另一个文件夹B，并想更改一个值

条件

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

• 我想把H列中的值改为1，而不是0

希望我清楚

谁能帮我一下吗

问候,

---

南提尼

我希望下面的链接能对您有所帮助。 如果没有的话，请你详细地谈谈你的问题

要更改列的值，可以使用以下代码：

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

excelPath=“”Excel路径
设置objExcel=CreateObject（“Excel.Application”）“Excel对象
Set currentWorkSheet=objExcel.active工作簿.Worksheets（“”）
左=currentWorksheet.UsedRange.Column
设置单元格=当前工作表。单元格
'循环以遍历所有th列
对于行=0到（usedRowsCount-1）
单元格（第8行）。Value=“1”
下一个