Tag: 调用

如何调用位于其他文件夹中的VBA脚本中的VBA脚本: 我有一个名为“Summary_logic”的Excel工作表，它打开文件夹列表，每个文件夹都有一个带有VBA脚本的Excel工作表。我想调用每个文件夹中的VBA脚本（processR1），并将结果复制到Summary_logic表单中。 'My code is given below. Private Const test_pvt_1_name As String = "TestPVT_Result_template" Private Const pvt_1_range As String = "G7:V1000" Private Const pvt_1_range_testname As String = "C7:C1000" Sub CleanTable() clear_summary delete_auxiliary_sheets Sheets("Summary_logic").Select End Sub ' Deletes all the values in the specified range Private Sub clear_summary() Sheets("Summary_logic").Select 'PVT_R01, Sensitivity Range: Range(pvt_1_range).Select Selection.ClearContents Range(pvt_1_range_testname).Select Selection.ClearContents […]

用VBA“点击”一个JavaScriptbutton: 无尽的谷歌search和许多解决scheme似乎没有帮助。我不断收到不同种类的错误，只是找不到一个优雅的方法来点击这个button，除非我得到代码等待四秒钟，而我用鼠标手动点击它。它在其他button上工作，但我工作，如果这里的问题是嵌套的doPostBack和许多''（取代从“”）在它？下面的代码（我已经删除了不相关的部分） VBA代码： Sub IE_Clicks() Dim shellWins As ShellWindows Dim IE As InternetExplorer Set shellWins = New ShellWindows If shellWins.Count > 0 Then ' Get IE Set IE = shellWins.Item(0) IE.Visible = True Else ' Create IE Set IE = New InternetExplorer IE.Visible = True End If IE.Navigate ("[URL]") Do While (IE.Busy Or […]

循环调用VBA中的行: 我正在尝试在最上面的一行上执行一个调用，然后删除那一行，然后将这些单元格移动到下一行，然后再次在最上面的一行上运行。重复练习，直到没有剩下的行。是的，我知道这可能是一个缓慢的做法，但我的电话每行大约需要10秒，所以这是一个跟踪进度（即剩下多less行）的好方法。这是我到目前为止，但它不理解我的要求删除范围A2：C2和移动单元格如果在范围A3中有一个值。任何帮助将非常感激！ Sub loop_through_rows() Dim rngQuantityCells As Range Set rngQuantityCells = Range("A2", Range("A2").End(xlDown)) For i = 1 To rngQuantityCells Call RunSplit If Range("A3").Value > 0 then Range("A2:C2”).Delete Shift:=xlUp End If Next End Sub

是否有可能获得Excel工作表函数的调用堆栈？: 我试图debugging有外部加载项，意外崩溃而没有警告的工作簿（窗口只是消失和进程死亡）。有什么办法，我可以loggingfunction调用，擅长计算，以便我可以看到最后的Excel（或VBA）函数调用之前调用？

我如何调用在主类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++){ […]

如何调用模块来从Sub_Click执行脚本？: 我的表中有10个macrosbutton。我有一个用于客户报告脚本的模块。当button1被单击时，我创build了一个名为Button1_Click（）的新macros。在这个脚本里面，我只想设置一个variablesRow1： Button1_Click() Dim Row1 As Integer Row1 = 1 从这里我想调用包含完整报告脚本的CustomerReport模块，我想在CustomerReport脚本中重新使用Row1值，因为它标识Customer 1。我曾尝试Call CustomerReport但没有任何反应。我如何解决这个问题？

为什么我不能使用DoEvents的CallInfront？: 在VBA中，你可以在Call之前调用你的方法/函数，以便明确地告诉编译器，如果有的话你不想使用返回值。现在DoEvents函数也应该可以通过调用来Call ，但是我不能做到这一点。当我input： Call DoEvents 编译时只是说“语法错误”。为什么我不能使用DoEvents ？在Excel 2016中使用VBE中的VBA，IIRC在2013,2010等也没有工作。

运行其他模块的VBA模块: 我在Microsoft VBA编程。首先，我需要生成一个QueryTable的帮助下（我已经得到了代码），然后在macros的帮助下，我需要应用使用QueryTable中的数据的公式。我面临的问题是QueryTable只出现在其代码所在的Sub已完成工作。这意味着我不能包含生成公式的代码，因为没有要生成的公式的数据。现在的想法是写一个运行其他模块的模块： Sub moduleController() Run "Module1" Run "Module2" End Sub 这给出了错误：运行时错误1004 – 不能运行macros“macroname”。 macros可能不在此工作簿中可用或所有macros可能被禁用。什么可能是解决scheme？也许有我的QueryTable加载问题的另一种解决scheme？

VBA，cmdBarButton不执行整个Sub: 由于某种原因，当我的菜单button“P Wave”被点击时， Sub Main()并没有完全执行。但是，如果我用F5编辑器手动执行Sub Main() ，它应该像它应该那样工作。就像当我点击我的“P Wave”button时，只会Call updateCell执行。有人可以帮忙解释一下吗？这很混乱。下面是我在模块1 Private Sub Workbook_Open（）中的代码 Private Sub Main() 'Run all neccessary Subs to process spreadsheet Call parseCSV Call resizeColumns Call updateCell Call hideColumns End Sub Private Sub hideColumns() 'hide uneccessary columns ActiveSheet.Range("E:F,L:V,X:AW,AY:BD,BI:BK,BM:CB,CF1").EntireColumn.Hidden = True End Sub Private Sub resizeColumns() 'resize cells to fit data […]

excel vba在特定情况下调用多个子例程: 如果我有以下代码： Select Case Number Case 1: Call Subroutine1() Case 2: Call Subroutine2() Case 3: Call Subroutine3() Case 4: Call Subroutine4() Case 5: Call Subroutine5() Case 6: Call Subroutine6() End Select 我想在case 1中调用几个子例程：如何做呢？最好的，美国