添加新代码后工作的代码出现1004错误
可能是由于以下原因导致的：
- 语法错误：新添加的代码可能存在语法错误，导致整个代码无法正常运行。可以通过仔细检查代码并使用调试工具来定位和修复语法错误。
- 依赖缺失：新添加的代码可能依赖于某些库或模块，但这些依赖项未正确安装或配置。可以通过检查代码中的依赖项并确保它们已正确安装和配置来解决此问题。
- 冲突问题：新添加的代码可能与现有代码存在冲突，导致出现1004错误。可以通过仔细检查代码并解决冲突来解决此问题。
- 数据错误：新添加的代码可能在处理数据时出现错误，导致出现1004错误。可以通过检查代码中的数据处理逻辑并确保数据的正确性来解决此问题。
- 网络问题：新添加的代码可能涉及网络通信，而网络连接不稳定或出现问题可能导致1004错误。可以通过检查网络连接并确保网络稳定来解决此问题。
对于解决1004错误，可以尝试以下方法：
- 仔细检查代码：检查新添加的代码是否存在语法错误或逻辑错误，并进行修复。
- 调试代码：使用调试工具逐行调试代码，定位错误所在，并进行修复。
- 检查依赖项：确保新添加的代码所依赖的库或模块已正确安装和配置。
- 解决冲突：检查新添加的代码与现有代码之间是否存在冲突，并解决冲突。
- 检查数据处理逻辑：确保新添加的代码在处理数据时没有错误，并对数据进行正确的验证和处理。
- 检查网络连接：确保网络连接稳定，并检查新添加的代码涉及的网络通信是否正常。
腾讯云相关产品和产品介绍链接地址：
- 云函数（Serverless）：腾讯云云函数是一种事件驱动的无服务器计算服务，可帮助开发者在云端运行代码，无需关心服务器管理和运维。详情请参考：云函数产品介绍
- 云服务器（CVM）：腾讯云云服务器是一种弹性计算服务，提供可扩展的计算能力，适用于各种应用场景。详情请参考：云服务器产品介绍
- 云数据库 MySQL 版（CDB）：腾讯云云数据库 MySQL 版是一种高性能、可扩展的关系型数据库服务，适用于各种规模的应用。详情请参考：云数据库 MySQL 版产品介绍
- 人工智能平台（AI Lab）：腾讯云人工智能平台提供了丰富的人工智能服务和工具，帮助开发者构建智能化应用。详情请参考：人工智能平台产品介绍
请注意，以上仅为腾讯云的一些相关产品，其他云计算品牌商也提供类似的产品和服务。
相关·内容
1回答
我在Excel中有一个进程，它用以下代码从PDF文件中添加图像：
valRef = "TabName"
FilePath = "\\network\file.pdf"
' Process stops in the next line
Worksheets(valRef).OLEObjects.Add Filename:=FilePath, Link:=False, DisplayAsIcon:=False
有时，当添加错误“运行时错误”1004不能插入对象的PDF文件时，进程将停止。
当调试窗口出现时，我可以按F5，进程继续进行。PDF文件存在，使用相同
浏览 0提问于2018-09-28得票数 1
回答已采纳
我的工作簿似乎有点问题。当我将工作表类复制到新文件夹或重命名时，出现运行时错误'1004‘工作表类的选择方法失败。代码很简单。我是VBA新手，不知道如何正确地将工作簿或工作表设置为活动状态。
Private Sub Workbook_Open()
Sheets("QUOTE SETUP").Visible = True
Sheets("QUOTE SETUP").Select
Range("F6").Select
End Sub
浏览 1提问于2018-06-23得票数 0
我在VBA中有以下代码返回1004错误：
e = WorksheetFunction.CountIf(Worksheets("TG Teams").Range(Cells(4, w), Cells(12, w)), Worksheets("Calcs").Range("B" & a))
e，w，a都是整数。
代码用于检查Calcs工作表中的名称是否也出现在TG团队工作表中。范围是可变的原因是，CountIf需要每周检查不同的列。
有什么想法吗?当我运行这个程序时，如何解决1004的错误？
浏览 2提问于2017-04-06得票数 0
回答已采纳
我有一个rdlc报告，它显示了数据集SQL查询结果的结果，其中包含2列和+-50行，如下所示：
/-----------\
| 1001 | 10 |
|------|----|
| 1002 | 10 |
|------|----|
| 1003 | 12 |
|------|----|
| 1004 | 20 |
|------|----|
| 1005 | 14 |
|------|----|
| 1006 | 32 |
\-----------/
它出现在很多页面上。为了节省空间，我如何显示这样的结果：
--------+----- -------+----- --------+-
浏览 0提问于2018-10-24得票数 1
我有一个工作簿(A)，它拉出另一个(B)，从wb B复制值并将值粘贴到wb A(没有表格，没有公式；只有数据)。
ActiveWorkbook.Sheets("Sheet1").Range("A1:F" & lonTempWBLastRow).Copy shtNewMonth.Range("A1")
然后，我尝试使用以下命令创建一个表：
Set NewMonthTable = wbPDRC.ListObjects.Add(xlSrcRange, Range("A1:F" & lonTempWBLastRow),
浏览 0提问于2019-03-21得票数 0
6回答
在Drupal 7上，当我发布一个节点时，我重定向到创建的特定节点。
当我正确地发布节点时，我正在搜索以重定向到主管理页面。
我试着把这个放到template.php上：
function node_submit($form, &$form_state) {
$form_state['redirect'] = 'admin';
}
但提交时出现了一个错误：
致命错误:无法在第xx行的/var/www/XXX/sites/all/themes/XXX/template.php中重新声明node_submit() (以前在/var/www/XXX/模块
浏览 11提问于2012-06-01得票数 4
我有下面2000行代码，因为这个过程是重载的，所以会出现编译错误：
Sheet7.Range("H2").Value = Sheet7.Range("H2").Value + Sheet7.Range("K2").Value
...
Sheet7.Range("H2001").Value = Sheet7.Range("H2001").Value + Sheet7.Range("K2001").Value
如果我有，比方说，最多十行，它就可以工作。但是我需要2000行的代码，这就是我得到编译错误的时
浏览 0提问于2013-08-02得票数 0
当我使用带有-LockMode命令的nuget restore开关时，我会得到这个错误。
NU1004:包锁文件与项目依赖项不一致，因此无法在锁定模式下运行还原。禁用RestoreLockedMode MSBuild属性或传递一个显式-强制-评估选项以运行restore来更新锁文件。
我试图实现的是自动升级我的nuget引用使用通配符，但使用特定的版本，当我想要重新构建我的项目从已知的来源。这篇博客文章描述了如何实现。
当我在一个简单的解决方案上使用-UseLockFile & -LockMode时，它只按预期的方式工作，当我开始向解决方案中添加另一个项目时，就会出现问题。
以
浏览 7提问于2021-03-19得票数 5
2回答
我有一个汇总文件，可以打开多个excel工作簿，并将其中的数据复制到主文件中。该程序已经正常运行了几个月，但在过去的几天里，当它打开一些文件时却失败了。我得到以下错误消息。
运行时错误'1004'：
Excel无法打开文件"filename.xlsm“，因为该文件格式或文件扩展名无效。验证文件是否已损坏、文件扩展名是否与文件格式匹配、文件扩展名是否与文件格式匹配。
如果我点击debug并继续运行程序，那么文件就会打开而不会出现任何问题。如果我重新启动程序，它仍然无法打开文件，但它永远不会是相同的文件。当我进入工作簿并且文件扩展名正确时，我找不到任何失败的工作簿问题。我有
浏览 0提问于2013-06-12得票数 0
在我的vba代码中遇到下面的错误。
运行时错误“1004”：工作表类的复制方法失败
Public Sub ExportAsCSV(savePath)
Set ws = Workbooks("OND Estimator").Worksheets("port") 'Sheet to export as CSV
Set wb = Application.Workbooks.Add
ws.Copy Before:=wb.Worksheets(wb.Worksheets.Count)
Application.DisplayAle
浏览 0提问于2018-08-30得票数 1
回答已采纳
4回答
我试图向"A1“单元格写入一个值，但得到了以下错误：
应用程序定义或对象定义错误“1004”
我已经在网上尝试过许多解决方案，但没有一种有效。我正在使用excel 2007，文件扩展名是.xlsm。
我的代码如下：
Sub varchanger()
On Error GoTo Whoa
Dim TxtRng As Range
Worksheets("Game").Activate
ActiveSheet.Unprotect
Set TxtRng = ActiveWorkbook.Sheets("Game").Cells(1, 1)
TxtR
浏览 10提问于2012-07-19得票数 15
回答已采纳
1回答
我在将图像从一个工作表复制和粘贴到另一个工作表时遇到了问题。此代码适用于PC，但不适用于Mac！当我在Mac上运行它时，我得到了一个错误1004。
这是一个复制/粘贴图像的问题！我已经看过很多论坛了，但什么都不能用！
下面是我的代码：
Dim sh As Shape
For Each sh In Sheets("Settings").Shapes
Debug.Print sh.Name
If sh.Name = reportname Then ' give the name of your Picture here
浏览 1提问于2014-09-10得票数 0
我试图编写代码，询问用户的年龄，然后他们输入它，但我希望在您输入问题后，这个号码出现在问题的旁边。
我的代码如下所示：
System.out.println("Enter a number: ");
num1 = userIn.nextInt();
它工作正常，但这个数字总是出现在下面的行上。
输出：
Enter a number:
12
我想要的：
Enter a number: 12
有什么建议吗？
浏览 4提问于2012-04-13得票数 10
我正在做一个项目，我们将从Windows Server2003 32位，Office 2010到Windows Server2008 R2 64位，Office2010 32位。
我们遇到的问题是Excel工作簿出现VBS运行时错误1004。我不太懂编程，所以我想知道出了什么问题。
获取错误的命令是.Publish (true)
代码：
Sheets("mail") .Select
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"L:\Data\HBV_HTML\Ny-hbv.mht",
浏览 2提问于2014-07-29得票数 1
在TestFlight/AppStore上载生成时出错。我使用的是Xcode 9.3和错误抛出：
将更改保存到Apple数据库时出错。为提供程序创建MZContentProviderUpload时出现异常。(1004)发生未知错误。
有没有人能告诉我为什么会出现这个错误？
浏览 31提问于2018-09-07得票数 4
1回答
需要计算x= 0.7的西格玛
这是我的代码版本，但不能正常工作，需要帮助：
Private Sub UserForm_Click()
Dim k As Long
Dim Numerator As Double
Dim Result As Double
x = 0.7
For k = 0 To infinity Step 1
Numerator = 0
Numerator = Numerator + (-1) ^ (k + 1) * x ^ (2 * k - 1)
Next k
Result = Result + Numerator / Application.Wor
浏览 4提问于2022-11-14得票数 -2
回答已采纳
3回答
在ipad中，帧不会改变方向
、、、、
在根视图控制器的viewDidLoad中，添加了一个用于定位检测的观察者：
[[UIDevice currentDevice] beginGeneratingDeviceOrientationNotifications];
[[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(willRotateToInterfaceOrientation:duration:) name:@"UIDeviceOrientationDidChangeNotification" object:ni
浏览 1提问于2013-08-02得票数 0
我正在尝试将一个工作表导出为PDF，但当我运行代码时，我一直收到1004错误。 我相信它链接到保存目标的文件夹路径。我尝试过以不同的方式定义文件路径，但仍然出现错误。 此代码应从单元格B1中提取文件名的一部分，并从工作表所在位置提取文件路径。PDF应保存到工作表的位置。我是VBA的新手。如有任何帮助，我们不胜感激！ 以下是代码 Sub ExportAsPDFTest()
Dim Name As String
Dim Preface As String
Name = Cells(1, "B").Value
Preface = "PreR Summer 2019 -
浏览 26提问于2019-06-07得票数 0
回答已采纳
在受保护的工作表中，我有一个按钮，可以删除所选单元格的行，而它们是在连贯一致的行中。如果我在不同的行(使用CTRL)中选择两个单元格，这两个单元格不是在相干行中，则会得到一个1004错误。见下面的代码：
Sub LöscheDatensatz()
Application.ScreenUpdating = False
With ActiveSheet
.unprotect Password:="test"
If Cells(Selection.Row, 1).Locked = False Then
Selection.EntireR
浏览 4提问于2016-10-10得票数 1
回答已采纳
1回答
我试着用这段代码格式化这个数字，它起了作用：
Range("E5:E" & v_col).NumberFormat = "###-#-##"
但我需要改变"-“和斜杠/”有一个类似的数字：
226/1/16
但是它不能工作，并且出现了错误1004。
浏览 0提问于2020-07-27得票数 0
回答已采纳
我需要你的帮助..。运行以下代码(我只放置关键部分)时，出现1004错误消息(应用程序或对象未定义)：
Sub overwrite_CDL()
Dim sht As Worksheet, LastRow As Long
Set sht = ThisWorkbook.Worksheets("JDE_Greece")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
sht.Activate
Range("M1").AutoFilter Field:=13, Criteria1:="#N/A"
浏览 0提问于2017-07-14得票数 0
我正在做一个播放视频的应用程序。我有两个问题：
1)我在Youtube上有一个链接: rtsp://，我有：
Uri myUri =Uri.parse(链接)；//link =rtsp://.Uri.parse myUri)；
然后，视频就不播放了..。但是，如果我使用一个“视频视图”工作。我认为问题在于"mediaplayer“没有播放mpeg编解码器。有什么想法吗？
2)我有几个连接到不同质量的链接，我播放它们连接到wifi，没有问题，但与数据连接：
05-01 15:58:25.453: E/Link:(31565)：http%3A%2F%2Fo-o.preferred.mad0
浏览 10提问于2012-05-01得票数 1
1回答
我目前正在创建一个预订系统，作为ICT IEA课程的ICT项目。我正在使用excel的预订系统，它的一部分是这个库存清单，这就像一个画廊的产品图像。
这个项目的一个要求是，当你点击图像时，它会转到一个单独的项目页面，这是我试图使用一个在页面之间切换的基本宏来完成的。然而，每当我单击启用宏的图像时，就会出现“运行时错误1004”窗口。
宏的编码如下：
Sub ipadcoverbuddy()
'
' ipadcoverbuddy Macro
'
Sheets("ipad coverbuddy").Select
End Sub
关闭错误窗口后，当我单
浏览 6提问于2012-11-28得票数 1
1回答
我在下面的代码中有一个1004错误。就像简单的例程一样，我不知道哪里出了问题。请注意，当我从forms sub中运行UserForm2的代码时，它工作得很好。但是当我从这里调用它时，我得到了1004错误。我真的不明白是什么导致了这个错误。感谢你的帮助。请注意，ChosenString和Report是一个公共变量。您有几个1004错误条目，但我找不到适合此问题的条目。UserForm2.Show上出现错误。
Sub ChooseReport()
' Display a selection box of reports and run the report
'
Ch
浏览 2提问于2016-01-13得票数 0
我有这段代码来选择一个日期，并更改数据透视表的过滤器，以反映相关信息。但有时它能起作用，有时它会让我
错误1004应用程序定义或对象定义错误
这让我抓狂了，我不知道发生了什么，尤其是因为这段代码可以工作，但是没有任何改变。
Dim DataVenda As Date
DataVenda = InputBox("Data de Vendas (dd/mm):")
ActiveSheet.Range("B1").Select
With Selection
ActiveSheet.PivotTables("DinTblResumoDiario
浏览 1提问于2017-02-10得票数 2
回答已采纳
我已经得到了一个古老的，但在大多数情况下，工作Excel解决方案。它使用了大量的DialogSheets (UserForms之前的Excel5/95技术)。
现在我想弄清楚作者想做什么，代码是非常可怕的。我偶然发现的一个问题是：
有些工作表可以很好地处理代码，如：
DialogSheets("Name1").Show
DialogSheets("Name1").Labels.Visible = True
DialogSheets("Name1").EditBoxes.Visible = True
DialogSheets("Name1&
浏览 2提问于2018-10-29得票数 3
1回答
我有一个VBA宏从主工作簿复制两个工作表(一个是收集数据的表单，一个是带有下拉菜单的批量查找的工作表)，填充新的工作簿并保存出来。
由于下拉数据验证列表在复制工作表时更新它们的链接，所以我必须重置验证以引用新的Lookups工作表。目前，我正在尝试这个(当然，具有不同的坐标)：
With wsNew.Cells(19, 5) ' Display on web schedule
.Value = wsData.Cells(11, iColCount).Value
.Validation.Add Type:=xlValidateList, AlertStyle:=xlVa
浏览 5提问于2016-07-26得票数 1
回答已采纳
2回答
我在使用简历时遇到了问题，虽然我已经通过使用On找到了另一个解决方案，但我仍然不明白为什么下面的代码不能工作。出现初始错误是因为工作表名"Sheet_1“已经被接受。这意味着，在err.number窗口中，在执行简历NameAgain之前，NameAgain的值为1004。而不是清除错误并跳回标签，一个错误20发生(恢复无错误)，而代码移动到末尾，如果行。
考虑到有一个活动错误1004，我不明白为什么它的行为好像没有错误。我已经搜索了错误的20个问题，但没有真正解决这为我或使我理解背后的逻辑。任何帮助都是非常感谢的。
Sub ErrorTest()
Dim i as integer:
浏览 0提问于2020-11-28得票数 1
回答已采纳
当文件处于保护模式(因为从internet下载)时，我对包含在Workbook_Open()中的Workbook_Open()有问题。一旦您“启用编辑”，Workbook_Open()就会被执行，并出现错误。
如果我使用这个代码：
Private Sub Workbook_Open()
Sheets(2).Activate
End Sub
我有以下错误:运行时错误1004激活工作表类的方法失败
在其他一些讨论中，我尝试使用Workbook_Activate()方法，如果在我的所有项目中只有一个简单的激活，这个方法就能工作。如果我使用：
Private Sub Workbook_Open()
a
浏览 2提问于2017-03-07得票数 0
1回答
在将Excel工作簿转换为CSV时，我的VBA脚本出现了错误。VBA脚本通过Microsoft脚本运行。
Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
Dim wb_xl As Excel.Workbook
Dim wb As Excel.Worksheet
Set wb_xl = objExcel.Workbooks.Open("O:\documents\folder.xlsx")
wb_xl.SaveAs FileName:="O:\documents\folde
浏览 1提问于2020-02-14得票数 1
当我尝试将工作簿页面合并到一个主控文档中时，出现1004错误。代码在我的设备上工作正常，但当我试图在我的朋友设备上运行代码时，它抛出了一个1004错误。我相信他在excel 2013上，我在excel 2016上。有没有办法将我的代码转换成可以在两个设备上使用的东西？
Sub CombineSheets()
Dim sPath As String
Dim sFname As String
Dim wBk As Workbook
Dim wSht As Variant
Application.EnableEvents = False
Application.ScreenUpdating = F
浏览 0提问于2017-09-13得票数 1
4回答
我试图创建一个宏，它删除活动工作表而不显示提示符。这就是does...This下面的代码在最后一个工作表之前工作得很好的地方。无论如何我都能拿到提款机。我不想删除最后一页，同时，我不希望出现错误'1004‘消息。是否有一种方法可以更改上面的代码，使其不删除最后一个工作表，同时不显示错误消息？
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
浏览 6提问于2020-02-17得票数 2
回答已采纳
我有几个宏，当某些单元格值改变时，可以复制和粘贴图像。
单步执行代码效果很好，但通过对单元格进行寻址运行有时会出现以下错误：
运行时错误'1004'：
工作表类的粘贴方法失败。
我使用以下代码来复制图像：
With Sheets("Quote")
.Shapes("ExampleQuoteImage").Copy
.Activate
.Paste Destination:=Range("A102")
End With
该错误不会发生在我的开发机器上，但会发生在某些用户的机器上。
它不会每次都在同一行
浏览 1提问于2013-01-10得票数 3
回答已采纳
3回答
我在用Microsoft编程。首先，我需要在宏的帮助下生成一个QueryTable (我有相应的代码)，然后在宏的帮助下，我需要应用使用QueryTable中数据的公式。我面临的问题是，QueryTable只出现在它的代码所在的Sub完成工作之后。这意味着我不能在其中包含生成公式的代码，因为没有要在其上生成公式的数据。
现在的想法是编写一个运行其他模块的模块：
Sub moduleController()
Run "Module1"
Run "Module2"
End Sub
这就产生了错误：
运行时错误1004 -无法运行宏"macro
浏览 3提问于2012-03-28得票数 10
回答已采纳
我正在运行For Each循环，根据位于每个工作表中的字符串的一部分重命名工作簿中的每个工作表。下面的代码是“works”，这意味着每个工作表都被重命名了，但随后我得到了运行时错误1004“应用程序定义的错误或对象定义的错误”。
我尝试了几种修复方法，比如使用“ws”而不是“sht”，尝试使用单元格引用而不是“Range”，以及在If语句中设置Else。
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "Control" Then
sht.Name = Re
浏览 0提问于2019-04-26得票数 0
1回答
我想复制和粘贴一个动态范围。我试着运行这段代码，但它不起作用。
相反，
“运行时错误1004”
就会出现。
Worksheets("Data").Range(Cells(1, 1), Cells(10, 2)).Copy Worksheets("Tabelle1").Range(Cells(1, 1), Cells(10, 2))
如果我使用Range("A1:A5")，它可以正常工作。
浏览 0提问于2020-12-07得票数 1
回答已采纳
2回答
我试图在MS Access模块中编写一个子例程，该子例程访问MS Excel工作表，并将注释添加到指定的范围。我正在使用后期绑定，这样我的低自信用户就不需要篡改添加引用了。当试图向range对象添加注释时，将引发以下错误：
运行时错误'1004'：应用程序定义的或对象定义的错误。
使用下面的示例代码，假设打开的工作表具有注释"Hello“的单元格A1，注释"World”的单元格A2，以及单元格A3没有注释。
Sub export(strFilePath As String)
Dim XL As Object
Dim WB as Object
Dim
浏览 6提问于2014-12-31得票数 1
回答已采纳
下面的代码出现错误(1004)
Sheets(2).Cells(i, 7).Formula = "=LEFT(" & Sheets(2).Cells(i, 5) & ",2)"
浏览 1提问于2016-12-16得票数 0
回答已采纳
我在下面的代码中得到了这个1004运行时错误。我标记为注释的那一行是这个问题的关键。每当将行标记为注释时，此代码总是得到1004运行时错误。当我把这一行放回正常代码时，代码工作得很好。在这段代码中有没有必要跳过工作表的激活，因为这种激活会使excel在代码运行期间跳跃。
谢谢。
Public Sub Summary_calculation()
Dim wb As Workbook
Dim ws As Worksheet
Dim endrow As Integer
Dim temprow As Integer
Dim tempcol As Integer
D
浏览 0提问于2018-06-20得票数 0
Private Sub CommandButton1_Click()
ImportFilepath = Application.GetOpenFilename(FileFilter:="XML Files (*.xml), *.xsd", _
Title:="Choose File", MultiSelect:=False)
With ActiveWorkbook.XmlMaps("data-set_Map")
.AdjustColumnWidth = False
End With
ActiveWorkbook.XmlMa
浏览 0提问于2015-03-05得票数 0
0回答
我正在尝试复制并粘贴一个工作表中的动态范围。我可以复制我的数据，但它不会粘贴，出现“运行时错误1004:对象‘_Global’的方法'Range‘失败”
代码如下：
Range("A19:B" & Range("A19").End(xlDown).Row).Copy
Range("O19:P").PasteSpecial (xlPasteValues)
有人能帮我解决这个问题吗？
浏览 5提问于2017-06-09得票数 0
回答已采纳
1回答
我设置了一个工作表，该工作表只有某些单元格处于未锁定状态，以便在其他锁定的工作表上进行编辑。所有这些单元格最初都是黄色的，并且都是空的。我的目标是在输入任何数据时，使单元格的基色从黄色变为绿色，并在包含任何类型的数据时保持绿色，但如果删除了数据，则恢复为黄色。我已经为此编写了代码，但我看不到问题是什么，所以我一定是遗漏了什么，因为代码没有完成我想要它做的事情，而只是得到了一条错误消息。此代码位于我的主工作簿代码中。
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.
浏览 2提问于2019-07-18得票数 1
回答已采纳
我一直收到错误，“选择Range类的方法失败”和来自行(“2:2”).Insert的意外结果
下面的代码
Worksheets("Sheet3").Select
Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D4").Select
首先，将新行添加到工作表1，而不是工作表3，然后无法选择范围1004错误。我已经使用这个确切的脚本选择了其他工作表和区域，没有出现任何问题。我可以为任何能提供帮助的人提供完整的文件和代码
浏览 0提问于2016-07-28得票数 1
2回答
我试图复制一个工作表，在此之后，打开副本以更改第一个工作表的名称。
这是插入在Module1上的代码
Sub CopiarNovaPlanilha()
Dim wkb As Workbook
ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx"
Set wkb = Workbooks.Open("I:\CGP\DEOPEX\01 - Supervisão\10 - Aloc
浏览 3提问于2017-07-21得票数 0
回答已采纳
这是我在Excel代码后面使用的代码，我得到了以下错误“运行时错误1004无法设置characters类的文本属性”。"txtXmlString“是我在Excel表格中使用的textbox控件的名称，External FPrm是我的表格名称。
Private Sub CreateXMLString()
sf = "testdata"
Worksheets("External form").Shapes("txtXmlString").TextFrame.Characters.Text = sf
End Sub
浏览 0提问于2015-03-14得票数 0
2回答
我得到了这个代码：
Worksheets("SOURCE_DATA_HIDDEN").Activate
Sheets("SOURCE_DATA_HIDDEN").Select
Columns("B").Copy
Sheets("RESOURCE_DEMAND").Select
Columns("C").Select
ActiveSheet.Paste
我使用它将列从一个工作表复制并粘贴到另一个工作表。上次我检查的时候代码还能用，今天不知怎么就坏了。出现以下错误:运行时错误10
浏览 4提问于2014-05-21得票数 0
我正在使用一张干净的工作表，其中我粘贴了一列日期，其中的行数各不相同。我的目标是显示每次约会出现的次数。但是，每次我到达最后一行时，我都会收到运行时错误'1004‘应用程序定义的错误或对象定义的错误。
下面是我的代码：
Dim lastrow As Long
Set ws = ActiveSheet
Set startcell = Range("A1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
Range("B2").Formula = "
浏览 0提问于2021-05-01得票数 1
我正在尝试记录一个更新自己的Power Query宏。每当我运行该代码时，它都会给出表不能重叠的错误。
运行时错误“1004”表不能超过另一个表
我试过调试，但也没有工作
Windows("WorkOrderItemOpen2.0.xlsm").Activate
Sheets("Valid Labor").Activate
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Sou
浏览 0提问于2019-06-28得票数 0
我有一个VBA项目，它同时使用两个工作簿。在工作簿A中，模块从工作簿B调用模块，如下所示：
If oED Is Nothing Then
Set oED = Application.Run("'" & workbookB & "'!wbB.MainModule.InitDatabaseObject")
End If
这之前运行良好，但突然(显然)这一行代码在其他工作簿中找不到模块/宏。
我收到这条错误消息
错误1004此工作簿中可能无法使用宏，也可能禁用所有宏。
我试图：
清除Excel中的宏设置
清
浏览 1提问于2018-11-26得票数 3
我在Access 2007中有如下表格：
Route Cust Planners
4401 1004 jasper
4401 1005 onno
4401 1006 jasper
4402 1007 bart
4402 1008 marcel
4402 1059 onno
4403 1124 bart
4403 1165 marcel
4403 1198 marcel
4403 1201 mustafa
4403 1225 bart
4401 11
浏览 4提问于2014-04-10得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
