Tag: 粘贴

selection.copy导致selection.pastespecial不工作。 优秀的VBA

我会保持这个快。 大部分作品附带的代码我已经在其他项目上使用它的轻微变化。 注释范围3.copy来自我的最后一个项目。 我目前有问题得到selection.copy复制正确的工作簿中选定的范围。 我已经尝试了许多在脚本中注意到的东西。 但我不能得到selection.copy工作.range.copy将工作，并填充剪贴板。 但我还没有想出如何使用.copy粘贴特殊。 我试图输出到variables..没有工作，因为我认为它可能。 我觉得我不得不在工作簿select/激活上丢失一些东西，但我不知道是什么。 在此先感谢您的任何build议或帮助..我会继续堵塞，看看我能想出来。 这是问题的第一部分。 SRCrange1.select然后selection.copy实际上不复制指定的select。 完整的代码如下 。 Dim MyColumn As String Dim Here As String Dim AC As Variant 'SRCrange1.copy ': This will copy to clipboard 'objworkbook.Worksheets("plan").Range("b6:h7").Select no change from SRCrange1.select 'SRCrange1.Select 'the range does select 'Selection.copy ' this will cause a activecell in DSTwb _ to be […]

从excel粘贴到文本框

我想从一个Excel文件复制一些数据到一个文本框中的一个胜利的应用程序。 复制粘贴工作正常，如果单元格是连续的，但如果我select（与CTRL）的第一个和第三个单元格，当我将其粘贴到文本框，它也将粘贴第二个单元格。 获得我感兴趣的细胞的最佳方法是什么？ 谢谢

从Excel复制并粘贴到在线表单中

首先，我可能会因为我不是最好的电脑而感到抱歉， 我有一个相当大的Excel表格，我必须复制并粘贴每行10个在线表格。 是否有可能为此创build一个macros，如果是的话，我怎么能这样做。 另外请记住，我在工作，所以我受限于使用插件，我不得不使用Internet Explorer。 你的帮助将是非常崇拜， 谢谢

Excel中的VBA – 粘贴到活动单元，然后右键单击

我需要Excel VBA的一些帮助。 我从Excel和另一个应用程序来回切换，从另一个应用程序粘贴到Excel中。 我已经有了这个过程，但是我需要关于如何粘贴到当前活动的任何单元格的build议，选项卡右侧，并在该行的末尾下行，然后从D列开始。 其实，这里是我需要在Excel应用程序中发生的确切过程的列表： [数字格式]粘贴到当前活动的单元格（将始终在D:D列中） 右键单击一个单元格 [date格式：“d-mmm”]今天的date 选项卡正确 [文本]粘贴 选项卡正确 [会计]粘贴 选项卡正确 在该列中键入字母“X” input一行，从D列开始。 在所有这些步骤之间，我已经发现了大部分代码与其他应用程序交互。 但是我也有一个关于这个问题的问题 – 在这个应用程序中，我运行这个语句： With ATC.ActiveSession （ATC简单地引用应用程序的types库来与其他应用程序进行交互） With每次应用程序来回复制和粘贴时结束With语句相反，我需要使用as语句来使用excel的库吗？ 我不想发生的事例： Sub New_ATS() Set ATC = GetObject(, "ATWin32.AccuTerm") AppActivate "AccuTerm 2K2" With ATC.ActiveSession .InputMode = 1 .SetSelection 6, 15, 12, 15 .Copy .InputMode = 0 End With AppActivate "Microsoft Excel" Selection.Paste '(not […]

运行时错误1004“范围类的方法失败”

我一直遇到一个错误（这发生在没有模式或percieved原因）。 当我尝试做一个pastespecial（公式或值）时发生错误。 我很好奇，如果有一种替代方法来粘贴VBA中的值或公式，因为数组中的行数是可变的（1〜100）。 我附上了下面的代码片段。 'length和selectionarea都被定义为string Range("P1").Select '长度是计算表长度的单元格中的公式 length = ActiveCell.Value selectionarea = "B3:CM" + length Range("B2:CM2").Select Selection.Copy Range(selectionarea).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False selectionarea = "C2:O" + length Range(selectionarea).Select Selection.Copy Range("BL3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

过程不会将值粘贴到目标工作表中

好吧，我写了这个small sub ： Sub dingo() Dim apriori Dim e As Integer Dim n As Integer Dim rr As Integer Dim yolk As Integer Dim timy As Integer 'timy = yeah.Count rr = ActiveWorkbook.Worksheets.Count yolk = rr e = 1 For Each apriori In yeah 'WE NEED LOOP ON THE COPYING MECHANISM!!!-re-test Dim Rng As Range […]

现有图表上的VBA Paste Special

我想使用VBA将一系列数据粘贴到现有的图表中，使用以下屏幕截图中显示的选项： 如果我手动录制一个macros，代码只会声明ActiveChart.Paste 。 因此，当我重新运行这个代码时，系列将被定期粘贴，而不激活“第一排系列名称”。 我怎样才能正确地编码？ 到目前为止，我在研究中还没有find太多帮助。

使用粘贴button打开新的工作表

我正在为一个macros用户点击一个button，然后填充一个新的工作表，在那里将会有另一个macrosbutton，就像一个PASTEbutton一样，用户可以用他们复制的任何东西粘贴屏幕截图。 目前，用户点击一个名为“添加屏幕截图”的button，一个input框将填充询问用户他们想要命名屏幕截图工作表。 用户在标题中书写，新标签形成工作表名称作为用户input的标题。 这是这样做的代码： Sub AddScreenShot() Dim Title As Variant Title = Application.InputBox("Enter a Title: ", "Add Screen Shot", , 400, 290, , , Type:=2) If Title = False Then Exit Sub ElseIf Title = vbNullString Then MsgBox "A title was not entered. Please enter a Title" Exit Sub ElseIf Len(Title) > 15 Then MsgBox […]

如何指定“复制列vba”的开始行？

我正在使用以下string将一个列从一个表复制到另一个 Dim wsCore As Worksheet Dim wsData As Worksheet Set wsCore = Sheets("R2 Data Dump") Set wsData = Sheets("Active") Dim rowNumber As Integer Dim cellFormulas As Variant Dim cellFormulas1 As Variant Dim counter As Integer counter = 0 Dim currentCell As String Dim importSheetCell As Variant Dim importSheetOffset As Variant Dim contractnum As Integer Dim […]

VBA – 循环遍历所有图表并复制到一张工作表上

我试图循环遍历在我的工作簿中存在的第二张纸上的所有图表到第二张到最后一张。 我想遍历所有的图表，复制图表区域并粘贴到有数据的最后一张纸上（只是一个普通的电子表格）。 我不明白为什么下面的代码不能正常工作，但我最终得到一个运行时错误“438” – 对象不支持第一行（for循环）的这个属性或方法。 任何想法，为什么这是行不通的？ Sub chartCopy() For I = Sheets(2) To Sheets(ActiveWorkbook.Sheets.Count – 1) ActiveChart.ChartArea.Copy Sheets(Sheets.Count).Select ActiveSheet.Paste Next I End Sub