Tag: 运行时错误

Excel VBAlogin到SAP和提取电子表格 – 在Excel中卡住: 我有一个Excel VBA代码的问题，当我执行代码时，它一直处于“运行”状态，请参阅Stuck Excel图; 代码的目的是： login到SAP 执行交易（在这种情况下是IW73）将电子表格导出为.txt closuresSAP会话后Excel的问题卡在“正在运行”。我们已经尝试在不同的计算机上运行它（陷入“运行”）错误。码： Sub Logontrial() Dim SapGuiApp As Object Dim oConnection As Object Dim SAPCon As Object, SAPSesi As Object Dim SapGuiAuto As Object, SAPApp As Object If SapGuiApp Is Nothing Then Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1") End If If oConnection Is Nothing Then Set oConnection = SapGuiApp.OpenConnection("5.1.1 AP1 […]

sorting枢轴表: 我碰到一个问题，macros指出：运行时错误“1004”应用程序定义或对象定义的错误。但是我认为我确实定义了它？先前在这个代码中定义了WS1，并且没有与该部分有关的问题。这是本节代码的最后一行有问题。预先感谢您的帮助！ 'Update Pivot Table Dim GroupPivot As PivotTable Set GroupPivot = WS1.PivotTables("GroupPivot") GroupPivot.PivotCache.Refresh 'Sort PivotTable WS1.PivotTables("GroupPivot").PivotFields("Sum of Discrepancy").AutoSort Order:=xlDescending, Type:=xlSortValues

代码之外的问题导致代码内部的问题: Excel是给我下面的代码的问题 'Updates the "5001 Prog" sheet with the new data prog.Range("C12").Value = (y & "'' Ream") prog.Range("D12").Value = count * 31.5 prog.Range("E12").Value = daily * 31.5 在“=”符号之后或者在“=”符号之前，我改变了什么并不重要 “运行时错误”1004“应用程序定义的或对象定义的错误” 什么可能会导致VBA代码之外的这个错误？

运行时错误1004：MS Excel刷新一些数据。请稍后使用查询再次尝试: 我有一个使用单元格C1中的参数工作表中的dynamic查询。因此，A列中有代码，B列是这些代码的描述，根据C1单元格中的值，查询将刷新以显示与C1中的值相关的代码。当C1中的值发生变化时，我得到一个“运行时错误1004：MS Excel正在刷新一些数据，请稍后再试”，每一次。当我select“结束”它会消失，刷新查询成功，几秒钟后，有谁知道背后的原因？我可以摆脱它吗？有一个searchfunction。当用户点击“search”search他们正在寻找的代码时，searchbutton被分配一个macros，基本上只是导航到显示代码的工作表。但是，在这个macros中，我添加了这么一点代码： Sheets("department_lookup").Cells(1, 3).Value = Sheets("lookup").Cells(2, 2).Value With Sheets("department_lookup") .Range(.Cells(1, 1), .Cells(LR, LC)).AutoFilter field:=3, Criteria1:=.Cells(1, 3).Value, VisibleDropDown:=True End With

运行时错误“429”：ActiveX组件无法创build对象: 我希望你能帮上忙。我明白这个问题已经被问了很多，我希望我不会被拒绝。但我已经尝试了几种使用在线资源解决这个问题的方法，但是我现在没有解决办法，需要帮助。正如我所面对的标题所述运行时错误'429'：ActiveX组件不能创build对象我可以告诉你的是：我已经安装了64位版本，并且对于我和我在都柏林的团队来说，Macro有问题，但使用64位版本的其他欧洲办事处也会得到429错误。请参阅图1系统信息。 64位必须保持安装32Bit不是一个选项我已经尝试了所有可用的选项在这里http://www.fixyourerrors.com/how-can-i-get-rid-of-runtime-error-429/ 但没有成功，从上面的链接说明。我已经检查过所有相应的Active X控件在Excel的VBA开发人员区域/库的工具，参考，区域中打勾请参阅图2 但是再次没有影响:-( 图1 图2 正在发生错误的代码在下面 ' ***************************************************************************** ' Management of File to write in UT8 format ' ***************************************************************************** ' This function open the file indicated to be able to write inside Private Sub OUTFILE_OPEN(filename As String) Set WriteObject = CreateObject("ADODB.Stream") WriteObject.Type = 2 'Specify […]

