问题标签 [pasting]

正如我的标题所述，我正在尝试从我正在编写的 C++ 应用程序中移动数据，并将其输入到 Windows 中任何桌面应用程序的字段（特别是用户名和密码字段）中。它需要适用于所有应用程序。

现在我已经编写了一个小程序，它将数据复制到剪贴板，然后模拟 Ctrl+V 键盘按下以粘贴数据。然而，这样做感觉非常丑陋。我的问题是，有没有更好的方法？

附言。从我所做的研究来看，一切似乎都需要您以某种方式修改接收应用程序。不幸的是，我无法使用此选项。因此，任何涉及调整接收应用程序的解决方案都无济于事。

谢谢您的帮助！

所以我有这个：

我想在这个中使用这些名称：

有没有比复制每个名称并为它们的特定功能分别粘贴三次更简单的方法？

要实现粘贴一次，我可以使用：

这会在粘贴后清除寄存器，因此后续粘贴将不起作用。然而，将会发生的是空粘贴，它会更新撤消。因此，按 p3次将需要3撤消调用来撤消初始粘贴。

如何压制这个？我试过类似的东西：

但它不会强加任何改变。

我需要一些有关 Excel VBA 的帮助。我正在从 Excel 和另一个应用程序来回切换，然后从另一个应用程序复制、粘贴到 Excel 中。我已经完成了该过程，但是我需要有关如何粘贴到当前处于活动状态的任何单元格中的建议，右选项卡，然后在该行的末尾向下一行，然后从 column 重新开始D。实际上，这是我需要在 Excel 应用程序中执行的确切过程的列表：

1. [数字格式] 粘贴到当前活动单元格中（将始终在D:D列中）
2. Tab 右移一个单元格
3. [日期格式：“d-mmm”] 今天的日期
4. 右标签
5. [文字] 粘贴
6. 右标签
7. [会计] 粘贴
8. 右标签
9. 在该列中键入字母“X”
10. 向下输入一行，从该D列开始。

在所有这些步骤之间，我找出了与其他应用程序交互的大部分代码。但我对此也有一个问题——在该应用程序中，我正在运行以下语句：

With ATC.ActiveSession（ATC 只是引用应用程序的类型库来与其他应用程序交互）

与我With每次应用程序来回切换复制和粘贴时都结束语句相反，我需要做什么作为with使用 excel 库的语句？

我不想发生的事情的例子：

但相反，我想“链接”这些With语句，但我不知道我会用什么语句来指向 Excel 的 VBA。这就是我想要的：

我正在使用 Excel 2013 并尝试使用教程中的以下代码从多个工作簿传输到主控，以将数据从多个工作簿传输到主工作簿。它将来自多个 wkbk 的数据添加到主 wkbk 中，每次都将数据粘贴在其上方的数据下方，而不是在主 wkbk 中的单独电子表格上。

根据教程，我将代码放在 MASTER 工作簿中，但没有任何反应。我不太了解VBA。我刚刚学会了如何休息并运行代码，但这并不能真正告诉我任何事情，我不认为。

1. 我的桌面上有一个名为“merge”的文件夹，其中有一个启用宏的 wkbk，名为 MASTER，另外 3 个非宏 wkbk 名为 tblScheduleMergeTWO、tblScheduleMergeTHREE 和 tblScheduleMergeFOUR。
2. 每个 wkbk，包括 MASTER，都有 9 列具有相同的字段标题，我认为这与这段代码无关。
3. 我需要从每个 wkbk 复制的 3 个 wkbks 在数据上具有不同的阴影，因此当它粘贴到 MASTER 时，我可以知道哪些数据来自哪个 wkbk。

我试过的：海报编辑-

4. 我打开 MASTER wkbk 并将光标放在那个 wkbk 中并从那里运行代码。

5. 我已经尝试使用我需要从打开复制的其他 wkbks 之一，并在关闭它的情况下尝试它，屏幕有时会闪烁一次，但在复制任何数据方面没有任何反应。

6. 根据@Tony Dallimore 的建议，在之后移动 Active.Workbook.Close并ActiveSheet.Paste Destination:没有Loop Application.DisplayAlerts = True改变任何东西。我不确定它是否会删除任何关闭 wkbk 的内容，但他会知道得更好。

7. 根据#Tony Dallimore 的建议，分别更改Cells(erow, 9)为Cells(erow, lastcolumn)，并与其他编辑一起更改，没有任何改变。

8. 不明白#Tony Dallimore 的第三个建议。是否要替换Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy withSrcRange.Copy Destination:=DestTopLeftCell？我没有看到它会覆盖 lastrow 到 lastcolumn。

9. 我也尝试了另一个教程，但它在此处输入链接描述也不起作用。没有发布代码以节省空间。

2019 年 10 月 1 日上午 11:19 海报编辑10. 根据@Thomas Inzina 的建议，我在他发布的代码中使用 F8 逐行排除故障。我立即注意到使用 F8 时，当您单击 ThisWorkbook 或单击 Sheet1 时，代码的开头行“With ThisWorkbook.Worksheets("Sheet1")' 在屏幕提示中显示为 FileName=""。它看起来甚至不识别 ThisWorkbook，它实际上被称为 MASTER.xlsm。那是怎么回事？但是，当您将光标悬停在“Do While FileName <> ""' 上时，屏幕提示会显示文件名。然后当我按 F8 时，它会弹出一个消息，说您的 MASTER 文件已经打开并且可能会损坏重新打开。当我选择“否”时，我不想再次打开它，我收到一条错误消息，询问我是要结束还是调试。如果我调试，则使用工作簿。Open(FolderPath & FileName)' 突出显示为问题。我只需要保存并关闭Master wkbk，然后那个麻烦就消失了；但是，在“With Workbooks.Open(FolderPath & FileName)”之后按 F8 会跳过其余代码并返回到开头。在所有这一切中，我没有看到代码给出了一个屏幕提示，表明它注意到了我需要从中复制的 wkbks。

我将不胜感激。我也将查看这篇文章Other post to t/f data from multiple wkbks。

FileName = Dir 是不是错了？

2016 年10 月 2 日海报编辑- 作为对 Tony Dallimore 的回应 - 托尼，我通读了代码，但认为我理解的足够多，可以运行它并看看会发生什么（但是，我将更深入地研究它并重新输入它） ; 但是，当我尝试运行它时，什么也没发生。我是否应该将我的工作簿名称或任何工作表名称（例如：WshtDestName）替换为代码？

我收到一个运行时错误 9 下标超出范围错误，当我调试它时，突出显示了 Set WshtDest = WbkDest.Worksheets(WshtDestName)。

我想我可能应该用我的 MASTER.xlsm 文件中的 wksht 的名称替换上面的 WshtDestName。所以，我把“Sheet1”放在括号里。没有错误消息，但也没有任何反应。

我想也许我要替换 2 个常量中的“数据”，Const WshtDestName As String = "Data"并Const WshtSrcName As String = "Data"在两个 wkbks 中用我的 wksht 名称替换，所以我将“Sheet1”放在“数据”所在的位置，同样，什么也没发生。

我不知道一开始的常量是否应该在 Sub 之后，所以我将它们移动到 Dim 在 Sub 之后，然后什么也没发生。

当我按 F8 查看每一行代码时，屏幕提示如下：

• 对于 Application.ScreenUpdating = False 它说 Application.ScreenUpdating = True

• 对于 Set WbkDest = ThisWorkbook，屏幕提示显示 WbkSet = Nothing 和 ThisWorkbook = ，但仅在黄色突出显示时才显示这些内容。当按下 F8 并移出那条线时，当我将光标放在它上面时它什么也没说。

