编译错误命名参数未找到

Question

我有一个Excel工作簿，其中包含相同字段中的多个工作表。 我想从模型表布局。 为了找到代码，我创建了一个宏。当我在Excel中运行它时它工作。我在Access中转置代码，我收到错误消息：

  

编译错误命名参数not found

以下是代码的详细信息（按钮）错误部分。

/company/{company_id}/users/{user_id}

这会为您提供值8，因此请将Paste:=xlPasteColumnWidths 替换为数字xlPasteColumnWidths。

8

Answer 1

枚举仅在Excel中定义。要查找枚举的值，请使用google。 print(myVar[::1]) print(myVar[0:len(myVar):1]) 为您提供以下结果：

Enum xlPasteColumnWidths

所以将Enum xlPasteColumnWidths替换为xlPasteColumnWidths

的值

Answer 2

问题是您使用以下内容：

With xlSheet1

      .Select "Modele"
      .Rows("1:2").Select
      .Copy
      .Name = sSheet
      .Select sSheet
      .Rows("1:1").Select
      ''''
      ' Bloc ici
      ''''
      .PasteSpecial **Paste:=xlPasteColumnWidths**, Operation:=xlNone, _
       SkipBlanks:=True, Transpose:=False

With表示点后的所有内容都与with一起发送。因此，您得到类似xlSheet1.PasteSpecial ...的内容，这有点非法，因为您只复制了前两行。

长话短说，试试这样：

.Rows("1:1").Select
Selection.PasteSpecial Paste:=8, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

应该可行。如果是，请找到一种方法来避免代码中的Select和ActiveSheet。