运行时错误'1004‘，包含此特定代码
运行时错误'1004'是指在使用特定代码时发生的错误。具体来说，'1004'是Microsoft Excel中的一个错误代码，表示“应用程序或对象定义的错误”。这个错误通常与VBA（Visual Basic for Applications）代码相关，用于自动化Excel操作。
在Excel中，'1004'错误通常与以下情况相关：
- 对象引用错误：代码尝试引用一个不存在或无效的对象。
- 方法或属性错误：代码尝试使用一个不存在或无效的方法或属性。
- 数据范围错误：代码尝试操作一个无效的数据范围。
解决此错误的方法包括：
- 检查代码：仔细检查引发错误的代码行，确保对象引用、方法和属性的正确性。
- 检查数据范围：确保代码操作的数据范围是有效的，并且没有超出边界。
- 错误处理：使用错误处理机制，如Try...Catch语句，在代码中捕获和处理错误，以避免程序崩溃。
腾讯云提供了一系列云计算相关的产品和服务，可以帮助开发人员在云环境中进行应用开发和部署。以下是一些与Excel操作相关的腾讯云产品和服务：
- 云服务器（CVM）：提供可扩展的虚拟服务器实例，可以在云中运行自定义的应用程序。
- 云数据库MySQL版（CDB）：提供高性能、可扩展的MySQL数据库服务，可用于存储和管理Excel数据。
- 云函数（SCF）：支持使用VBA代码编写的Excel宏，将其部署为云函数，实现自动化操作。
- 对象存储（COS）：提供安全可靠的云存储服务，可用于存储和备份Excel文件。
请注意，以上产品和服务仅为示例，具体的选择应根据实际需求和项目要求进行评估和决策。
相关·内容
我使用下面的代码来清除不包含公式的所有单元格。
Sub DoNotContainClearCells()
Dim rng As Range
Dim cell As Range
Dim ContainWord As String
'What range ?
Set rng = Worksheets("Datenbasis").Range("A5:Z100")
'What I am looking for?
ContainWord = "="
For Each cell In rng.Cells
If
浏览 0提问于2016-08-24得票数 0
回答已采纳
我试图将一个公式写入一个范围，并得到以下消息:运行时错误'1004'：应用程序定义的或对象定义的错误。我使用了以下代码，但我不明白为什么这不起作用：
LastRow = Sheets("Source").Cells(Rows.Count, "B").End(xlUp).Row
For Each cell In Sheets("Target").Range("I2:I" & CStr(LastRow)).Cells
cell.Formula = "=IF(D2=E2;""O
浏览 5提问于2013-06-02得票数 0
我试图使用INDEX和MATCH函数从网站()生成的xml表中返回货币换算率，但代码返回以下错误：
运行时错误“1004”：对象“_Global”的方法“范围”失败
我的代码是：
Sub Trial()
curr = Application.Index(Range("Currency_Conv[[1 inr ]]"), Application.Match(Range("Convert_to_Currency"), Range("Currency_Conv[Code]"), 0))
MsgBox (c
浏览 1提问于2021-07-07得票数 0
1回答
从多张表定义动态范围
、、、
我想从多张表中定义几个动态范围。我得到了错误1004“应用程序或对象定义错误。”我的代码适用于工作表处于活动状态的任何范围，并且通过激活每个工作表，然后定义我的动态范围，我已经能够使它工作。但是如果我的电子表格变大了，这会使我的程序慢下来。
请注意以下事项：
.CurrentRegion将无法工作，因为它将包含许多不必要的行和列。该报告将包括因生产领域不同而出现重复栏的地区。
是否有更好的方法来定义我的范围，以避免激活每个工作表？下面是我正在使用的一些代码的示例。
Set Sony = ThisWorkbook.Worksheets("Report")
Set Pr
浏览 2提问于2017-04-23得票数 1
回答已采纳
3回答
我有一个包含这些字段的表：phID，ProductID
phID是药房标识，ProductID是产品标识。
一家药房有多种产品
一个产品是给多家药房的。
示例：
phID ProductID
-----------------
1001 9
1001 10
1001 11
1004 9
1004 12
1004 14
1004 11
我想要的查询是为了获得所有具有相同产品的phID。我有一个疑问：
SELECT phID, ProductID
FROM ph_pd
WHERE ProductID IN (9,10,11)
我希望
浏览 6提问于2013-03-12得票数 0
回答已采纳
很抱歉标题含糊不清，但我不知道如何在标题中描述我的问题，无论如何，我的长代码中有一个触发保存对话框的部分：
Line1:
Dim dlgSaveAs As Object
Dim strFilePath As String
Dim strFileName As String
Set dlgSaveAs = Application.FileDialog(2)
With dlgSaveAs
.InitialFileName = (CurrentProject.Path) & "\Folder" & "_" & Format(Date, "
浏览 3提问于2016-07-07得票数 1
回答已采纳
我希望循环遍历每个数据行，并检查pid的值，直到它得到0或空或空的value...below才是我的代码。
if (!string.IsNullOrEmpty(pIDstr))
{
int patientID = Convert.ToInt32(pID);
//string connection = System.Configuration.ConfigurationManager.ConnectionStrings["connectionString"].ConnectionString;
string sqlquery = "SELECT
浏览 1提问于2013-10-11得票数 0
回答已采纳
1回答
你知道为什么我在下面的代码中得到一个错误信息吗?我试图将3/4分成两列，分别包含3和4；
我得到的错误信息是；运行时错误'1004'：应用程序定义的错误或对象定义的错误
Sub Test()
'Pause "Cell Contains a Value" Message Error
Application.DisplayAlerts = False
'Perform text to columnn function
Sheets("Look Up Tables").Range("Text_to_Columns").
浏览 0提问于2021-05-25得票数 0
我知道错误1004上已经有很多线程，但是在深入挖掘它们之后，我还没有发现类似于我的情况。除了一组单元格外，我正在试图锁定一个工作簿，使用我找到的信息和以下代码：
If SecurityActive= "yes" Then
Worksheets("Invullen").Range("D7, D9, D11, D15, D17, D19, D23, J12, J14:J16").Locked = False
'INVULLEN
Worksheets("Invullen").Protect UserIn
浏览 2提问于2017-06-20得票数 0
回答已采纳
Set wks = wkb.Worksheets("Calendar") 'active worksheet
wks.Cells(NextRow, 1) = ComboBox1.Value
我随身带着这两行代码。这里，当我将combobox值赋给工作表的第一个单元格时，它会给我一个error number 1004。让我知道一些解决方案...
预告谢谢....
浏览 5提问于2013-04-17得票数 1
下面的代码在Excel2016上运行良好，但在'If (Not Rng.Pivotcell)‘上给出了一个Object Defined 1004错误
Microsoft脚本运行时作为参考处于活动状态。这之前已经为我修复了1004错误，但在这个错误中，我感到困惑。
''Returns true if the column belongs to a pivot or not
Public Function ColumnBelongsToAPivot(ByVal ColumnLetter As String, ByVal RowIndex As Long, ByVal Use
浏览 12提问于2021-05-19得票数 0
回答已采纳
7回答
我在Android的媒体后端(主要是Stagefrightplayer)遇到了一些麻烦，我想知道为什么它会抛出错误。错误通常是特定于设备的，因此在仿真器上进行调试是不够的。
示例：
I/AwesomePlayer( 147): mConnectingDataSource->connect() returned -1004
V/MediaPlayerService( 147): [332] notify (0x272830, 100, 1, -1004)
E/MediaPlayer(24881): error (1, -1004)
E/MediaPlayer(24881): Error
浏览 1提问于2010-09-10得票数 5
回答已采纳
我有一个包含业务仓库ID的维度，我还在Active Directory中创建了具有相同名称的用户(1001,1002,1003,1004，…)正如你在下面看到的。
DimWarehouse
ID
1001
1002
1003
1004
.
.
.
我的问题是，每个“用户名”怎么可能只访问它的仓库ID？
浏览 0提问于2021-03-12得票数 1
8回答
我正在尝试运行一个宏，该宏选择表列中的空白单元格并删除整行。
下面的脚本执行除删除部分之外的所有操作，这将提示以下错误：
运行时错误1004 -“删除范围类失败的方法”
我使用了以下代码：
Sub test()
Range("Table1[[New]]").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
浏览 6提问于2012-10-20得票数 13
回答已采纳
我试图使用regex来解决我的任务。
Given:
逗号分隔码串
" 1004, 1001 , 11004, 1002, 1003, 1004 , 1005,ABC100,10041,ABC102, 1004 "
字符串可以包含数字/字符串/混合代码。
С代码由逗号分隔。
在逗号和代码之间可以有空格。
密码要检查。例如：
"1004"
目标：
需要确保给定代码包含在源字符串中。
我准备了一个丑陋的模式，但效果很好：
(?:,|^)[ ]*1004[ ]*(?=,)|(?<=,)[ ]*1004[ ]*(?:,|$)|^[ ]*1004
浏览 0提问于2018-05-14得票数 1
回答已采纳
1回答
我使用下面的代码从指定的单元格中查找相应的日期，该单元格将行号作为整数。我遇到的问题是，我想要在一个范围中使用这个值，其中两次使用行号来确定范围的起始单元格和结束单元格。我得到了‘运行时错误’1004‘-’方法‘范围的对象’_工作表‘失败。
如何使用这个命名的整数两次来获得我所需要的？我在我的最后一行代码上得到了错误。
Set MacroPage = Workbooks("Monthly Inventory Report 2.xlsm").Worksheets("Macro Page")
Set BHLSTracker = Workbooks("Mont
浏览 3提问于2022-11-11得票数 0
1回答
我的宏在我的(citrix)工作岗位上做得很好，但在其他工作岗位上，我得到了一个1004错误，我不明白为什么。
它涉及一系列18个宏，从一个(源)工作表复制/粘贴形状到另一个(目标)工作表，在复制/粘贴下一个宏之前从目标工作表中删除前一个形状。
目标是引导用户通过18个信息屏幕(=带有文本的矩形形状).通过单击链接到宏的一个按钮(在信息屏幕中)，他在信息屏幕上移动
错误总是发生在应将形状粘贴到目标工作表的行上。
奇怪的是，1004错误并不总是发生在同一个宏中，有时我设法通过几个屏幕，有时它会在第一个宏中阻塞。
所有的帮助或建议将非常感谢！
宏观文本：
Application.ScreenUp
浏览 3提问于2017-08-30得票数 2
Excel 2010是否有将字符串变量的文字内容放入excel单元格的方法？
我可以用这个硬代码实现我想要做的事情，但是这段代码在嵌套子程序中很深。我希望对此进行软编码，以便将Formula_wanted的内容插入到单元格中。下面是将公式的值放在单元格中的代码。
If modifier1 = "ILMROS " Then
Range("M4").Select
ActiveCell.FormulaR1C1 = "Sales Total"
Range("M5").Sel
浏览 1提问于2020-02-12得票数 1
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
如何从Access VBA更新Excel工作簿中的.Application属性？
我正在使用Access VBA将数据导出到Excel，打开文件，并对文件进行格式化(添加公式等)。
代码很慢。我想禁用屏幕更新并将Excel计算更改为手动。
.ScreenUpdating = false不会产生运行时错误，但是屏幕会更新，就像代码被忽略一样。
.Application.Calculation产生运行时错误1004。
Dim Xl As Excel.Application
Dim XlBook As Excel.Workbook
Set Xl = CreateObject("Excel.
浏览 30提问于2019-11-08得票数 0
在Excel2002中，我有多个数据透视表，每个数据透视表都位于不同的工作表中。
当我尝试用VBA用下面的代码生成这些图表时：
Set cht = Charts.Add(After:=Worksheets("Setup"))
With cht
' we use named ranges here
.SetSourceData Source:=range(tblName)
.Name = chtName
……
其中tblName是刚刚创建了几行的命名范围，如果只有一个表和图表生成，代码运行正常，但给我一个运行时错误1004：“PivotChart报
浏览 4提问于2009-06-01得票数 0
回答已采纳
下面的代码不工作
运行时错误1004
VlookSrc (在VBA中作为字符串)是我们在Range("KV5:KW105673")中查找的值。它是依赖于c和d的不同单元格的组合，以及中间的字符串/DIR/。在本地窗口中，可以看到Excel识别正确的字符串。我们使用IfError函数，因为不会总是找到值。运行错误1004附带工作表函数。
If Cells(3, d) = Cells(c, 33) Then
VlookSrc = Cells(c, 48).Value & "/DIR/" & Cells(4, d).Va
浏览 1提问于2017-11-08得票数 0
回答已采纳
我想将单元格"A1“中的所有行删除为"ActiveCell.Address”
尝试了以下代码：
Range(" A1:ActiveCell.Address").Delete Shift:=xlUp
但是我得到了一个错误(运行时错误1004)。
难道不能在一个范围内引用ActiveCell的地址吗？
若然，是否有其他选择？
我的代码不正确吗？
提前谢谢。
浏览 2提问于2015-10-20得票数 0
回答已采纳
1回答
下面的代码运行良好，但是如果我注释掉Worksheets(Options).Activate行，我会得到运行时错误1004。有人知道为什么会这样吗？
Worksheets(Options).Activate
Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Font.Bold = True
Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow,
浏览 2提问于2013-07-24得票数 1
我有一些代码可以从一个主工作簿复制数据并将其粘贴到新的工作表中。我想让代码将这个新的excel文件保存在一个特定的目录中，该目录是在页面中的一个单元格中指定的。我遇到了“运行时错误'1004'”，并且不确定解决方法。我在下面有一些代码，显示了我目前所拥有的。单元格A11中的数据为C:\Users\MY.NAME\Desktop\Data.xls Dim Source2, StrFile2 As String
Source = Workbooks("Main Workbook").Sheets("Directory Location"
浏览 11提问于2019-07-04得票数 0
我正在尝试使用代码来选择数据透视表中某个子标题下的所有行。我收到运行时错误1004： 无法获取数据透视表类的PivotFields属性 从下面的代码中： Sub ttest()
Dim pt As PivotTable
Set pt = Sheets("Report").PivotTables("PivotTable1")
pt.PivotFields("Row Labels").PivotItems("CL").DataRange.Select
End Sub 为什么？
浏览 408提问于2013-07-02得票数 12
我想打开一本工作簿，然后从打开的工作表复制到我的工作簿上，如下所示：
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
这个脚本一直给我机器人拷贝的错误代码3，但正在按预期工作。我创建了一个日志文件来捕获它，它在命令行和脚本中运行得很好，但是我在TFS 2015中的构建仍然有一个错误。有什么想法吗？
TFS构建错误：
异常消息: TF270015：'RolltoDEV.bat‘返回了一个意外的退出代码。预期的'0'；实际的'3‘
这是我的剧本：
@echo off
set root="D:\Drop\PythonAutomation\1-DEV\PythonAutomation - CD to DEV"
CD /D %root%
FOR /F "
浏览 3提问于2017-10-02得票数 0
回答已采纳
运行时错误'1004'：对象'_global‘的“单元”方法失败
numShips=7
ActiveChart.SetSourceData Source:=Sheets("Ship Tracker").Range(Cells(2,78),Cells(17, NumShips+80)),_
PlotBy:=xlColumns
我为什么会犯这个错误。谢谢。
浏览 3提问于2014-01-28得票数 0
回答已采纳
用户有一个Excel电子表格。为了保存它，他们按下一个按钮，运行下面的VBA代码。
代码试图将Excel电子表格保存到网络位置，用今天的日期修改文件名。
代码将间歇性地失败。
“运行时错误'1004'：对象的”_Workbook“失败的方法'SaveAs‘”。
剧本是：
Public Sub Copy_Save_R2()
Dim wbNew As Workbook
Dim fDate As Date
fDate = Worksheets("Update").Range("D3").Value
S
浏览 6提问于2015-08-21得票数 0
我正在尝试Android官方网站上的第一个教程。这是为了在单击“发送”时显示一条消息，但当我单击“发送”时，将得到一个错误。
我曾尝试过这样的问题，但我找不到答案。
我对Java和Android缺乏经验。
错误日志：
12-18 18:56:33.421: W/Trace(1004): Unexpected value from nativeGetEnabledTags: 0
12-18 18:56:33.421: W/Trace(1004): Unexpected value from nativeGetEnabledTags: 0
12-18 18:56:33.450: W/Trace(1
浏览 0提问于2012-12-18得票数 3
我当前的问题是使用AverageIf函数计算特定事件的平均时间(口味更改、大小更改和标签更改)。我编写了三个单独的代码部分来计算每个事件的平均时间。这三个部分是相同的(相同的标准范围和平均范围)唯一的区别是标准。
但是，当我运行这个宏时，我会得到以下错误：
运行时错误“1004”无法获得AvergeIf类的WorkksheetFunction属性
此错误仅发生在代码的标签更改部分。
我的一些疑难解答：
验证单元格中的字符串长度与代码中的字符串相同。
验证时间是否为数字格式
检查范围
下面是我的代码片段：
'Set Criteria Range for Ave
浏览 2提问于2017-03-17得票数 1
嗨，我需要多次复制一个启用宏的工作簿，并根据1列A中工作表上的名称列表重命名每个重复的工作簿。这是我一直在尝试的代码，但它一直在运行
运行时错误1004保存为工作簿对象失败。
任何帮助都是非常感谢的。
Sub Test2()
Dim wb As Workbook
Dim rNames As Range, c As Range, r As Range
'Current file's list of names and ids on sheet1.
Set rNames = Worksheets("Sheet1").Rang
浏览 4提问于2021-06-11得票数 0
2回答
是否有可能导致范围的选择和复制只在某些文档中包含隐藏列？
这是大多数情况下的代码：
Set rngAcData = .Range(.Cells(1, 1), .Cells(bottomMostRow, rightMostColumn))
rngAcData.Select
Selection.Copy
Sheets(".....").Select
Range("H2").Select
ActiveSheet.Paste
请注意，这对大约98%的类似格式的文档有效。但在同样的文件里。它将反复包含隐藏的列。我被试着手动做，得到了同样的结果。我尝试将.SpecialCe
浏览 7提问于2013-03-10得票数 1
回答已采纳
在以下情况下，我希望通过添加MsgBox来改进整个代码：
运行时错误'1004'：Range类的PasteSpecial方法失败。
如果剪贴板为空，并且我运行宏，则会导致此错误。有什么建议吗？
Sub Test()
On Err.Number = 1004 GoTo ErrMsg
Dim Val As Variant
Sheets("Sheet 3").Select
Val = Range("A2").Value
Sheets("Sheet 1").Select
Call TextFromClipboard
Range("
浏览 21提问于2020-03-04得票数 2
回答已采纳
1回答
我在另一个答案中找到了这个
Sub UpdateQueryConnectionString(ConnectionString As String)
Dim cn As WorkbookConnection
Dim oledbCn As OLEDBConnection
Set cn = ThisWorkbook.Connections("database")
Set oledbCn = cn.OLEDBConnection
oledbCn.Connection = ConnectionString
End Sub
我似乎收到一个关于Set oledbCn =
浏览 0提问于2015-06-06得票数 0
下面是我正在使用的代码，但它在range.value行抛出了一个1004错误。但是，它成功地复制了没有公式(仅值)的工作表。只是运行这段代码会抛出错误1004。
Sub test1()
Dim wbNew As Workbook
Dim wks As Worksheet
Set wbNew = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets.Copy After:=wbNew.Worksheets(1)
Application.DisplayAlerts = False
wb
浏览 5提问于2017-03-15得票数 3
...from报告过滤器到联想字段，反之亦然，我得到一个错误.这是它在录制时创建的代码：
Sub ByPlant()
'
' ByPlant Macro
'
'
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable3").PivotF
浏览 13提问于2012-12-10得票数 1
Excel 2016
使用WorkbookConnection.Refresh
捕获误差
但是它捕获的错误并不像我直接从PowerQuery中刷新它并在GUI中看到错误那样具有相同的细节级别。我得到的只是"1004应用程序定义的或对象定义的错误“。无法查看对象模型中获取特定查询或OLEDB错误的位置。有没有人能捕捉到任何更具体的错误信息。
此代码引发错误：-
Assume higher level loop iterating connections
Dim cno As WorkbookConnection
Set cno = ThisWorkbook.Connections(cn)
浏览 2提问于2018-02-09得票数 0
在此代码的** - **行显示错误1004。PLease帮助 Sub test()
Workbooks("OI ANALYSIS.xlsm").Activate
Sheet3.Select
Range("A16:C16").Copy
Sheet4.Select
**Range("B2").End(xlDown).Offset(1, 0).Select**
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.On
浏览 17提问于2020-12-07得票数 0
我正在尝试使用Excel宏重新格式化使用OLE-Automation导出的电子表格
下面的代码运行正常：
Application.FindFormat.NumberFormat = "#,##0.0000000"
Application.ReplaceFormat.NumberFormat = "#,##0.00"
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, Sear
浏览 10提问于2009-01-19得票数 3
回答已采纳
最近，我将MS office版本更新为Office 365，我发现我的excel文件中有一个不工作。当我将数据粘贴到工作表中时，将级联公式应用于某些列是一种简单的代码。
我需要用代码做什么？
Private Sub Worksheet_Change(ByVal Target As Range)
Range("B23:B4023").FormulaR1C1 = "=CONCATENATE(IF(RC[2]=""TTL"","""",RC[2]),IF(RC[3]="""",&
浏览 0提问于2019-01-04得票数 0
回答已采纳
我使用vba代码保护了一个工作簿。我还想让用户在特定的单元格(n4, p7:p10)中输入一些值。
我试过使用下面的代码，但它不起作用。弹出错误消息提到了"Error 1004"。
Range ("n4,p7:p10").select
Selection.locked=false
浏览 7提问于2015-02-13得票数 1
回答已采纳
1回答
我已经阅读了这里关于同一主题的大多数问题，但没有一个能解决我的问题。
所以基本上我们尝试在.Net代码中捆绑和压缩AngularJs文件。这是我们用来将文件捆绑到BundleConfig.cs中的代码
bundles.Add(new ScriptBundle("~/bundles/js/spa").IncludeDirectory(
"~/App", "*.js", true
));
...
...
BundleTable.EnableOptimizations = true;
在浏览器中，这是我们看到的错误，其中
浏览 5提问于2021-04-27得票数 2
为了这个问题，我稍微缩短了代码，但我得到的错误是相同的。
当尝试选择每个工作表的A列中包含数据的单元格并对其执行操作时，在第一个工作表之后出现错误：
Sub quickSub()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Range("A6", Range("A6").End(xlDown)).Select
''Random bits of code here where I manipulate selection on each worksheet
Next
End S
浏览 0提问于2012-11-27得票数 1
回答已采纳
我在选择范围时遇到错误1004“应用程序定义或对象定义的错误”的问题。
我仍然可以选择行(即Rows("21:21").select)，并在同一工作簿的其他工作表中选择范围。我不认为错误出在代码中。也许是一些我不知道的环境？
我以前使用过很多次完全相同的代码，但由于某种原因，我不能让它在这个sub中运行(我已经在错误发生的地方做了评论)……
Sub CopySheet1_to_PasteSheet2()
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last
浏览 4提问于2013-08-01得票数 40
Row_No = 5
MsgBox Range.("A & Row_No").value
我有上面的代码，但它给我错误1004..please帮助我这一点。
浏览 2提问于2012-05-29得票数 5
1回答
我正在尝试更新一些hibernate代码，这些代码是由其他人在过去编写的，并且遇到了反序列化问题。按照原始代码的编写方式，它没有显式声明serialVersionUID并只是实现了可序列化接口-
public class SamplePOJO implements Serializable {
现在，我试图向表中添加一个新列，并将其映射到这个对象。我：
修改了表以创建新列更新了对象以包含一个新的字符串对象和getter/setter，以及更新的.hbm文件来将db表列与对象映射。
但是，在编译后运行它时，我会得到以下错误-
"Error while deserializing from
浏览 2提问于2012-03-05得票数 3
回答已采纳
我有一个完全由数据组成的工作表。工作表是在代码中声明和设置的，我也要键入工作表中的第一列。
我试了一下，得到了一个错误，但我想知道这是否可能。我能否将整个工作表设置为可以传递到VLOOOKUP的范围？
.Cells(row，col) = WorksheetFunction.VLookup("key"，sheetname，SomeCol.Column，0)
错误为1004:无法获得WorkSheetFunction类的VLOOKUP属性。
浏览 2提问于2015-02-19得票数 0
回答已采纳
在excel VBA中，我似乎找不到这么简单的工作
我有关于手机A1的数据
Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(0, 0).Value)
End Sub
我想要输出这些数据，基本上使用一个msgBox
运行时错误：“1004”应用程序-defined或对象定义错误
浏览 0提问于2017-08-02得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