运行时错误1004：应用程序定义或对象定义的错误: 我一直有一个重大的问题…也许不是很重要，但是我从昨天的午餐时间开始就试图找出这个问题。我有以下代码： Application.CutCopyMode = False ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Data!R7C1:R5000C40").CreatePivotTable TableDestination:= _ "'[Master-File.xls]Analyse'!R20C14", TableName:="certain_view", DefaultVersion _ -> :=xlPivotTableVersion10 运行时错误与箭头一致，但上面引用的整个位高亮显示为黄色。应用程序定义或对象定义的错误我正在使用Excel 2003，VBA。在我的代码中，我有五行脚本，只有这一行每次都失败。我正在尝试用这些行创build第五个数据透视表。我认为这可能与内存中的数据量有关…但Application.Cutopymode = False不能修复任何问题。

尝试使用python在xlwt中设置单元格颜色时丢失属性错误: 我正在尝试使用python的xlwt包将我的Excel电子表格的颜色更改为颜色代码数据。这是我现在的代码： from xlrd import open_workbook from tempfile import Temporary File from xlwt import sys import csv …. ….#Some other code style = xlwt.XFStyle() #this is the line throwing the error pattern = xlwt.Pattern() pattern.pattern = xlwt.Pattern.SOLID_PATTERN pattern.pattern_fore_colour = xlwt.Style.colour_map['red'] pattern.pattern_fore_colour = xlwt.Style.colour_map['red'] newSheet.write(row, col, values[row – 1][col], pattern) …. ….#Some other code 其他代码段在那里，因为它是一个比所示的更长的脚本，但这些代码段与这个问题没有关系运行时会得到以下堆栈跟踪： […]

从Outlookmacros运行Excelmacros获取错误1004: 我在Outlook中运行VBA脚本的规则。这个VBA是打开一个本地Excel文件，然后在Excel文件中运行这个macros。运行时，打开Excel文件，我得到错误：运行时错误1004：无法运行macros'问我的问题workflow.xlsm！AskMeFlow'。 macros可能不在此工作簿中可用或所有macros可能被禁用。从Excel运行Excelmacros时，所有运行正常。我在Outlook中的代码： Sub AskMeAlerts() Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Set appExcel = CreateObject("Excel.Application") appExcel.Workbooks.Open ("C:\Ask me question workflow.xlsm") appExcel.Visible = True appExcel.Run "Ask me question workflow.xlsm!AskMeFlow" appExcel.ActiveWorkbook.Close appExcel.Quit Set appExcel = Nothing Set wkb = Nothing End Sub

VBA运行时错误91对象variables没有设置 – 我做错了什么？: 我正试图从互联网上获取数据到Excel电子表格。也就是说，我希望在本赛季的所有17周（包括最终排名）中获得过去12年来AP的25支NCAAF球队的名字。我的代码是基于这个教程： https ： //www.youtube.com/watch？v = 7sZRcaaAVbg 我得到的错误在线： SchoolNames（iYear，iWeek，iRank）=修剪（Doc.getElementsByTagName（“school”）（iRank – 1）.innerText）这是我的代码： Option Explicit Sub Data_Collection() Application.ScreenUpdating = False Dim iYear As Integer Dim iWeek As Integer Dim IE As New InternetExplorer Dim sYear As String Dim sWeek As String Dim SchoolNames(12, 17, 25) As String Dim Doc As HTMLDocument Dim iRank As Integer […]

运行时错误“13”：types不匹配: 我正在尝试创build一个Excel工作表，当我select一个下拉列表选项时，出现一个input框并要求用户input一个数字。这是为我玩的游戏创build一个“技能规划师”。所以我正在使用的代码 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Select Case Range("A4") Case "Endurance" Call Module1.GetEndurance Case "Active Regeneration" Call Module2.GetActiveRegen End Select End Sub 在ThisWorkbook和Module1里面 Sub GetEndurance() Dim QtyEntry As Integer Dim MSG As String Const MinSkill As Integer = 0 Const MaxSkill As Integer = 100 MSG = "Please […]