Tag: 方法

方法'范围'失败。 VBA: Sub tester() Dim total As Integer Dim z As Integer For z = 4 To 90 If Not IsNull(Range("c" & z)) Then total = total + Application.WorksheetFunction.Index(Range("h2:h69171"), Application.WorksheetFunction.Match(Cells("c" & z) & Cells("A98").Value, Range("l2:l69171"), 1)) End If Next z Range("b98").Value = total End Sub 这段代码给了我一个object'_Global失败的方法范围（在If …行上）。有人可以帮我找出原因吗？提前致谢

我怎么知道在节点上使用我的选项（方法或属性）是什么: 一个小的虚拟问题，对不起，我没有find任何关于它的参考。我怎么能知道什么是我得到的variables'el'的选项，我的意思是我可以在'el'上激活哪种方法，例如我知道我可以使用方法“getAttribute（”….“）”，但还有什么还有哪些方法或属性我可以使用？注意：在这种情况下，Ctrl +空格不起作用。我发现这个链接，但它与vba无关https://msdn.microsoft.com/en-us/library/ms757828(v=vs.85).aspx VBA： Dim oDoc As New MSXML2.DOMDocument30 Dim el As Object Dim XML As String XML =("C:\……..") oDoc.validateOnParse = True oDoc.Load XML dim Name as String Name= "yaron" 'select the User node with Name="Yaron" Set el = oDoc.SelectSingleNode("/GetUserInfo/User[@Name='" & Name & "']") 'e. ???????whats my options? If Not el Is Nothing […]

查找Excelfunction的Powershell名称: 我想自动化数据→导入文本文件→文本导入向导的Excel进程如何find这些菜单的PowerShell名称？这是我的代码。我希望它find一个文件夹（有分隔符）.txt文件，并将其导入到单独的Excel文件。需要2个或更多文件才能工作。垃圾文件必须在其他文件的文件夹中。 $excel = New-Object -ComObject Excel.Application $excel.Visible = $true $excel.DisplayAlerts = $false $path = "S:\DATA EXCHANGE\Testing" #where the original files are $path2="S:\DATA EXCHANGE\Resurgent\fromSFG\test" #where you want the new files to go Set-Location $path $a= Get-ChildItem $path -recurse -include *.txt #only finds the text files $numOfFiles= $a.count For ($n=$numOfFiles-1; $n -gt […]

编译错误：未find方法或数据成员vba: 我正在尝试自动清理工作表模板，以便为数据库插入创build一个平面文件。下面是我的代码是抛出错误。我试图解冻工作表的窗格，但不断收到编译错误：方法或数据成员找不到该行上的错误。 wsPerm是我正在处理的工作表。 'Unhide All Columns wsPerm.Unprotect Password:="DRP" wsPerm.Range("A1:FB1").EntireColumn.Hidden = False wsPerm.FreezePanes = False wsPerm.Activate ActiveWindow.FreezePanes = False wsPerm.Cells.UnMerge

