Tag: vba

Excel：ExecuteExcel4Macro＆更新值对话框: 再一次，我需要你们的帮助！我目前正在编写一个小的vba工具，以便根据里面的一些数据快速sorting文件。作为一个例子，我有一个“待sorting”文件夹中的一些文件，可以说“File1.xls，File2.xls”等… 要读取“FileX.xls”中的数据，我使用ExecuteExcel4Macro（范围和文件名设置正确），然后我可以使用这些数据应用filter和移动文件在其他目录。我的代码对本地文件工作正常，但是当我尝试在我的服务器上运行它（该工具旨在对存储在服务器上的文件进行sorting时），当使用ExecuteExcel4Macro时会出现一个对话框“更新值”。从这里，我必须select：在运行macros之前手动打开每个文件（我有250个文件来sorting，所以…. meh）按下取消导致插件崩溃的对话框（types不匹配错误）这是困扰我的那部分代码 For Each fsoFile In fsoParentFol.Files 'I only want to sort .xls files If Right(fsoFile.Name, 4) = ".xls" Then 'On active le workbook actuel strRef = "'[" & fsoFile.Name & "]" & "Sheet1" & "'!" 'this is the data I want to retrieve … and this […]

错误在Excel列表中查找多个date范围: 获取对象variables或variables未设置错误。所有我想要做的是定位自己能够分析从newStartDate到newEndDate的数据，并将其与oldStartDate和oldEndDate之间的数据进行比较。在“主列表”finddate的地址时感到困惑不确定为什么我在这个问题上挣扎这是一个简单的任务，但我似乎无法解决这个错误。有什么想法吗？我已经阅读了类似这个其他职位，似乎无法弄清楚我在做什么不同。在此先感谢代码如下：注意：1/1/14是在newStartDate范围内设置的date。这个date并不存在，因为直到第二天才开展业务。我在一个post中发现，如果没有find确切的date，底部的“Set newStartDateFinder”行会find下一个最接近的date..我开始认为情况并非如此，因为当我尝试运行debugging器它似乎是空的。 Option Explicit Sub Gather_Calculate_Performance() 'Variable declaration Dim EBM As Workbook Dim masterList, controlOut As Worksheet Dim newStartDate As Range Dim newEndDate As Range Dim oldStartDate As Range Dim oldEndDate As Range Dim newStartDateFinder As Range Dim newEndDateFinder As Range Dim oldStartDateFinder As Range Dim oldEndDateFinder […]

每当你改变你正在编辑的行时，运行一个VBA代码: 我需要在excel VBA中运行代码，只要你改变你正在处理的行。我的代码更新其他工作簿，每当你编辑的东西，但由于所有的信息在行中应该更新1工作簿，我希望它打开并更新其他工作簿只有当你停止工作在一行（任何行）现在我有一个代码更新另一个工作簿，当我改变一个单元格，所以这就是我所拥有的。 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("A1:C10") Dim WB As Workbook Dim dirFile As String Dim strFile As String Dim Actual As Workbook Static lngRow As Long Dim linea Set Actual = ActiveWorkbook If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then MsgBox "Cell " […]

如何使用getElementsByTagName和<td>溢出：隐藏在VBA上？: 我正在使用VBA自动化来获取我工作中票据系统的一些信息。我正在试图将值存入生成的表中，但是只有工作表“Plan1”上的列“A”的信息是<td>其中包含溢出：隐藏的CSS属性。我不知道他们是否是相关的，但恰巧是唯一没有出现的数据。有人可以帮助我吗？ HTML代码： <div id="posicionamentoContent"> <table class="grid"> <thead>…</thead> <tbody> <tr id="937712" class="gridrow"> <td width="200px"> Leonardo Peixoto </td> <td width="200px"> 23/12/2015 09:45 </td> <td width="200px"> SIM </td> <td width="200px"> Telhado da loja com pontos de vazamento.</td> <td width="200px" align="center"></td> <td width="200px" align="center"></td> </tr> … … … 完整的代码： http ： //i.stack.imgur.com/4BsFo.png 我需要得到第一个第四个文本（Leonardo Peixoto，23/12/2015 09:45，SIM和Telhado da […]

使用GoTo，来自数组的字符组合的Excel VBA中的recursion函数: 我想在Excel VBA创build一个recursive函数，而不使用nested循环。我用GoTo做，因为我认为这是非常快速的For循环等。 PROBLEM:问题是，第一个标签即'a'不执行所有iterations ，所需的组合不会返回所以。从给定的数组'arr'应该有39 combinations但只有14个返回。我尝试改变一些代码行的总迭代'iNum'返回39，但不是39组合（从'a'开始的组合总是丢失）。请帮忙，谢谢。 Function rec_n() Dim a As Integer, b As Integer, c As Integer Dim aSize As Integer, iNum As Integer Dim myStr As String 'Dim arr As Variant Dim arr(5) As String 'arr = Array("a", "b", "c", "d") arr(0) = "a" arr(1) = "b" arr(2) = "c" […]

