一个导致Excel崩溃的VBA Bug？？

sheffield

lujkhua 发表于 2019-7-11 15:16
说明
使用 IsMissing 函数来检测在调用一个程序时是否提供了可选 Variant 参数。如果对特定参数没有传递 ...

抱歉我没有看到你把这个未初始化的数组，改成了Integer，这样可以正常通过检测。可是不符合我的要求了。我要的是另外一个需求，用户把任何一个变量嵌套到另一个数组或字典中，我都能识别是什么类型的变量。我需要检测这个数组或字典，我的最终目的是构造另外一个debug函数，打印输出一个数组或字典的内容。

lujkhua

zhanglei1371 发表于 2019-7-11 15:25
我的Excel2016，也会崩溃。

随便将数组声明一个具体类型即可，比如：

1. Sub test1()
   
2.     Dim arr() As String, var
   
3.     var = arr()
   
4.     test2 var
   
5. End Sub
   
6. 
   
7. Sub test2(Optional a)
   
8.     If IsMissing(a) Then
   
9.         Debug.Print "你是否运行了我说的代码？？"
   
10.     Else
    
11.         Debug.Print "无论如何Excel都会崩溃？？"
    
12.     End If
    
13. End Sub

复制代码

sheffield

qingc0221 发表于 2019-7-11 15:20
arr()都没初始化就赋值给别的变量?

是的，比如你正好要检测这样的一个行为：用户有没有对指定的变量进行初始化，怎么操作？我知道iserror也可以类似ismissing使用，但是这样就无法检测Error类型本身了。我现在搞不明白的是，这是不是一个bug。要知道，没有初始化的数组是可以赋值给别的变量的（比如var），此时vartype(var)是8204，typename(var)是“Variant()，一切都很正常，但是就是不能进行ismissing检测。WHYYYYYY？

sheffield

lujkhua 发表于 2019-7-11 15:28
随便将数组声明一个具体类型即可，比如：

请问有答案吗？在保持为Variant的情况下，出现Excel崩溃的原因？

zopey

判断一个变量 是数组还是 字典，这和 ismissing有啥关系呢 ？

wxhnr

excel2003也崩溃，楼主另想他法吧。

lujkhua

zopey 发表于 2019-7-11 23:13
判断一个变量 是数组还是 字典，这和 ismissing有啥关系呢 ？

这句话，请楼主好好回味儿...

sheffield

zopey 发表于 2019-7-11 23:13
判断一个变量 是数组还是 字典，这和 ismissing有啥关系呢 ？

你的一个非常开放的函数，需要接收任意类型的变量，——这个变量是optional的，需要看它是不是IsMissing了

sheffield

lujkhua 发表于 2019-7-12 08:03
这句话，请楼主好好回味儿...

你的一个非常开放的函数，需要接收任意类型的变量，——这个变量是optional的，必须判断它是不是IsMissing了

chenjx80

sheffield 发表于 2019-7-11 19:28
请问有答案吗？在保持为Variant的情况下，出现Excel崩溃的原因？

日志名称:          Application
来源:            Application Error
日期:            2019/7/12 8:56:13
事件 ID:         1000
任务类别:          (100)
级别:            错误
关键字:           经典
用户:            暂缺
计算机:           jason-pc
描述:
错误应用程序名称: EXCEL.EXE，版本: 16.0.4873.1000，时间戳: 0x5cffdabb
错误模块名称: VBE7.DLL，版本: 7.1.10.56，时间戳: 0x57e4bc6a
异常代码: 0xc0000005
错误偏移量: 0x0011a02e
错误进程 ID: 0x1e84
错误应用程序启动时间: 0x01d5384c78728513
错误应用程序路径: C:\Program Files\Microsoft Office\Office16\EXCEL.EXE
错误模块路径: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL
报告 ID: d80879a7-a43f-11e9-a080-00269e9b5a6f
事件 Xml:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
  <System>
    <Provider Name="Application Error" />
    <EventID Qualifiers="0">1000</EventID>
    <Level>2</Level>
    <Task>100</Task>
    <Keywords>0x80000000000000</Keywords>
    <TimeCreated SystemTime="2019-07-12T00:56:13.000000000Z" />
    <EventRecordID>230972</EventRecordID>
    <Channel>Application</Channel>
    <Computer>jason-pc</Computer>
    <Security />
  </System>
  <EventData>
    <Data>EXCEL.EXE</Data>
    <Data>16.0.4873.1000</Data>
    <Data>5cffdabb</Data>
    <Data>VBE7.DLL</Data>
    <Data>7.1.10.56</Data>
    <Data>57e4bc6a</Data>
    <Data>c0000005</Data>
    <Data>0011a02e</Data>
    <Data>1e84</Data>
    <Data>01d5384c78728513</Data>
    <Data>C:\Program Files\Microsoft Office\Office16\EXCEL.EXE</Data>
    <Data>C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL</Data>
    <Data>d80879a7-a43f-11e9-a080-00269e9b5a6f</Data>
  </EventData>
</Event>

从异常代码 0xc0000005 来说说一位 C 初学者的猜测：
IsMissing() 需要对参数（应该是指针值）进行解引用操作，以对某些标记作出判断，
但此时该参数未初始化，其初值为全 0，
进行解引用操作时，IsMissing() 又没有对 0 指针值进行判断，所以就非法访问了。

虽然这是一个 Bug（即使是一个Bug，M$也不会修正了），但也给那些不定义不初始化变量
就使用的代码编写者上了一堂印象深刻的教育课！从这个意义上来说，我们得感谢M$！