Question

我认为自己在创建vba代码方面经验丰富，但这个简单的任务非常难以实现......或者是它？我正在尝试创建具有不同名称的多个文档，并且每个文档仅在两个单元格中存在差异。问题是我甚至无法超越价值变化。

我知道有不同的方法来实现这一目标，而且我有权利得到我需要的东西。我的问题是 - 我完全不知道为什么下面的代码不起作用。我得到的错误是“运行时错误'1004'：应用程序定义或对象定义的错误”和highlited是for循环的第一行

"Sheets("List1").Range("C2") = Sheets("výroba").Range(Cells(row, 1)).Value

有人能告诉我们这个问题吗？

代码：

Sub pal()

Dim rows_total As Integer
Dim row As Integer



rows_total = Application.CountA(Worksheets("výroba").Range("A:A"))


For row = 1 To rows_total

Sheets("List1").Range("C2") = Sheets("výroba").Range(Cells(row, 1)).Value

Sheets("List1").Range("E2") = Sheets("výroba").Range(Cells(row, 2)).Value

ThisWorkbook.SaveAs Filename:="C:\Users\Public\Documents\Úkoláky pokov\výroba\" & Worksheets("výroba").Range(Cells(row, 2)).Value & ".xlsx"

Next row


End Sub

Answer 1

为什么使用Sheets("výroba").Range(Cells(row, 1)).Value？

只需使用Sheets("výroba").Cells(row, 1).Value代替

无法为其他单元格分配值

1 个答案: