Tag: 复制粘贴

将数据复制到添加的工作表: 以下代码为其他两个工作簿中的每个分页添加了一个新的工作表到一个摘要工作簿。我想将其他工作簿中的数据复制到摘要工作簿中的每个添加的工作表。所有的数据都只复制到sheet1。预先感谢您的任何帮助。 For n = 1 To Workbooks(file1name).Worksheets("Sheet1").HPageBreaks.Count i = i + 1 'integer that tracks the pages being added 'SourceRange is a the range of data being copied Set SourceRange = Workbooks(file1name).Worksheets("Sheet1").Range("A" & pgBreak, "Q" & Workbooks(file1name).Worksheets("Sheet1").HPageBreaks(n).Location.Row – 1) SourceRange.Copy summary.Sheets.Add 'summary is the summary workbook I would like to copy the […]

复制Excel中的单元格与VBA: 我有一个代码，从文本文件中读入新的列排列，然后通过将原始列复制到正确的位置来重新排列原始列，但是在我的代码中存在一个错误。而不是只复制1列，似乎将所有列复制到我想要复制的列的右侧。所以我想错误在这里 'copy the old range ws.Range(ws.Cells(Settings.rowHeader + 1, CounterCol), ws.Cells(lrow, CounterCol)).Copy 我想复制范围AW3：AW80到A3：A80，但是我需要将AW：AW复制到A：A吗？如果我这样做，行1中的东西将被删除，下面是完整的代码： Sub insertColumns() Call Settings.init Dim i As Integer Dim ws As Worksheet Dim lrow As Integer Dim columNames As Object Dim temp As Variant 'fill dictionary with columnnames from text file Set columNames = FileHandling.getTypes(Settings.columnFile) Set ws = ActiveWorkbook.Sheets("List") 'Get […]

根据表1中的非零值复制Sheet 1中某些行的特定单元格到Sheet 2的最后一个空行: 我不好意思问这个愚蠢的问题，但是我不能根据H表1中的值将Sheet 1中的多行数据复制到Sheet 2中。如果在H栏（Sheet1）中input任何整数（正数或负数）在Sheet2从第7行开始 A列=date B列= B列（Sheet1）列C =列c（Sheet1） D列= D列（Sheet1） E列= E列（Sheet1） F栏= Colunb F（Sheet1） G列= H列（Sheet1）这是我的代码： Private Sub Transfer_Click() Application.ScreenUpdating = False j = 0 'set j = # of units to transfer Do While Counter < 8 ' Inner loop. Counter = Counter + 1 ' Increment Counter. If Cells(10, […]

VBA脚本将Excel图表复制到Word不能在更高版本的Word中工作: 我正在尝试将Excel图表复制到Word。我在Excel中有以下脚本，它适用于PC和Office Mac 2011的Office 2003.在Office（2016）的更高版本中，图表在粘贴时不会resize，并且它所search的令牌不会被replace为图表它在早期的版本中。这是可用的脚本，但不适用于更高版本的Office。任何帮助将不胜感激。 ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Set wrd = CreateObject("Word.Application") wrd.Documents(DocumentName).Activate wrd.Selection.Find.ClearFormatting With wrd.Selection.Find .Text = "insert" & ChartName 'This is the token it is looking for in the Word document and is where the chart should be inserted. .Replacement.Text = "" .Forward = True .Wrap = 1 'wdFindContinue .Format = False […]

将excel图表复制并粘贴到单词中，无需链接或保存为GIF: 我是一个总的VBA新手，但我已经设法凑齐一些代码，允许我将Excel 2010图表导出到新的Word 2010文档中。我唯一的问题是，我想从excel中取出图表，一旦它被导出，这样excel更新时不会改变。我到处看，但似乎没有任何工作。唯一的其他代码看起来符合法案的要求，将图表保存为粘贴图像之前的图像，但这不起作用，因为我无处保存图像 – 组织中的用户无法访问C： \驱动器，而不知道每个人的用户细节，我不能写代码将完成这项工作。我到目前为止写的代码是这样的，它可以工作，但不会取消链接： Sub Copy_Paste_Report_1_Graph_to_new_word_document() ' 'Copy/Paste An Excel Chart Into a New Word Document '(VBE > Tools > References > Microsoft Word 12.0 Object Library) 'Excel Objects Dim ChartObj As ChartObject 'Word Objects Dim WordApp As Word.Application Dim myDoc As Word.Document Dim WordTable As Word.Table 'Optimize Code […]

如何将一张表中的一列复制到另一张表中的另一列，同时跳过空白单元格？: 我有一张从C2到C6115的列。在那个范围内有很多空单元。我想在Excel 2007中使用VB将填充的单元格复制到单独的表单中。任何人都可以给我一个可以帮助我执行的通用代码吗？