我如何调用在主类java的另一个类中的方法: 我正在使用selenium，我对Java很新。我有三个类ATSmoke（）是主类。我有所有我的方法名称在另一个类别Profile（）和Schedule（）中的Excel工作表。现在我用POI库来获取单元格值（即方法名称）。在这里，我陷入了如何在另一个类Profile（）中调用这些方法（edit_contact_info）。如果他们在同一class，我可以使用相同的class级名称来引用。但不能为另一个class级做。另外还有另外一个名为ATTestDriver的类，其中我有所有的实用方法，如selectwebdriver，浏览器等。公共类ATSmoke { public static void main(String[] args){ Profile profileDriver = new Profile(Browsers.CHROME); XSSFWorkbook srcBook = null; try { srcBook = new XSSFWorkbook("./TestData/Testcase_data_v1.xlsx"); } catch (IOException e1) { // TODO Auto-generated catch block e1.printStackTrace(); } XSSFSheet sourceSheet = srcBook.getSheet("Testcases"); int rowCount = sourceSheet.getLastRowNum(); for (int i=1; i<=rowCount; i++){ […]

无法调用自定义类对象Excel VBA的方法: 我正在编写一些调度自动化的代码。我对VBA编程相对比较陌生，但是多年来一直在使用其他语言进行编程。对于我的项目，我创build了一个名为OpsFloor的类，它应该模拟操作层。我parsing用户信息到一个数组，并试图传递数组（我已经尝试传递整个数组和单个值）到一个OpsFloor对象的实例。我担心我对VBA中的类如何工作有一些基本的误解。以下是class级内的小class Public Sub SetProcessMatrixValue(x As Integer, y As Integer, value As Integer) ProcessMatrix(x, y) = value End Sub 以下是Excel中工作表对象子的调用： Option Explicit Private OperationMatrix(18, 8) As Integer Private dailyWF As New OpsFloor Public Sub StartingWorksheet() … dailyWF.SetProcessMatrixValue 0, 0, 30 End Sub 当我尝试运行子通过SetProcessMatrixValue方法将这些值分配给类实例时，我得到运行时错误'438'对象不支持此属性或方法。

MsgBox错误中调用范围方法: 这是如何工作的： Sub testsub() myRange = Range("A1:A5").Address MsgBox myRange End Sub 但是这会抛出RunTime'424'对象所需？ Sub testsub() myRange = Range("A1:A5") MsgBox myRange.Address End Sub

运行时错误'1004'：对象'Range'的方法'FormulaR1C1'失败: 我试图创build一个简单的macros，基本上是添加一个新的列，命名它，粘贴公式和填充。我得到的错误是在主题：运行时错误'1004'：对象'Range'的方法'FormulaR1C1'失败这是公式： =IF(OR($G2=DATA!$L$3;G2=DATA!$L$4;$G2=DATA!$L$5;$G2=DATA!$L$6;$G2=DATA!$L$7;$G2=DATA!$L$8;$G2=DATA!$L$9;$G2=DATA!$L$10);DATA!$L$2; IF(OR($G2=DATA!$M$3;G2=DATA!$M$4;$G2=DATA!$M$5;$G2=DATA!$M$6;$G2=DATA!$M$7;$G2=DATA!$M$8;$G2=DATA!$M$9;$G2=DATA!$M$10);DATA!$M$2; IF(OR($G2=DATA!$N$3;G2=DATA!$N$4;$G2=DATA!$N$5;$G2=DATA!$N$6;$G2=DATA!$N$7;$G2=DATA!$N$8;$G2=DATA!$N$9;$G2=DATA!$N$10);DATA!$N$2; IF(OR($G2=DATA!$O$3;G2=DATA!$O$4;$G2=DATA!$O$5;$G2=DATA!$O$6;$G2=DATA!$O$7;$G2=DATA!$O$8;$G2=DATA!$O$9;$G2=DATA!$O$10);DATA!$O$2; IF(OR($G2=DATA!$P$3;G2=DATA!$P$4;$G2=DATA!$P$5;$G2=DATA!$P$6;$G2=DATA!$P$7;$G2=DATA!$P$8;$G2=DATA!$P$9;$G2=DATA!$P$10);DATA!$P$2; "OTHER"))))) 而macros观： Sub Macro16() ' ' Macro16 Macro ' ' Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("I1").Select ActiveCell.FormulaR1C1 = "CSS Team" Range("I2").Select ActiveCell.FormulaR1C1 = _ "=IF(OR(RC7=DATA!R3C12,RC[-2]=DATA!R4C12,RC7=DATA!R5C12,RC7=DATA!R6C12,RC7=DATA!R7C12,RC7=DATA!R8C12,RC7=DATA!R9C12,RC7=DATA!R10C12),DATA!R2C12, IF(OR(RC7=DATA!R3C13,RC[-2]=DATA!R4C13,RC7=DATA!R5C13,RC7=DATA!R6C13,RC7=DATA!R7C13,RC7=DATA!R8C13,RC7=DATA!R9C13,RC7=DATA!R10C13),DATA!R2C13, IF(OR(RC7=DATA!R3C14,RC[-2]=DATA!R4C14,RC7=DATA!R5C14,RC7=DATA!R6C14,RC7=DATA!R7C" & _ "ATA!R8C14,RC7=DATA!R9C14,RC7=DATA!R10C14),DATA!R2C14, IF(OR(RC7=DATA!R3C15,RC[-2]=DATA!R4C15,RC7=DATA!R5C15,RC7=DATA!R6C15,RC7=DATA!R7C15,RC7=DATA!R8C15,RC7=DATA!R9C15,RC7=DATA!R10C15),DATA!R2C15, IF(OR(RC7=DATA!R3C16,RC[-2]=DATA!R4C16,RC7=DATA!R5C16,RC7=DATA!R6C16,RC7=DATA!R7C16,RC7=DATA!R8C16,RC7=DATA!R9C16,RC7=DATA!R10C16),DATA!R2C16, ""OTHER"")))))" Range("I2").Select Selection.AutoFill Destination:=Range("I2:I21445") Range("I2:I21445").Select End Sub

ByRef参数与Excel中的VBA不匹配: 我有一个Let属性定义为： Public Property Let Set_ChanArray_Enabled1(i As Integer, j As Integer, choice As Boolean) ChanArray(i, j).Enabled1 = choice End Property 在同一个对象模块中定义的一个子集中，我尝试执行以下操作： For j = 4 To 44 Me.Set_ChanArray_Enabled1(j, 1) = True Me.Set_ChanArray_Enabled1(j, 3) = True Next j 但VBE给了我一个ByRef参数不匹配指向j传入 Me.Set_ChanArray_Enabled1(j, 1) = True 我已经定义了j和传入方法的参数作为整数，所以我不知道什么是错的。

.unlist方法不起作用: 这可能是一个简单的问题，但我无法在网上find答案。我正在试图列出工作表上的所有表格。此macros将失败，并显示“编译错误：找不到方法或数据成员”的消息，因为它突出显示macros的.Unlist部分。我试过其他的变化，但.Unlist似乎并不想工作。我在Excel 2011 for Mac 2011（版本14.4） Sub UnlistAllTablesOnSheet() Sheets("Role 1").Select Dim oSh As Worksheet Dim oLo As ListObject Set oSh = ActiveSheet For Each oLo In oSh.ListObjects Application.Goto oLo.Range MsgBox "Table found: " & oLo.Name & ", " & oLo.Range.Address oSh.ListObjects(oLo.Name).Unlist MsgBox oLo.Name & "now unlisted" Next End Sub