Tag: 粘贴

VBA的Cells.select复制粘贴不会连续的图像: 我有一些数据和一些图片。我有一些代码将数据和图像从一个工作簿中的表单复制到另一个工作簿中的工作表。这个问题：如果它会带来图像，它似乎是被打或失的。有时他们复制，有时他们不跆拳道？ wb.Sheets(form).Activate wb.Sheets(form).Cells.Select Selection.Copy objwbk.Activate ws.Range("A1").Select ActiveSheet.Paste

运行“粘贴”时会显示VBA运行时错误438: 我只是熟悉VBA和我的代码 For k = 3 To ThisWorkbook.Sheets.Count ThisWorkbook.Sheets(k).Activate ActiveSheet.Cells(11, 2).Select lLastRow = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.Range("A5:" & "A" & CStr(lLastRow)).Copy ' ThisWorkbook.Sheets(1).Cells("B" & CStr(lFirstRow) & ":B" & CStr(lLastRow)).Select ThisWorkbook.Sheets(1).Activate ActiveSheet.Cells(lFirstRow, 2).Select Selection.Paste 'Selection.PasteSpecial Paste:=xlPasteValues 'Selection.PasteSpecial Paste:=xlPasteFormats lFirstRow = lFirstRow + lLastRow Next k 使“运行时错误438”对象不支持此porperty或方法“出现在”Selection.Paste“行时。什么问题？:(我试过使用粘贴特殊的，激活工作表和select单元格（不是范围），使用Cstr，但没有任何改变

在Excel VBA中“粘贴”stringvariables而不是剪贴板的内容？: 我有一个stringvariables，在Excel VBA中包含一个HTML表格。我知道，当这个表存储在剪贴板中，我调用.PasteSpecial时，Excel会做一些漂亮的预处理，并以当前表格中的方式填充当前表格中的单元格。但是，如果我简单地将单元格/范围的.Value设置为stringvariables，则不会执行这样的预处理，并且将整个string，HTML标记和全部string都转储到单元格中。我想要以前的结果，但是我不能使用剪贴板，因为它被其他地方的应用程序所使用，并且不能保证我不会覆盖关键数据。它也是asynchronous使用，所以我不能简单地保存剪贴板的当前内容，使用剪贴板，然后恢复剪贴板的以前的内容。那么，是否有任何方法来获得“粘贴预处理”发生时设置的格式化string的范围值？

Excelmacros复制粘贴到第一个空行中的另一个xls文件: 我目前正在进行一个数字化项目，我必须分析超过100个FB excel文件的数据。我的分析过程的一部分在于从特定单元格中提取数据，这些数据总是相同的。正如你所理解的，我想做一个macros观的，以避免无谓的浪费时间。我知道如何在文件中提取它，但我想适应我的macros，以便将其复制到另一个文件中。我的代码是以下内容： ***范围。（ “A9：D9”）select Selection.Copy 窗口（ “test2.xlsx”）。激活 ActiveSheet.Paste *** 现在我想将数据粘贴到一个空行，以便有数百行一个在另一个（每个FB提取一个）。有人会给我正确的代码，以避免巨大的浪费时间？

从Excel复制/粘贴到Web应用程序: 我必须创build一个Web应用程序，允许从Excel复制和粘贴在networking上，并获得相同的事情，反之亦然。我不知道web开发的很多东西，但我发现了一些解决scheme，如： -sharepoint和办公室的networking应用程序 -asp.net + ajax – 在Excel中创build一个加载项，以便在服务器上发送elem（但是该项目只能在这个解决scheme的excel上运行）使用PHPExcel的HTML + PHP 还有其他的解决scheme或者哪一个是最好的？谢谢

将SQL Server 2012结果粘贴或导入Excel 2007. SQL Server结果显示2600行，但excel显示的结果为5000以上: 在将SQL Server 2012结果导入到Excel 2007中时，我们看到了一个问题.SQL Server结果显示了2600行，但是Excel显示了超过5000个。我们确信查询不是问题，因为它可以在其他两台机器上正常工作。一台机器运行Vista，包括问题框在内的其他机器都运行Windows 7.问题框正在运行SQL Server 2012，另外两台机器正在运行SQL Server 2005.所有三台机器都使用Excel 2007。我们有一个报告要在早上交付，但不能在第三个箱子上运行结果。任何想法可能会导致这个问题？