将特定单元格从EXCEL复制并粘贴到特定的SPSS单元格中: 我试图将数据从Excel复制到SPSS。我有80个Excel文件，需要将每个工作簿中的相同单元格复制并粘贴到我的主SPSS数据库中。除了手动复制和粘贴每个单独的值之外，有什么办法可以做到这一点吗？

根据列中的条件复制一系列行并粘贴到名为条件的其他表中: 在Excel 2010中，我需要一些帮助来编写macros。我需要知道如何根据一列中的条件复制特定范围的行，并将包含该指定条件的每一行（整行，所有其他字段）粘贴到其对应的表格中（下面更详细地解释）。困难的部分是这些“目的地”表可能已经有一些数据，需要留在那里，不要被删除。那么，我怎样才能写一个macros来做我刚才所描述的，但是当它粘贴时，它会find第一个空行来开始粘贴。我有一个约5张工作簿。第一张纸是包含所有数据的ALL纸张。接下来的4张纸被命名为Tree ， Graffiti ， Light Pothole 。所有5个表中的所有字段都是相同的。在每一张纸上，都有一个叫做Type Of Service字段，它是这四种服务之一（ tree ， graffiti ， light或pothole ）。我需要做的是过滤这4个服务（每次一个）的ALL表单，select所有的字段和包含指定服务的所有行，全部复制，然后粘贴到它的单个工作表。这些单独的工作表可能包含一些数据，所以粘贴需要find第一个空行，并粘贴在那里。按原样连接工作表和ALL工作表的复制行。我需要macros来做所有4个服务filter/粘贴在一起。

将Excel的RangeSelection复制到Windows应用程序中的数组: 感谢您的任何帮助提前:) 上下文我在Windows应用程序中使用SpreadsheetGear，并且在某些情况下，用户需要从打开的Excel应用程序复制数据，并将二维网格粘贴到我的应用程序的SpreadsheetGear对象中。动机我试图从剪贴板中的数据中获取信息，为粘贴的发生做好准备。在粘贴发生之前需要确定进入的数据的行数和列数，以便页面上的SpreadsheetGear控件和其他控件对数据“准备就绪”。问题1如何从剪贴板获取这些数据？我在用着 System.Windows.Forms.Clipboard.GetData(…) 但我不确定是否应该将DataFormat指定为CommaSeparatedValue（CSV）或Text。一种方法或另一种最好？是否有另一个我能忽略的DataFormat可以帮助我？问题2我在Visual Studio 2012的立即窗口中使用了这个语句： System.Diagnostics.Debug.WriteLine(Clipboard.GetText()) 有趣的是，这返回了我在Excel中select和复制的部分数据。对于剪贴板可以从Excel处理的数据量有限制吗？或者有没有办法让我的Windows应用程序帮助在剪贴板上分配更多空间，知道用户是从Excel中select数据并将该数据复制到剪贴板？请让我知道，如果我可以提供更多的澄清。我有点失落，不确定这个问题的范围。谢谢！

复制到剪贴板限制: 和其他许多关于这个话题的问题一样，我仍然没有find可以避免我的问题的东西。我想知道剪贴板在复制粘贴处理方面的局限性，并限制其复制粘贴function的具体用法和程序ID。因为我一直在为我公司开发一个软件，它使用Word / Excel和PowerPoint中的模板，通过每天更换图片并粘贴新graphics和模板中的图片来生成自动生成的报表。但是，我害怕，因为它似乎存在一些复制到剪贴板的限制 CopyBitmapToClipboard ActiveWindow.View.PasteSpecial() 当我将表格/图像复制到剪贴板并将其粘贴到Word / Excel / PowerPoint中时，这很好，但如果现在有10个同时生成的并行报告并使用复制粘贴机制，则会发生这种情况它会将其复制到另一个报表当前正在使用的Word / Excel / PowerPoint中。考虑到，我有一个文件，并复制到剪贴板是一个巨大的幻灯片，将采取最好的情况下1秒（这不），这意味着在1天，我可以产生一个最大的 1 copy paste procedure = 1 second 1minute = 60 second means 60 copy paste 1hour = 60min x 60 copy paste 1day = 24hours x 3600 copy paste 意味着我总共有86400个复制粘贴/报告。这是不可能的。一份文件永远不会占用最less1秒的时间（对于大约20页的报告，30张幻灯片，Excel表格和6张表格）。如何避免将复制到剪贴板的内容粘贴到错误的文档中，因为这两个文档都使用了粘贴function。所以，我想知道，如果可以给我的剪贴板提供一个参考，告诉他，只复制word / excel / […]