Tag: 刷新

每15分钟刷新一次整个excel工作簿（所有数据连接和计算）的macros？

我有以下macros来刷新我的工作簿。 此时，这与点击全部刷新button相同。 是否有一个时间元素，我可以添加到此代码，使其每隔15分钟刷新工作簿中的所有工作表上的所有 数据连接和所有计算 。 该工作簿具有从SharePoint列表项中抽取数据的单元格，并包含典型的公式计算。 Sub Workbook_RefreshAll() ActiveWorkbook.RefreshAll End Sub

自动刷新自动filter – VBA与否

无论何时将新数据input列C（这是A，B和D中的值的根variables），我一直在试图find一个代码来刷新自动filter（filter的标准在列A中） 任何帮助将非常感激。 这是我在其他线程中find的代码，但是我无法使其工作。 Private Sub Worksheet_Calculate() If Me.FilterMode = True Then With Application .EnableEvents = False .ScreenUpdating = False End With With ActiveWorkbook .CustomViews.Add ViewName:="Mine", RowColSettings:=True Me.AutoFilterMode = False .CustomViews("Mine").Show .CustomViews("Mine").Delete End With With Application .EnableEvents = True .ScreenUpdating = True End With End If End Sub

如何不刷新backgroundQuery vba

有谁知道如何停止刷新查询表不断刷新，只刷新一次。 他不断刷新，正在让我的Excel电子表格运行缓慢。 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & FilePath, _ Destination:=temp.Range("A1")) .Name = "Deloitte_2013_08" ' .CommandType = 0 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = […]

excel清除依赖dropdownlist vba

毕竟，我已经有dropdownlists，依赖等，它运作良好，另外我有一个vba代码，当用户更改从下拉列表中的一个值，依赖清除其内容。 但 那只适用于那个细胞 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C2")) Is Nothing Then Range("D2").ClearContents End If End Sub 因为我只是告诉vba只有C2和D2，但我想要的是，有人会帮助弄清楚如何使它成为整个列，而不仅仅是像（列-1）之类的特定单元格。 。因为如果我复制粘贴这些下拉列表只能在指定的第一个原因… … 任何人？ 有任何想法吗？ 请。 这里有一些照片 在上面的图片中，下拉列表只在特定的单元格中工作，我尝试了Hol告诉我的函数Cells（行索引，columnIndex），但是我需要一个或者类似的东西，不是吗？ 这是我在vba做的第一件事，所以我没有线索，我正在寻找的例子，然后尝试，这需要太长时间hahaha，我已经试过，而不是“C2”，列（3）和在D2列（4），但我有一个错误在条件If Not Intersect(Target, Range(Column(3))) Is Nothing Then

暂停VBA循环，直到重新计算表单

我search谷歌，直到第10页，但找不到解决scheme。 我在VBA中有一个循环，但是要在继续之前等待表格重新计算。 大多数人build议使用DoEvents。 但是，这不适合我。 这是我的代码到目前为止，这不等到表格计算： Sub Replaceifrebalance() Dim x As Integer NumRows = Range("CF16", Range("CF16").End(xlDown)).Rows.Count Range("CF16").Select For x = 1 To NumRows If Range("CF" & x).Value > 0 Then Range("AW15:BF15").Select Application.CutCopyMode = False Selection.Copy Range("AW1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AW" & 1 & ":BF" & 1).Copy Worksheets("Timeseries").Range("BI" & x & ":BR" & […]

使用SSIS脚本任务刷新Excel

我有一个从数据库表中获取外部数据的Excel文件。 我需要自动刷新文件并通过电子邮件发送。 我打算使用SSIS脚本任务来运行一些VB脚本来打开文件，刷新数据，保存并closures（显然不需要启动应用程序）。 那么我将使用电子邮件任务通过电子邮件发送文件。 我所需要的只是刷新文件，并在VB或C＃中总是noob的脚本，我不得不问，如果有人有一个脚本，这样做躺在周围，我可以定制我的文件，并在我的脚本任务中使用。 我会感激任何提示！ 非常感谢，弗拉德

在Excel中手动input数据Ms Query在刷新后未alignment

我在Excel中做了一个MS SQL查询。 我在excel表格中添加了额外的柱面，我要input手动数据。当我刷新数据时，这些手动input的列与所引用的导入数据没有alignment。 有没有发生这种情况。 我试图通过vlookup将导入的数据表链接到一个手册数据表，但这不起作用，因为没有唯一的字段链接在一起。 请帮忙！ 谢谢 Excel版本是2010. MS SQL版本是2005.没有唯一的数据。 因为excel首先是这样的。 当我们在数据库中input新的顺序时，Excel看起来就像这样

我如何使Excel的RefreshAll等待closures，直到完成？

我正在尝试使用以下Python脚本来刷新Excel文件： xl = Dispatch('Excel.Application') workbook = xl.Workbooks.open('\\path\to\workbook.xlsx') xl.Visible = True workbook.RefreshAll() xl.Quit() 但是，后台查询（连接到SQL数据库）需要一段时间才能刷新。 在RefreshAll完成之前，如何防止此电子表格closures？

Excel VBA：循环期间不刷新屏幕

我试图让一个图像消失，并重新出现，而一个循环正在发生。 代码按照预期的方式工作，但是当我运行它时，屏幕不会更新，直到循环结束。 我已经尝试添加像在这里find的DoEvents和ActiveWindow.SmallScroll的东西，但似乎没有任何工作。 我有一种感觉，这个问题可能与我的电脑/设置/版本的Excel有关，而且这个循环可能在一些人的机器上工作。 我已经在这里上传了一个示例文件，如果你想尝试。 我的代码是： Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub ToggleImage() For i = 1 To 20 Application.ScreenUpdating = True ActiveSheet.Shapes("Picture 1").Visible = False ActiveSheet.Shapes("Picture 2").Visible = True ActiveSheet.Shapes("Picture 1").Visible = True ActiveSheet.Shapes("Picture 2").Visible = False Sleep 50 Next End Sub 附有示例工作簿。

MS Excel – 如何每5秒自动刷新一次单元格？

我在Excel工作表中有一个单元格，我需要这个单元格每隔5秒刷新一次。 MS Excel本身可以设置刷新，但它只是每1分钟，这是不够的太长.. 我需要在VBA或macros集中的一些代码每5秒运行一次，如果单击每5秒刷新一次，将会执行下面的操作，如下所示： 不知何故，我没有find任何的例子，我绝对不知道如何做，因为我不知道如何在VBA工作..