从一个工作簿复制一个范围并粘贴到另一个VBA表单: 我使用VBA运行代码。它通过循环一个目录并拉取文件开始。我的目标是复制范围并将其粘贴到模板工作表。复制代码如下所示： Dim StrFile As Variant For Each StrFile In var Workbooks.Open (loc1 & StrFile) sh.Activate On Error Resume Next Set uBOM = Cells.Find(What:="No.", After:=[A1], LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) Range(Cells(uCost.Row + 1, uCost.Column), Cells(uCost.Row.End(xlDown), uCost.Columnn + 4)).Copy On Error GoTo 0 Next StrFile 我怎样才能修改这个或使用粘贴到模板工作簿（我将运行的代码）？问候，马克

如何将列A中的特定字符replace为Excel中列B中的值？: 我在Excel中工作。下面的代码是列A中的4行。在列BI中有一系列从0开始的整数。我希望列B中的值replace“？”。在A列。我search谷歌高级复制和粘贴，并find和replace技术在Excel中，但结果只是告诉我使用粘贴特殊。我试图在查找和replace工具中引用列B，但无法这样做。任何帮助将不胜感激。 "<class type=""sItemManager::cITEM_PARAM_DATA""> <s16 name=""data.mNum"" value=""900""/> <s16 name=""data.mItemNo"" value=""?""/> <u32 name=""data.mFlag"" value=""1""/> <u16 name=""data.mChgNum"" value=""0""/> <u16 name=""data.mDay1"" value=""0""/> <u16 name=""data.mDay2"" value=""0""/> <u16 name=""data.mDay3"" value=""0""/> <s8 name=""data.mMutationPool"" value=""0""/> <s8 name=""data.mOwnerId"" value=""4""/> <u32 name=""data.mKey"" value=""0""/> </class>" "<class type=""sItemManager::cITEM_PARAM_DATA""> <s16 name=""data.mNum"" value=""900""/> <s16 name=""data.mItemNo"" value=""?""/> <u32 name=""data.mFlag"" value=""1""/> <u16 name=""data.mChgNum"" value=""0""/> <u16 name=""data.mDay1"" value=""0""/> […]

用户形成CommandButton基于CheckBox填充True / False: 我的工作簿有sheet1 = Overview（包含启动UserForm1的button）。我的Userform有24个CheckBox和2个CommandButton（确定并取消）。每个CheckBox都与工作簿中的工作表关联。每个随后的纸张标记为PQC 1001，PQC 1002等，其包含数据（对于每个纸张在A1的左上方被推动的图像）。我的目标是让用户检查他们想要使用的每个项目的checkbox，然后select“确定”（CommandButton1）将其复制到一个新的工作簿中打印出来。后来，我打算定义打印参数，使项目分页，但我需要在我去黄金之前得到的基本知识。目前我有下面的代码（使用第一个和第二个CheckBox来确保它们能够工作，然后我打算通过复制代码并修改正确的工作表/checkbox来扩展）： Sub CommandButton1_Click() Dim WB As Workbook If CheckBox1.Value = True Then sheets("PQC 1001").Copy Set NewBook = Workbooks.Add With NewBook End With Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Else: CheckBox1.Value = False End If If CheckBox2.Value = True Then sheets("PQC 1002").Copy Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ […]

适用于Excel的HTML剪贴板格式: 我写我的应用程序的导出工具从表中复制几个单元格，并将该单元格粘贴到Microsoft Excel（谷歌文档，libreoffice钙）。我使用内容types的文本/ HTML我的剪贴板复制单元格背景颜色。如何标记来源（我的应用程序）中的表格单元格，以不覆盖目标（即Excel中）足够的单元格示例复制scheme是：（＃是任何值，而不是 – 覆盖值） ###-# -#### —## ##### 现在，如果我只填写空的<td></td> ，当我将表格粘贴到excel中时，单元格将覆盖现有的单元格并将它们清空。它可以工作，如果我使用内容types的文本/ CSV，因为我可以把许多分隔符（即\t ）没有传递的价值，即： #\t#\t#\t\t\t\t# //some values are omitted #\t#\t#\t#\t\t\t //some values are omitted 是否有可能把表格放入HTML剪贴板？表格包含一些空单元格，并且空单元格在粘贴到Excel时不应覆盖非空单元格。