gpt4 book ai didi

vba - VBA 中的 IFDEF 等效项

转载 作者:行者123 更新时间:2023-12-02 10:20:22 28 4
gpt4 key购买 nike

我的代码需要在 Excel 2003 和 Excel 2007 上运行,并且在某些地方版本中的更改会导致代码停止。我尝试使用 If-Else 语句将这些行分开,但代码无法在其中任何一个上编译,因为它无法识别用于另一个的代码。有没有什么方法可以让一个版本忽略一段代码,类似于 VBA 中的 C 或 C++ 风格的 #ifdef?

最佳答案

This is a good starting point, but it won't work with the version of Excel that its running on, since that can only be figured out at run-time, not compile time.

如果您需要根据仅在运行时可发现的信息对代码进行分支,您可能会考虑将后期绑定(bind)作为解决方案。有两种方法可以绕过版本问题。

可以使用第一种方式,如果需要访问仅在某些版本中存在的属性或方法,可以使用CallByName。按名称调用的优点是它允许您尽可能保留对象的早期绑定(bind)(和智能感知)。

举个例子,Excel 2007 有一个新的 TintAndShade 属性。如果您想更改某个范围的颜色,并且对于 Excel 2007,还要确保 TintAndShade 设置为 0,您会遇到麻烦,因为您的代码无法在 Excel 2003 中编译,因为 Excel 2003 没有 TintAndShade 作为范围对象的属性。如果您使用 CallByName 访问您知道并非在所有版本中的属性,则您的代码将在所有版本中正常编译,但仅在您指定的版本中运行。见下文:

Sub Test() 
ColorRange Selection, Excel.Application.version, 6
End Sub
Sub ColorRange(rng As Excel.Range, version As Double, ParamArray args() As Variant)
With rng.Interior
.colorIndex = 6
.Pattern = xlSolid
If version >= 12# Then
'Because the property name is stored in a string this will still compile.
'And it will only get called if the correct version is in use.
CallByName rng.Interior, "TintAndShade", VbLet, 0
End If
End With
End Sub

第二种方法适用于必须通过“New”实例化的类,并且在旧版本中甚至不存在。使用 Excel 时您不会遇到这个问题,但我将提供一个快速演示,以便您明白我的意思:

想象一下,您想要执行文件 IO,并且由于某些奇怪的原因,并非所有计算机都安装了 Microsoft Scripting Runtime。但由于一些同样奇怪的原因,您想确保它在可用时被使用。如果设置对其的引用并在代码中使用早期绑定(bind),则代码将无法在没有该文件的系统上编译。所以你改用后期绑定(bind):

Public Sub test()
Dim strMyString As String
Dim strMyPath As String
strMyPath = "C:\Test\Junk.txt"
strMyString = "Foo"
If LenB(Dir("C:\Windows\System32\scrrun.dll")) Then
WriteString strMyPath, strMyString
Else
WriteStringNative strMyPath, strMyString
End If
End Sub

Public Sub WriteString(ByVal path As String, ByVal value As String)
Dim fso As Object '<-Use generic object
'This is late binding:
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(path, True, False).Write value
End Sub

Public Sub WriteStringNative(ByVal path As String, ByVal value As String)
Dim lngFileNum As Long
lngFileNum = FreeFile
If LenB(Dir(path)) Then Kill path
Open path For Binary Access Write Lock Read Write As #lngFileNum
Put #lngFileNum, , value
Close #lngFileNum
End Sub

自 2003 年以来 Excel 对象模型的所有添加和更改的完整列表:
http://msdn.microsoft.com/en-us/library/bb149069.aspx如需了解 1997 年至 2000 年之间的变化,请访问此处:
http://msdn.microsoft.com/en-us/library/aa140068(office.10).aspx

关于vba - VBA 中的 IFDEF 等效项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/926561/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com