Tag: vba

使用替代或replace更改date格式

我正在从一个Excel文件读取数据，并将数据写入另一个Excel文件。 我的问题是，源格式为dd.mm.yyyy ，date格式为dd-mm-yyyy 。 所以我search了，发现这个答案用一个stringreplace一个字符，这表明我可以使用substitute 。 所以我试过这个代码： For r = 1 To 10 myOutputSheet.Cells(6+r, 1).Value = myInputSheet.Cells(r, 1).Value 'Date myOutputSheet.Cells(6+r, 1).Value = substitute(myOutputSheet.Cells(6+r, 1), ".", "-") Next 它给出了错误： Microsoft VBScript runtime error: Type mismatch: 'substitute' 我如何纠正改变. 进入- ？ 更新 我也试过这个： For r = 1 To 10 myOutputSheet.Cells(6+r, 1).Value = myInputSheet.Cells(r, 1).Value 'Date replace(myOutputSheet.Cells(6+r, 1), 2, […]

如何在Outlook中添加默认签名

我在Access中编写VBA脚本，创build并自动填充几十封电子邮件。 到目前为止，这一直是顺利的编码，但我是新的Outlook。 创buildmailitem对象后， 如何将默认签名添加到电子邮件 ？ 这将是创build新电子邮件时自动添加的默认签名。 理想情况下，我想只使用ObjMail.GetDefaultSignature ，但我找不到像这样的东西。 目前，我正在使用下面的函数（在互联网上的其他地方 ），并引用了htm文件的确切path和文件名。 但是这将会被几个人使用，并且他们的默认htm签名文件可能会有不同的名字。 所以这个工作，但它不是理想的： Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function （用getboiler(SigString = "C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\Signatures\Mysig.txt")调用getboiler(SigString = "C:\Users\" & Environ("username") […]

如何暂停特定的时间？ （Excel中/ VBA）

我有一个Excel工作表具有以下macros。 我想循环它，但是如果我能find这个function的话，它就会跳起来。 这不可能吗？ Sub Macro1() ' ' Macro1 Macro ' Do Calculate 'Here I want to wait for one second Loop End Sub

如何获取Excel VBA中已更改单元格的旧值？

我正在检测Excel电子表格中某些单元格的值的变化，像这样… Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim old_value As String Dim new_value As String For Each cell In Target If Not (Intersect(cell, Range("cell_of_interest")) Is Nothing) Then new_value = cell.Value old_value = ' what here? Call DoFoo (old_value, new_value) End If Next cell End Sub 假设这不是一个很好的编码方式，我怎样才能在改变之前得到单元格的值？

VBA可以跨越Excel的实例吗？

在Excel的一个实例中运行的Excel VBAmacros是否可以访问另一个正在运行的Excel实例的工作簿？ 例如，我想创build一个在任何正在运行的Excel实例中打开的所有工作簿的列表。

使用vba从网站上刮取数据

我试图从网站刮取数据： http ： //uk.investing.com/rates-bonds/financial-futures通过VBA，像实时价格，即德国5 YR鲍勃，美国30Y T型债券，我已经尝试过Excelnetworking查询，但它只是刮了整个网站，但我只想刮掉率，有没有办法做到这一点？

展开每个列单元格的列单元格

我有3组不同的数据（不同的列） A栏动物（5种） B栏的水果（1000种） C栏中的国家（10种） 有了这3个数据集合，我想得到5×1000×10共计50k对应的元素在列。 EFG（与每个水果和每个国家相对应的每个动物）。 可以通过手动复制和粘贴值来完成，但这需要很长时间。 有什么办法通过VBA代码或自动化它吗？ 有没有像上面介绍的无限数据集的通用公式？ 请让我知道，如果有什么不清楚。 这里是一个较小的数据例子，结果应该如何变化：

VBAmacros定时器样式运行代码每个集合的秒数，即120秒

我需要每120秒运行一段代码。 我正在寻找一个简单的方法来在VBA中做到这一点。 我知道有可能从Auto_Open事件中获取定时器的值，以防止使用一个幻数，但我不能完全知道如何触发一个定时器来让某个东西每120秒运行一次。 如果我可以避免的话，我真的不想用睡眠的无限循环。 编辑 ： 基于提供的答案的交叉post是： Excel VBA Application.OnTime。 我认为使用这个想法是一个糟糕的主意吗？

使用VBA循环所有子文件夹

我正在寻找一个VBA脚本，将遍历指定文件夹的所有子文件夹。 当我说所有的子文件夹，我的意思是指定的文件夹内的每个文件夹，每个文件夹里面，每个文件夹里面…理论上可以有无限的嵌套子文件夹，但实际上可能不会超过3或者4.我正在使用VBA脚本运行时对象，所以一旦我循环进入文件夹，我可以检查一些文件的属性（但我知道如何做那部分）。 感谢您的帮助！ 这个问题不同于之前包含已知目录的问题中列出的“类似”问题，而这里需要find已知和未知的目录。 还需要多层子目录。 你们真的应该在开火之前仔细阅读这个问题。

vba：从数组中获取唯一值

有没有build立在VBAfunction从一维数组中获取唯一值？ 那刚刚摆脱重复呢？ 如果不是，那么我将如何从数组中获得唯一的值？