2016-06-27 75 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 

这使您可以手动选择要粘贴的位置,但可以自动执行该操作。粘贴位使用从剪贴板粘贴的工作表函数。