使用沒有定義范圍的vba粘貼到Excel工作表中

Question

我想要做的是從另一個來源，Navision復制表格，並以excel格式粘貼它，給它格式，等等。而且我在粘貼部分遇到了麻煩。 “復制”過程並不重要，很高興知道如何使其自動化，但這不是我的優先考慮。

復制的內容：

-來自Navision的具有7列和可變行的表

存在的問題：

-粘貼沒有定義的行的表格✓（感謝Ionestorm）
- VBA不recognicing在剪貼板中的信息

我認為主要問題是：

-我想象它被復制到“外部剪貼板”中，而vba無法識別它。

您應該知道我是VBA的新手，我只有C ++和基本MySQL的背景知識，這是我第一次對將這些知識應用於日常任務感興趣，使它們變得更容易。 我一直在嘗試。

我在VBA中發現的有關復制粘貼的信息指出，始終需要有一個定義的范圍來粘貼它，而這是本練習所沒有的。 而且我只發現了從excel工作表復制粘貼到其他excel工作表的示例。 所以我不知道如何開始。

從“外部Windows”剪貼板將其粘貼到活動單元格中的功能是什么？

Answer 1

您不需要定義的范圍。 請嘗試以下代碼：

Sub pasteToRange()
    Dim rng As Range
    Set rng = Application.InputBox("Pick worksheet and cell", "Choose paste range", "A1", Type:=8)
    rng.Worksheet.Paste rng.Cells(1, 1)
End Sub

這使您可以手動選擇粘貼位置，但是可以自動進行粘貼。 粘貼位使用從剪貼板粘貼的工作表功能。