Tag: 等

具有延迟的Excel图表的dynamic更新

我使用Excel VBA从仪器读取数据行。 我想在Excel Active Chart上dynamic地绘制数据，在读取数据之后立即绘制数据。 我需要每隔5秒等待并读取一次数据，同时通过VBA Application.Wait命令或Kernel32 Sleep命令“睡眠”。 在任何一种情况下，活动图表都不会被更新。 完整的情节只有在最后一次“睡眠”之后才会出现。 任何build议将不胜感激。 这是简化的代码 Sub New_Data(indx) Dim x As Integer While True x = Read_Instrument(1) y = Read_Instrument(2) Cells(indx, 1) = x Cells(indx, 2) = y ActiveSheet.ChartObjects.Item(1).Activate ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$A$1:$A$" & indx ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$B$1:$B$" & indx indx = indx + 1 Sleep 5000 'Use the KERNEL32 […]

excel等网页打开

我已经写了一些VBA脚本来加载网页，然后将整个HTML内容复制到一个string，然后从该string中select特定的数据。 本质上，我search一个铁路时刻表，然后复制5个旅程的细节（出发时间，交换，旅程时间和成本） 我有上面的脚本sorting做一个search，但我现在想循环它，并运行约300search。 我发现的问题是脚本不会等待网页打开，因此返回的string是空的，实际上什么都不返回。 我需要做的是加载一个地址，等待页面加载，然后继续脚本。 你有什么build议吗？ 我search了很多，只是没有能够sorting，我已经尝试了Application.Wait在一些地方，仍然没有进一步提前。 我使用的代码如下： Sub CreateIE() Dim tOLEobject As OLEobject Dim NRADDRESS As String NRADDRESS = Range("h11") On Error Resume Next Worksheets("Sheet1").Shapes.Range(Array("WebBrow")).Delete Set tOLEobject = Worksheets("Sheet1").OLEObjects.Add(ClassType:="Shell.Explorer.2",Link:=False, _ DisplayAsIcon:=False, Left:=0, Top:=15, Width:=912, Height:=345) For Each tOLEobject In Worksheets("Sheet1").OLEObjects If tOLEobject.Name = "WebBrowser1" Then With tOLEobject .Left = 570 .Top = 1 .Width […]

在复制到下一个工作表之前，等待公式计算到finsh。 Excel VBA

我有一个复制列从一个到另一个问题。 在工作表的来源中，某些单元格与公式相结合，只有在打开工作簿时才计算。 正因为如此，结果我最终从一个工作簿复制到另一个是初始值。 我已经尝试了一些解决scheme，但它不能正常工作。 我的代码： Application.Calculation = xlCalculationAutomatic Set wb = Application.Workbooks.Open(FilePath, ReadOnly:=True, UpdateLinks:=0) If Not Application.CalculationState = xlDone Then DoEvents End If wb.Sheets("Unified").Columns("A").Copy activeWB.Sheets("report").Range("A1") 有关更多信息，这是源工作表中单元格的公式： "=VLOOKUP(B649,'filesystem'!$A:$N,14,FALSE)" 我得到的结果是#REF！

在VBscript HTML应用程序中等待函数

我正在开发一个HTML页面，其中我使用VBScript作为脚本语言，即在HTML页头部分的VBScript。 我想在某些函数的执行中插入显式的等待。 在ExcelmacrosApplication.wait waitTime伟大工作，但在HTML页面我无法实现我想要的。 有人可以请build议任何代码片段，可以帮我插入一些等待说10秒？