excel - VB Excel PasteSpecial 需要剪贴板内容？

Question

我在使用 VB PasteSpecial 时遇到问题。
此代码在 Excel VB 中完美运行(假设您选择了包含数据的单元格)

Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Application.CutCopyMode = False

但是，我正在使用从中提取数据的第三方软件 (QlikView)，然后应该将其复制到 Excel 文档中。正常粘贴没问题，但是 必须 被转置。

显然，由于我在工作簿中没有任何内容要复制，所以我不使用

Selection.Copy

但是因为我没有先从文档中复制任何内容(即使复制内存中有表数据)，所以这个调用会返回错误的参数异常(如果我先复制那个 VERY 工作簿中的单元格然后调用宏，也会发生这种情况用于转置它)。

Runtime error '1004' returned. PasteSpecial method of Range class failed.

是的，我可以将它粘贴到文档中，然后从该区域剪切它，将它移动到正确的位置并转置它，但这是不好的编码。

你们有没有人经历过这个并且有办法让它工作？

Answer 1

您将不得不使用上面提到的方法。你也可以试试这个

Range("A1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
Application.CutCopyMode = False

但是您将不得不再次复制并转置它。否则，没有直接的方法可以转置它。