• 对于 Set WshtDest = WbkDest.Worksheets(WshtDestName) 屏幕提示显示 WshtDest = Nothing 和 WbkDest.Worksheets(WshtDestName) = 下标超出范围，如果光标刚刚结束 (WshtDestName)，它会显示 ("Data")，但是只有在黄色突出显示时才说这些事情。当按下 F8 并移出那条线时，当我将光标放在它上面时它什么也没说。

• 除非我将（“Data”）更改为（“Sheet1”），否则我无法通过 F8。我可以在屏幕提示中 F8 到 FolderPath = WbkDest.Path & "\" = "C:\Users|PC-1\Destktop\Merge\" WbkDest.Path = "C:\Users|PC-1\Destktop\合并”，这是正确的。

• FilePath = FolderPath & " .xls " = "C:\Users|PC-1\Destktop\Merge\".xls*" 在屏幕提示中 FolderPath 如上正确，"C:\Users|PC-1\Destktop \合并\”

• FileName = Dir$(FilePath) = "MASTER.xlsm" 在屏幕提示和 FilePath 等于 "C:\Users|PC-1\Destktop\Merge*.xls*" 如上所述。

• 设置 RngDest = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByRows, xlPrevious) 其中 RngDest = 提示中没有任何内容，屏幕提示中除了 xlFormulas 的 -4123 和 xlByRows 的 1 之外没有任何内容弹出, 和 2 表示 xlPrevious。

• If RngDest is Nothing Then where RngDest = Nothing in tip

• HeaderCopied = False = HeaderCopied = False in tip which is not true b/c my destination wkbk, MASTER.xlsm 在第一行已经有一个标题行。

• RowDestNext = 1 = RowDestNext = 1 在屏幕提示中

• 然后跳转到 EndIf 和 EndWith

• 执行 While FileName <> "" And FileName <> WbkDest.Name ，其中 FileName 和 WbkDest.Name = "MASTER.xlsm" 在屏幕提示中。

• F8 然后跳转到代码的其余部分到最后

  以 WshtDest .Cells.EntireColumn.AutoFit 等结尾

我也在你输入的时候运行你的代码，除了我注释掉你说要注释掉的部分，如果我确实有标题，我取消注释你说要取消注释的部分。它仍然没有工作。

我正在寻找一种解决方案来创建代码以将数据从 Workbook 1 Sheet 1 复制到另一个将要关闭的工作簿。我还想确保粘贴的数据在下一个空行中，所以本质上是：

活动工作簿 1，工作表 1 将任何数据从第 2 行复制到最后一行 粘贴到非活动工作簿 2 的第一行为空

希望这是有道理的！

当编码器运行时，我收到以下错误消息：

脚本如下：

错误源于新 img 的制作位置。这是代码停止工作并开始返回错误的时候。由于某种原因，它不会将新的 img 作为值并且不会保存它，但是如果我取出该部分并要求它保存新图像，则没有错误。

问题出在我将图像粘贴到 new_image 上时。

我有一个 vba 代码，它应该复制名为“项目概述”的工作表上的任何行，并在“N”列中使用“完成 - 设计”并将其粘贴到另一张工作表上。这在一段时间内正常工作，但现在它不止一次粘贴该行。我发现粘贴的重复项数与“项目概述”表中使用的行数相匹配。我认为代码只是循环并遍历每一行。

这是我到目前为止所拥有的：

我想将剪贴板中的数据粘贴到 DGV 中的选定单元格。我找到了以下链接：https ://www.codeproject.com/Articles/208281/Copy-Paste-in-Datagridview-Control但我对 C# 一无所知，所以我使用在线工具将代码转换为 VB.net。复制和剪切部分正在工作，但我无法粘贴到 DGV。代码如下所示：

我有以下代码。

在 example.c 中，我正在尝试使用它。

我在 ARM-MDK 工具中遇到以下错误 [在此处输入图像描述][1] [1]：https ://i.stack.imgur.com/33MN1.jpg 错误：粘贴形成的 ')"Command:"'，无效的预处理令牌 [-Winvalid-token-paste] 错误：粘贴形成的 ',12'，无效的预处理令牌 [-Winvalid-token-paste]