2016-06-27 80 views
0

我想要做的是從另一個源Navision複製表格,然後在Excel中粘貼它,給它格式等等。而且我在粘貼部分遇到問題。 「複製」過程並不重要,知道如何實現自動化會很高興,但這不是我的首要任務。使用vba粘貼Excel表格

什麼被複制:

- 7列和可變行從Navision的

中存在的問題的表:

-粘貼一個表而不定義的行✓(謝謝Ionestorm)
- VBA不recognicing剪貼板

什麼,我認爲主要的問題是信息:

-我想象它被複制在「外部剪貼板」和VBA不能識別它。

你應該知道我是VBA的noob,我只有C++和基本MySQL的背景,這是我第一次有興趣在日常任務中應用這些知識,使他們更容易。我一直在試驗。

我發現的有關VBA中複製粘貼的信息指出,它總是需要有一個定義的範圍來粘貼它,而這個excersise沒有。我發現只有從Excel表格複製粘貼到其他Excel表格的例子。所以我不知道如何開始。

從「外部Windows」剪貼板粘貼到活動單元格的功能是什麼?

+0

您可以使用'xlEnd'獲取最後一行... – bernie

+0

謝謝,這確實解決了問題的一部分。但是,我如何定義剪貼板中的表的行呢? – Dieal

+2

請注意,複製過程可以自動完成。你的問題缺乏清晰度。您應該編輯問題以顯示您的示例數據,您想要傳輸的位置以及您期望的輸出。 – skkakkar

回答

0

您不需要定義的範圍。試試下面的代碼:

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 

這使您可以手動選擇要粘貼的位置,但可以自動執行該操作。粘貼位使用從剪貼板粘貼的工作表函數。