运行时错误404 range类的pastespecial方法失败
运行时错误404是指在访问一个网页或资源时，服务器无法找到对应的资源，通常是因为URL地址错误、文件不存在或服务器配置问题等原因导致的。而"range类的pastespecial方法失败"是指在使用range对象的pastespecial方法时出现了错误。
在前端开发中，404错误通常会在网页上显示一个错误页面，告诉用户所请求的页面或资源不存在。这种错误可以通过检查URL地址是否正确、检查文件是否存在、检查服务器配置等方式来解决。
在后端开发中，404错误通常会返回一个HTTP响应码为404的错误页面或错误信息，告诉客户端所请求的资源不存在。开发人员可以通过配置服务器路由、检查文件路径、检查数据库记录等方式来解决这个问题。
在软件测试中，404错误可以作为一个测试用例，测试系统在请求一个不存在的资源时是否能正确处理并返回404错误。
在数据库中，404错误可以表示一个查询操作未找到所请求的数据记录。
在服务器运维中，404错误可以通过检查服务器配置、检查文件路径、检查网络连接等方式来解决。
在云原生领域，404错误可以通过配置负载均衡、容器编排等方式来解决。
在网络通信中，404错误可以通过检查网络连接、检查DNS解析等方式来解决。
在网络安全中，404错误可以作为一个攻击指标，用于检测是否存在恶意扫描或攻击行为。
在音视频领域，404错误可以表示请求的音视频资源不存在或无法访问。
在多媒体处理中，404错误可以作为一个异常情况进行处理，例如在处理图片、视频等媒体文件时发生错误。
在人工智能领域，404错误可以作为一个异常情况进行处理，例如在进行图像识别、语音识别等任务时发生错误。
在物联网领域，404错误可以表示设备无法连接到云平台或请求的资源不存在。
在移动开发中，404错误可以通过检查网络连接、检查接口调用等方式来解决。
在存储领域，404错误可以表示请求的文件或对象不存在。
在区块链领域，404错误可以表示请求的区块或交易不存在。
在元宇宙领域，404错误可以表示请求的虚拟世界或场景不存在。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云对象存储（COS）：提供高可靠、低成本的云端存储服务，可用于存储和管理各种类型的文件和对象。详情请参考：https://cloud.tencent.com/product/cos
- 腾讯云云服务器（CVM）：提供弹性、安全、稳定的云服务器，可满足不同规模和需求的应用场景。详情请参考：https://cloud.tencent.com/product/cvm
- 腾讯云负载均衡（CLB）：提供流量分发和负载均衡服务，可将请求分发到多个后端服务器，提高系统的可用性和性能。详情请参考：https://cloud.tencent.com/product/clb
- 腾讯云容器服务（TKE）：提供高度可扩展的容器化应用管理平台，支持快速部署、弹性伸缩和自动化运维。详情请参考：https://cloud.tencent.com/product/tke
请注意，以上仅为腾讯云的部分产品示例，其他云计算品牌商也提供类似的产品和服务。
相关·内容
2回答
我正在尝试将剪贴板内容粘贴到单元格"A1“中
Range("A1").PasteSpecial xlPasteValues
但是我得到了“Range类失败的PasteSpecial方法”错误！
感谢你的帮助！
浏览 1提问于2020-03-22得票数 0
回答已采纳
1回答
我在从一个电子表格复制和粘贴到另一个电子表格时遇到了问题。
我使用了以下代码：
Sub LoadnH()
Dim NF As Workbook
Dim shtMain As Worksheet
Set shtMain = Worksheets("Main")
Dim filePath As String
Dim strFileName As Variant
strFileName = Application.GetOpenFilename("All Files (*.*), *.*", , "Select File to Import"
浏览 1提问于2021-05-11得票数 0
下面是抛出此错误的代码：
Range类的 PasteSpecial方法失败
只有当我试图调试时才会抛出错误。
Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
Selection.PasteSpecial Paste:=xlValues
' my complete code
strSheetName = "sheet1"
Sheets(strSheetName).Select
B6 = Range("B6").Value
B7 = Range("B7").Value
Ran
浏览 0提问于2012-06-04得票数 3
回答已采纳
我想打开一本工作簿，然后从打开的工作表复制到我的工作簿上，如下所示：
Private Sub Workbook_Open()
Dim openedFile As String
Dim sourcebook As Workbook
openedFile = Application.GetOpenFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") 'Source book opening
Set sourcebook = Workbooks.Open(o
浏览 7提问于2016-05-24得票数 0
1回答
我正在尝试将一个列转换为多个列。
Set rng1 = Range("A3")
Set rng2 = Range("A16")
Set rng3 = Range("B3")
Set rng4 = Range("A16")
For Each R In Intersect(Range("A1:A5000"), ActiveSheet.UsedRange)
If InStr(R, "Sunday") > 0 Then
Range("C1").Value
浏览 2提问于2020-02-28得票数 0
回答已采纳
我已经有了Excel中的宏，它从指定Word文档中的特定表、行和列中提取数据，并将其返回到Excel s/sheet中的单元格中。我需要对代码做2次修改，但我的知识还不够先进。
我需要在指定文件夹中的多个Word文档上运行这段代码，无论它是.doc还是.docx
--我需要确定为什么在某些Word文档上，代码无法从Word文档中提取数据，并且我得到运行时错误代码'4605‘，因为没有选择文本，所以方法或属性不可用。我试着在模块开始时输入“启动错误简历”，这样它就会一直运行到最后，希望一些文本能够通过，但我的Excel /工作表中的单元格仍然没有被填充。
Sub ImportFromWo
浏览 35提问于2022-11-07得票数 -1
回答已采纳
我有一个来自R的数据，需要粘贴到打开的Excel电子表格的第一个空行中。
我试过很多东西。
此代码引发“运行时错误'1004'：应用程序定义的或对象定义的错误”。
Dim NextRow As Range
Set NextRow = Range("B" & Sheets("TC-9").UsedRange.Rows.Count + 1)
Worksheets("TC-9").Range("A" & NextRow).PasteSpecial Paste:=xlPasteValues, Operati
浏览 7提问于2016-12-06得票数 0
回答已采纳
我有一个宏，它在执行PasteSpecial时间歇性地抛出一个运行时错误。大多数情况下，它不会失败，但有时不会。当它抛出错误时，如果我点击"Debug“，然后让它继续运行，它就会顺利通过。这听起来像是时间问题，但我不明白是什么原因造成的。下面是代码的一个片段：
Dim SourceDataWB As Workbook
Dim RawDataWS As Worksheet
Dim LastDataRow As Long
Dim SrcRange As Range
<Lots of other code in here...>
Sou
浏览 0提问于2020-12-01得票数 1
我已经创建了下面的代码，它工作到一定程度，然后得到一个运行时错误1004。有人能帮忙吗？错误对话框显示“Range Class的PasteSpecial方法失败”，并突出显示第一个.PasteSpecial行。
Sub CopyPO()
'
' CopyPO Macro
'
'
Dim rngPrintArea As Range
Set rngPrintArea = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
With Sheets("Inventory").Range(&#
浏览 4提问于2017-05-01得票数 2
回答已采纳
1回答
我试图从每天生成的电子表格中提取列。我正在使用宏来执行此操作，我打算将其保存在电子表格中，每天将数据复制到此表中，然后导出结果。宏如下：
Public Sub extractCol()
Set Range1 = Range("O,P,Q,Y,AA,BT,BU")
Range1.Copy
Set newbook = Workbooks.Add
ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub
我说错了：
运行时错误1004对象_global的方法范围失败。
这与Set Range1 ...行有关；我没有向电子表格中添加任
浏览 13提问于2022-01-21得票数 0
1回答
正在尝试将Excel上的透视表从一个页面复制并粘贴到另一个页面。代码可以工作，但它不粘贴格式。
Sub TestPivotPaste()
Dim wb As Workbook
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim copyrange As Range
Set wb = ActiveWorkbook
Set sh = wb.Worksheets(8)
Set copyrange = sh.Range("A1:Z50")
Set sh1 = wb.Worksheets(9)
copyrange.Copy
sh1.Range(
浏览 14提问于2019-08-22得票数 2
1回答
我使用下面的宏向Word表格添加一列，并将每个单元格中的值粘贴到最后一行。它在Word中运行得很好，但当在Excel宏中运行时，它会正确地添加新列，但随后会给出范围(tblA、tblB、tblC)的类型不匹配错误。有没有人能帮我找出错误？非常感谢！ Sub AddTeamColumn()
Dim WordApp As Object, WordDoc As Object
Dim arrFileList As Variant, Filename As Variant
Dim tblA As Range, tblB As Range, tblC As Range
'On Error R
浏览 31提问于2021-09-22得票数 0
回答已采纳
我使用以下VBA代码并将其分配给一个按钮：
Sub pastespecial ()
ActiveSheet.Range("A4:X400").Copy
Activesheet.Next.Range("A4:X400").PasteSpecial Paste:=xlPasteFormats
ActiveSheet.Next.Range("A4:X400").PasteSpecial paste:=xlPasteFormulas
ActiveSheet.Previous.Activate
Application.CutCopyMode = Fa
浏览 1提问于2018-03-16得票数 0
1回答
Sub MakeTables()
Dim wbTarget As Object
Set wb = Workbooks.Open("C:\Users\A9900899\Desktop\Desmond\VBAProject\GenerateTablesFormulas.xlsx")
Set wbTarget = Workbooks.Open("C:\Users\A9900899\Desktop\Desmond\VBAProject\USDReport.xlsx")
With wb.Sheets("Sheet1").
浏览 5提问于2017-04-03得票数 0
1回答
我有一个VBA代码，在粘贴可见单元格时得到1004错误：
Range类的PasteSpecial方法失败
我可以注释掉粘贴，它会复制可见的单元格，这样我就可以手动粘贴它们，但是自动粘贴会导致错误。我已经确认了工作表的名称是正确的，并尝试了各种类型的粘贴特殊和只有.Paste。
这是我的密码：
'Copies Column A visible rows
Sheets("Sheet1").Range("$A$2:$A$" & lastRow).SpecialCells (xlCellTypeVisible).Copy
'Empti
浏览 2提问于2017-02-11得票数 1
回答已采纳
1回答
下面的代码(代码一)目前运行良好，其中选定的列被复制并粘贴在A列中的单个标准中。
但是，我试图添加另一个条件，如果列N为空，excel将不会复制单元格。我试着编写代码2(下面)，但是运行时错误'9‘子脚本超出了范围。
在更改代码2方面，我能得到一些帮助吗?这样它就可以正确地过滤列。
代码一
Dim i As Long
Dim iLastRow As Long
Dim iTarget As Long
With Worksheets("Okay")
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
浏览 1提问于2017-12-03得票数 0
回答已采纳
3回答
我一直在寻找一种在excel vba宏中多次使用.PasteSpecial的解决方案。我的报告有时可能有数千行。在这些报告中有两列，我需要合并这些列，以便如果其中一列有空格，我想要第二列中的值；否则，只保留第一列中的值。我需要在两个不同的地方应用两次。这些都被塞进了一个更大的代码中。 我的解决方案是通过“跳过空白”来利用.PasteSpecial。excel处理起来很快，比逐行循环快得多。问题是代码总是在excel中崩溃。 经过调试，这是我到目前为止所学到的：*第一个.PasteSpecial总是可以工作的，但是当它到达第二个.PasteSpecial时，它总是失败。*我试着在第一个.Pas
浏览 33提问于2021-07-22得票数 0
回答已采纳
我在为一个唠叨的问题而挣扎。我试图简单地使用VBA在XLS工作表中复制和粘贴一个单元格论坛集。工作表(wks1)是从AccessDB创建和填充的，否则工作正常。
错误：“Range类的PasteSpecial方法失败”
wks1.Range("P5:S5").Copy
wks1.Range("P5:S10").PasteSpecial _
Paste:=xlPasteFormulas, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
浏览 2提问于2016-02-18得票数 1
回答已采纳
大家好，我是vba的新手，我正在尝试捕捉我的工作表上的所有ctrl+v事件，并将剪贴板上的任何内容粘贴到当前选定的单元格中。大多数情况下，我想要复制的是来自firefox或记事本的文本。但是，只有当我试图粘贴到itself本身(在单元格编辑模式下)时，代码才能正常工作。
Private Sub CopyPaste()
'PasteSpecial Values Only
ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True
这返回一个运行时错误1004 range类的特殊方法失败，我也尝试过这样做，但它
浏览 5提问于2018-11-09得票数 2
回答已采纳
我希望将一个特殊格式/格式的行(从模板工作表中)粘贴到主工作表上正在修改的同一行上。这是我到目前为止所得到的，但是得到了一个运行时错误1004：
“远程类的PasteSpecial方法失败”
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyC
浏览 3提问于2014-01-31得票数 2
回答已采纳
1回答
Excel宏的目的是使用FileToOpen将范围从一个工作簿复制到另一个工作簿。今天早些时候，相同的代码在单独的工作簿中工作。
生成的错误是Runtime1004‘类的PasteSpecial方法失败。下面是失败的部分：
SrcWB.Worksheets("1").Range("A1:K35").Copy
TgtWB.Sheets("1").Range("A1:K35").PasteSpecial (xlPasteValues)
TgtWB.Sheets("1").Range("A
浏览 1提问于2015-06-30得票数 1
回答已采纳
这里有个奇怪的问题。
在我的一张excel表格上，我生成了一个pdf文档。
代码的运行方式是根据需要添加表的段，并根据需要手动设置分页符，这样表就不会散布在一页上。(大多数表格为5-10行)
在每一页的底部，有足够的行可以插入图像。该图像只是几个方块和一个文本框组合在一起，以提供免责声明和签名框。
目前，我一直在使用
Sheets(...).shapes(...).copy
sheets(...).cells(...).pastespecial paste:=xlpasteall
有几个
doevents
试着确保它能正确运行。
我不断遇到对象'shape‘的800401d0方法复
浏览 0提问于2021-04-20得票数 0
1回答
我的代码：
With wbImport.Worksheets("Data")
LastCol = .Range("A1").End(xlToRight).Column
LastRow = .Range("A1").End(xlDown).Row
.Range("A1", .Cells(LastRow, LastCol)).Copy ' ‹-- Copy without Select
End With
wsData.Range("A1").PasteSpecial Paste
浏览 0提问于2020-11-16得票数 0
回答已采纳
我正在尝试将一组复制/粘贴单元格范围转换为一种更简单(显然更快)的值=值样式。
从本质上说，我是从这个开始的，
wb1.Sheets(1).Range(Cells(5, i), Cells(vaLastRow, i)).Copy
ThisWorkbook.Sheets(strWorkingTableName).Cells(2, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
为了这个，
ThisWorkbook.Sheets(strWorkingTableName).Range(Cells(2, 1), Cells((
浏览 0提问于2016-08-02得票数 0
回答已采纳
标题说明了大部分内容，我希望创建一个库存管理系统来处理我所在地区的库存，但我的代码中不断收到运行时错误，我不是非常精通VBA，但我有基本的知识。下面是我正在编写的代码，任何帮助都会很棒。 编辑:特定的运行时错误为1004:在已经复制并粘贴了一个后，第15行的Range类的Select方法失败。 Sub add2Order()
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim C As range, Rng
浏览 5提问于2021-02-12得票数 0
当我尝试将范围(“A1:Q20”)中的合并单元格从工作簿的一个工作表粘贴到单元格"F20“中的另一个工作表中时，出现此错误，如下面的代码所示。 With ActiveWorkbook.Sheets("Data")
Range("A1:Q20").Copy
dataworkbook.Close
End With
With ActiveWorkbook.Sheets("Destination Data")
Range("F20").PasteSpecial xlPasteAll
End With 但是，这只粘贴不是我想要的
浏览 107提问于2021-02-08得票数 0
回答已采纳
1回答
我使用以下代码从几个excel文件中获取数据，并将它们粘贴到一个新文件中：
For i = 0 To amountOfFiles - 1
Dim xlAppSource As New Excel.Application
Dim xlAppTarget As New Excel.Application
Dim xlWbSource As Excel.Workbook
Dim xlWbTarget As Excel.Workbook
Dim xlsheetSource As Excel.Worksheet
浏览 1提问于2013-10-07得票数 0
回答已采纳
我编写了一个宏，根据工作表"ProjList“中的列表创建可变数量的工作表。每个工作表都是在创建时命名的。我试图将一些单元格(A列)中的值从"ProjList“复制到新的工作表中。我已经用粘贴命令成功地完成了这个任务，但是我希望数据被转换。
我写过：
Sub AddWorkSheets()
Dim RowNumb As Long
Dim LastRow As Integer
LastRow = Worksheets("ProjList").Cells(Worksheets("ProjList").Rows.Count, &
浏览 2提问于2017-12-07得票数 0
我试图从每个单元格逐个复制行中的值，然后逐个使用这些值作为工作表名称。我遇到的问题之一是跳过第一批表，所以我试图隐藏那些我不想重命名的页。所有其他纸张都应改名(其中34张)。
在收到一条错误消息：“运行时错误”1004‘L方法'PasteSpecial’of object'_Worksheet‘’失败之前，我可以使用F8获取“PasteSpecial”。
我也尝试过使用"Activesheet.PasteSpecial xlPasteValues“，但是它也给出了同样的错误。
任何建议都是非常感谢的，这让我发疯了。)我的备份计划只是简单地使用宏记录并手动执行每个重命名，
浏览 1提问于2016-06-20得票数 1
回答已采纳
我正在尝试从Excel发送电子邮件。
下面的VBA代码用于附加两个文件，并包含带有我的Outlook标准签名的文本。
最近它失败了，给了我以下错误：
应用程序定义或对象定义错误
在.HTMLBODY线。
当我删除最后一个.HTMLBody时，它会运行，但它不包含我的签名。
Sub BodyVsHTMLBody()
Dim ol As Outlook.Application
Dim olMail As Outlook.MailItem
Set ol = New Outlook.Application
Set olMail = ol.CreateItem(ol
浏览 1提问于2022-06-13得票数 1
此VBA代码已开始返回错误消息：“运行时错误'1004'：”Range类的PasteSpecial方法失败“
我使用VBA代码将一些单元格复制并粘贴到下一行。我经常连续运行几次。它从来不会在第一次传递时失败。在开始失败之前，它工作了很多年。
Sub CopyInfoToLineBelowSamePO_Ctrl_Shft_Y()
'
' CopyInfoToLineBelowSamePO_Ctrl_Shft_Y Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
Selection.Copy
浏览 16提问于2017-01-14得票数 2
回答已采纳
1回答
我想复制工作表上的一些文本框和图表，并将它们粘贴到新创建的报告工作簿上。到目前为止，我一直在尝试修改我在这里找到的一段代码。这就是我到目前为止所知道的：
Sub SampleIndividualReport()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
Set wbI = ThisWorkbook
Set wsI = Sheet7
Set wbO = Workbooks.Add
With wbO
Set wsO =
浏览 23提问于2018-09-20得票数 0
我正在尝试使用下面提到的一段VBA代码，但它给出了一个错误消息: PasteSpecial方法of Range类失败
pastesheet.Range("C13:C300").Find(what:=cntr, LookIn:=xlValues).Offset(0, -2).PasteSpecial xlPasteValues
粘贴表是我要在其中查找find cntr (来自不同工作簿中不同工作表的值)的目标工作表。之后，我想用之前复制的整个新行替换找到cntr的行。
有没有人能帮我解决这个问题？
浏览 1提问于2014-10-01得票数 0
1回答
我有下面的代码
Dim Lasteuro As Long
ThisWorkbook.Sheets("Euro Cash").Range("A2:AF").Sort Key1:=Range("T2:T"), Order1:=xlAscending, Key2:=Range("V:V"), Order2:=xlAscending, Header:=xlYes
Lasteuro = Sheets("Euro Cash").Range("a1").End(xlDown).Row
Sheets("
浏览 2提问于2015-07-18得票数 1
回答已采纳
我的公式有问题。检查下面的代码。
With Worksheets("L.NAM.O")
With .Cells.Find(What:="record ID", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
.Parent.Rang
浏览 4提问于2016-11-18得票数 0
回答已采纳
2回答
我试着从第4页选择并复制到第5页，直到第4页列表的末尾。
它只工作一次，而不是循环，并给我一条错误信息。
“工作表类的pasteSpecial方法失败”
代码：
Sub SelectBetween()
i = 1
Sheets("Sheet4").Activate
Do Until i > 63
Dim findrow As Long, findrow2 As Long
findrow = Range("A:A").Find("Department", Range("A1")).Row
f
浏览 4提问于2019-12-18得票数 0
1回答
For j = 1 To numrows - 1
erow = Cells(Rows.count, 10 + j).End(xlUp).Row
totalMins = Cells(erow, 10 + j)
MsgBox (totalMins)
Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)).Cut
Cells(20, 20).PasteSpecial xlPasteValues
Next
继续得到面糊特殊范围类失败错误。失败的原因
浏览 3提问于2016-06-28得票数 1
回答已采纳
2回答
我正在构建一个工作表，它将根据某些选择而改变。我定义的范围将用于复制和粘贴不同的数据，这取决于应该向用户显示哪种类型的工作表。
自从我构建了复制和粘贴机制以来，当我运行代码以将工作表换为不同的外观时，工作表一直在崩溃。
在我的错误检查中，我得到了“对象‘范围’的方法'PasteSpecial‘失败”，然后“运行时错误”--2147417848(80010108)：被调用的对象与其客户端断开连接的自动化错误。“这种情况会随机发生，有时工作表运行得很棒，没有任何错误，另一些时候它会被错误淹没。通常在这个错误出现之后，我会命中终点，然后我会得到一个"Microsoft已经停止工作的”
浏览 3提问于2017-05-11得票数 0
我正在尝试编写一个宏来复制表(颜色、格式等)。每天(星期一、星期二、星期三、星期四和星期五)的纸张和同一天粘贴到纸张(262张)的纸张。(星期一至星期一等)我在表格“数据”中使用的单张名称。
但我发现了一个错误：
运行时错误'1004'：方法PasteSpecial类范围失败。
这是我的VBA宏：
Sub copy_paste()
For i = 1 To 262
If 1 = i Mod 5 Then
Worksheets("wednesday").Activate
Cells.Select
Appl
浏览 3提问于2019-12-01得票数 0
回答已采纳
当我查看“临时”表时，这个脚本运行得很好。但是当我在另一个工作表中时，复制命令就会失败。它给出了一个Application-defined or object-defined error
Sheets("Temp").Range(Cells(1), Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial
我可以使用这个脚本，但是粘贴它会有问题：
Sheets("Temp").Columns(1).Copy
Sheets("Overvie
浏览 2提问于2011-11-08得票数 39
回答已采纳
我使用以下宏从背景中的非活动工作表复制一系列行，并将其粘贴到下一个可用行的非活动工作表上。
由于某些原因，我得到的error对象不支持此属性或方法，即运行时错误438。
Sub Save8()
Application.ScreenUpdating = False
Set NextRow = Range("B" & Sheets("Time Allocation").UsedRange.Rows.Count + 1)
Sheets("Time Allocation").Range("B506:L515").Copy
Shee
浏览 2提问于2015-09-09得票数 0
回答已采纳
1回答
VBA宏引发运行时错误'1004'：Range类的PasteSpecial方法失败
仅当宏在PC上运行时才会抛出此错误。在Mac上，宏可以无缝运行。下面的宏会抛出错误吗？
Option Explicit
Sub DCR()
Dim J As Integer
Dim K As Integer
Dim L As Range
Dim sDay As String
Dim sMonth As String
Dim sTemp As String
Dim iTarget As Integer
Dim dBasis As Date
Dim Wb As Workbook
Dim Wb2 As
浏览 2提问于2015-12-16得票数 0
1回答
你好，我一直试图在另一个工作表上使用粘贴值，但是我尝试过的每一件事都会收到相同的错误。
Range类的PasteSpecial方法失败
xl.Application xlApp = Globals.ThisWorkbook.Application;
xl.Workbook wb = xlApp.ActiveWorkbook;
xl.Worksheet data = wb.Sheets["Data"];
xl.Worksheet datasheet = wb.Sheets["DataSheet"];
xl.Worksheet pivot = wb.Shee
浏览 3提问于2015-06-02得票数 2
回答已采纳
编写了非常简单的脚本，发生了以下问题，当我放入代码时，机器人停止运行：
.Range(.Cells(n, 1)).PasteSpecial Paste:=xlPasteValues, Transpose:=True
问题是，当我制作Range("A1")时没有错误，但是当我尝试在这里插入一些迭代机制时，有些东西失败了。
首先，我假设它是未定义的单元格，所以我使用了With函数。
For n = 1 To k
Sheets("Sheet1").Range(Sheets("Sheet1").Cells(12, n), (Sheets(&#
浏览 3提问于2019-08-14得票数 0
我想要cltr +v并执行一个尽可能粘贴我的目标格式的代码。
好的，我粘贴特殊的值，然后重新格式化这些值
但是我有一个发生在ActiveCell.PasteSpecial (xlPasteValues)行的错误，“Range类的PasteSpecial方法失败了1004Run-time error”
我想让这段代码整洁，但我遇到了一些麻烦。
此外，由于某些原因(尽管修剪、右对齐和名称"calibri“可以正常工作)，粘贴值的.Size不支持("object not support this property”错误)
有什么想法吗？谢谢!
Sub PasteWithDestina
浏览 0提问于2019-06-27得票数 0
我已经创建了一个用于排序部件的系统，该系统运行一个宏，该宏通过查找指示已排序的项的隐藏单元格来搜索由运算符排序的部件。宏第一次按预期工作，但是当编辑工作簿(例如添加了一个项)，并且宏再次运行时，它会生成一个运行时错误'1004'：应用程序定义的或对象定义的错误(错误行被注释)，
Set wb = ThisWorkbook
Set ws1 = wb.Sheets("PURCHASE ORDER")
Set ws2 = wb.Sheets("PICKING SHEET")
'Search for Ordered Units and add
浏览 9提问于2020-12-02得票数 1
回答已采纳
1回答
这似乎是一项简单的任务，但我总是遇到各种错误。我需要筛选工作表B，然后复制一列数据。然后，我需要筛选工作表A，然后将复制的数据粘贴到列中。
Worksheets("SheetB").Select
lastRowOne = Range("B" & Rows.Count).End(xlUp).Row
Range("DL2:DL" & lastRowOne).AutoFilter Field:=116, Criteria1:="<>Apples"
lastRowTwo = Range("B&
浏览 0提问于2016-09-15得票数 0
2回答
我是一个非常新的，自学的程序员，所以请记住这一点，在你的反应。我已经搜索了这个和其他论坛，似乎找不到类似的问题。
下面的代码已经工作了几个星期了，并且没有被更改。(我的宏包含了更多的变量和代码，但是我知道这些部分可以工作，所以为了清楚起见，我忽略了它们)。据我所知，PasteSpecial函数显然不起作用。
Dim StimSheet As String
ActiveCell.Rows("1:290").EntireRow.Select
Selection.Copy
'Copies the data for the current stimulus
StimSheet
浏览 7提问于2015-10-13得票数 1
回答已采纳
1回答
我一直试图构建一个实用程序，允许用户在列(或行)中选择公式，并使用PasteSpecial的PasteSpecial方法将这些公式转换为行(或列)。我让它使用特定的目标单元格，但是一旦我试图让用户控制目标单元格，我就会收到一个运行时错误1004“Range类的PasteSpecial方法失败”。
下面是工作代码(假设所选公式中没有一个在Range("E3")中)
Dim rSelection As Range
Set rSelection = Selection
Call MakeSelectionAbsolute(rSelection)
rSelection.Cop
浏览 3提问于2014-03-07得票数 1
回答已采纳
1回答
这是我的第一篇文章，所以请提供任何关于我提出问题的方法的反馈。
我正在构建一个子(最终)应该复制一个范围从一个纸张(“沙箱”)到另一个(“主人”)。这些步骤是：
标识选定的行
循环遍历沙箱行，确定是找到匹配的母行还是将其添加为母版中的新尾行
仅从每个选定的沙箱行复制值到适当的母行
在设置PasteSpecial函数的范围时，会弹出错误。这一行始终给出一个"1004 (方法‘范围’的对象'_Global‘失败“消息)。
下面是代码：
Sub UpdateMaster()
Dim currentSelection As Range
Set cu
浏览 0提问于2016-11-11得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