在VBA生成的工作簿中创buildUDF: 我在VBA中构build一个应用程序来parsing机器生成的文件。作为这个项目的一部分，我需要将数据转换为整数，因为固定宽度的列不包含负数。我用macroslogging器来parsing文本文件： Workbooks.OpenText Filename:= _ *FILE NAME HERE*, Origin:= _ 437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), _ Array(6, 2), Array(10, 2), Array(14, 2), Array(19, 2), Array(25, 2), Array(27, 2), Array(34 _ , 2), Array(39, 2), Array(43, 2), Array(44, 2), Array(52, 2)), TrailingMinusNumbers:= _ True 但是这会创build一个新的工作簿，因为它正在打开一个新文件。问题是我需要在将固定宽度值转换为整数的最后一列上运行UDF。例如，假设最后一列是0000000E，我知道E表示最后一位数字是5，数字是负数。我的UDF相应地转换这个： Public Function ConvertCodeToInteger(inputString As String) As Long […]

Excel VBA：在Excel中输出WinHTTPRequest的结果？: 如何在Excel中输出WinHTTPRequest的结果？例如，以下代码从网页查询苹果的股票报价，但不输出任何内容： Sub GetQuotes() Dim XMLHTTP As Object, html As Object, pontod As Object On Error Resume Next Set oHtml = New HTMLDocument With CreateObject("WINHTTP.WinHTTPRequest.5.1") .Open "GET", "http://www.reuters.com/finance/stocks/overview?symbol=AAPL.O", False .send oHtml.body.innerHTML = .responseText End With 'Price Set pontod = oHtml.getElementsByClassName("sectionQuote nasdaqChange")(0).getElementsByTagName("span")(1) MsgBox pontod.innerText End Sub 虽然这个名字完美运行： Sub GetQuotes2() Dim XMLHTTP As Object, html As Object, […]

从列中select具有行值的单元格: 这个简单的问题引起了我最近的一些问题。我有一系列的单元格是保存不同types信息的列。使用先前确定的行值（整数不是范围），我正在寻找与单个单元格内的值进行检查。例如，我查看列A中的名称列表。如果find该名称，它将保留在“行”值上。我们假设该行是10.该行值将用于检查该行的列值（即C10，J10和K10）。我如何select一个单元格，然后比较这些单元格中的值？

在excel vba 2016中运行循环以更改图表中的系列: 我有以下的macros，我希望循环下面的程序500个图表从1开始。 Sub Arrow() ' ' Arrow Macro ' ' Keyboard Shortcut: Ctrl+q ' ActiveSheet.ChartObjects("Chart 459").Activate ActiveChart.FullSeriesCollection(1).Select With Selection.Format.Line .Visible = msoTrue .ForeColor.RGB = RGB(192, 0, 0) .Transparency = 0 End With With Selection.Format.Line .Visible = msoTrue .Weight = 2.5 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadTriangle With Selection.Format.Line .EndArrowheadLength = msoArrowheadLengthMedium .EndArrowheadWidth = msoArrowheadWide End With ActiveChart.FullSeriesCollection(2).Select […]

在Excel上search，修改和比较表格: 所以我有一个优秀的问题，不太知道如何处理它，这将是很好，如果我可以有一些反馈。基本上我有2个文件： N1）海量数据库，重要的列是ID，ProductName，Score。 N2）排名数据库。每个城市1个表格，每个表格有24个产品的排名，大约有40个城市。因此，对于数据库N2中的每个表格，我必须search每个产品并在最后手动设置分数，当我前往数据库N1并按城市筛选并按分数sorting时，24个第一个条目是24个相应的产品出现在该城市的数据库N2上。如果产品在不同的城市，产品可以得到相同的分数，没有问题。所以你可以确定每个排名位置的分数（1 = 9999，2 = 9998等）。我正面临一些棘手的东西： 1）有40个城市。我想尽可能自动化这个过程，所以我可以在将来添加新的城市。有任何想法吗？ 2）在数据库N2上出现的一些产品不在数据库N1中，所以我必须指出产品名称和它应该有的分数（如果产品在城市XYZ排名不在数据库N1上，我应该注意到它应该有9997分），所以我可以手动更新它在数据库上的未来。我有一个想法如何分开做这些事情，但我很难把所有东西放在一起，面对“棘手”的部分。任何帮助将不胜感激。