VS调用excel后无法结束进程中的excel.exe

eddvce_king

Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim xlsheet2 As Excel.Worksheet
        Dim ix As Integer = 1 : Dim iy As Integer = 1 : Dim iz As Integer = 1
        xlApp = CreateObject("Excel.Application") '创建EXCEL对象
        xlBook = xlApp.Workbooks.Open(Application.StartupPath + "\name-id-cell-engine原则.xlsx") '打开原则对照表，写入内存
        xlApp.DisplayAlerts = False
        xlApp.Visible = False                        '设置不可见
        xlSheet = xlBook.Worksheets(1)            '设置当前sheet
        Do Until xlSheet.Cells(ix, 1).value = Nothing  '判断非空的终极版本
            ix += 1
        Loop : ix -= 1
        howmanyrole = ix - 1 '多少条规则写入全局变量
        MsgBox(howmanyrole, vbOKOnly, "通知")
        ReDim getcod2(ix - 2, 1) '
        For iy = 2 To ix
            getcod2(iy - 2, 0) = xlSheet.Cells(iy, 1).value
            getcod2(iy - 2, 1) = xlSheet.Cells(iy, 3).value
        Next iy  '写入完毕
        '======================================分割线=============================================================================================
        xlSheet = xlBook.Worksheets(2) '再接着写入发动机的原则
        ix = 1
        Do Until xlSheet.Cells(ix, 1).value = Nothing  '判断非空的终极版本
            ix += 1
        Loop : ix -= 1
        howmanyeng = ix - 1 '赋值给全局变量，供其他函数使用
        ReDim Engine(ix - 2, 17)
        For iy = 1 To ix - 1
            For iz = 1 To 17
                ' Engine(iy, iz) = Trim(xlSheet2.cells(iy + 1, iz))
                Engine(iy - 1, iz - 1) = xlSheet.Cells(iy + 1, iz).value '一定要加上父对象xlApp，否则程序无法在进程中结束excel
            Next iz
            Engine(iy - 1, 17) = xlSheet.Cells(iy + 1, 18).value
        Next iy
        '发动机原则写入完毕()
        '===============================释放所有excel对象================================================================
        xlBook.Close(True)
        xlApp.Quit()                                                       '关闭excel
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)     '释放xlapp
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)    '释放xlbook
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)   '释放xlsheet
        GC.Collect()                                                       '回收处理
        GC.WaitForPendingFinalizers()
        xlSheet = Nothing
        xlBook = Nothing
        xlApp = Nothing '释放EXCEL对象22
        '==============================释放完毕==========================================================================
        
        'MsgBox(Engine(3, 12), vbOKOnly, "来自程序的提示！")
    End Sub

eddvce_king

这个程序要打开一个excel工作簿，先读取第一个sheet里的内容，紧接着再读取第二个sheet里的内容，读完之后再关闭。 奇怪的地方是，如果单独 读取第一个sheet，把分割线后面的内容屏蔽掉，运行后，进程里的excel 也关闭了；同理，单独读取第二个sheet后，运行后 进程里也没有excel.exe，唯独 当一次读取两个sheet的时候，无法结束excel.exe，，特求助大神

tswing

1、根本没必要用循环读取，可以用数组：二维数组（声明为object）=区域.value。如读取“A1:B5"：
dim a(,) as object=sh.range("A1:B5").value，或者，dim a as object=sh.range("A1:B5").value。
2、下面几句我没学到过，但是我觉得没必要，剩下的语句就释放Excel对象了，实践过是可行的。
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)     '释放xlapp
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)    '释放xlbook
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)   '释放xlsheet
        GC.Collect()                                                       '回收处理
        GC.WaitForPendingFinalizers()

eddvce_king

tswing 发表于 2018-6-9 07:38
1、根本没必要用循环读取，可以用数组：二维数组（声明为object）=区域.value。如读取“A1:B5"：
dim a(,) ...

getcod2(, 1) = xlSheet.Range("A2", "A63").Value
getcod2(, 0) = xlSheet.Range("C2", "C63").Value
这样声明吗？
错误        1        缺少数组下标表达式。
会报错啊，缺少下标，

tswing

eddvce_king 发表于 2018-6-11 10:05
getcod2(, 1) = xlSheet.Range("A2", "A63").Value
getcod2(, 0) = xlSheet.Range("C2", "C63").Value
...

数组声明应该是动态的，
dim getcod2(,) as object = xlSheet.Range("A2:A63").Value

eddvce_king

tswing 发表于 2018-6-11 10:21
数组声明应该是动态的，
dim getcod2(,) as object = xlSheet.Range("A2:A63").Value

大神：
1、getcod是Public,在模块里定义的，在定义的时候没法给它赋值，
2、enginer(, ) = xlSheet.Range("A2:R134") 用了这种写法还是会报错，缺少下标

tswing

eddvce_king 发表于 2018-6-11 10:40
大神：
1、getcod是Public,在模块里定义的，在定义的时候没法给它赋值，
2、enginer(, ) = xlSheet.Ran ...

在模块里，dim getcod(,) as object，然后在其它地方就直接给它赋值就行。

直接赋值时，直接使用对象名，
getcod= xlSheet.Range("A2:R134").value

.value不要忘记。

eddvce_king

tswing 发表于 2018-6-11 10:45
在模块里，dim getcod(,) as object，然后在其它地方就直接给它赋值就行。

直接赋值时，直接使用对象 ...

还有一个问题，如果直接这样赋值，我要怎样指定某列数据给哪一维呢？

eddvce_king

tswing 发表于 2018-6-11 10:45
在模块里，dim getcod(,) as object，然后在其它地方就直接给它赋值就行。

直接赋值时，直接使用对象 ...

因为我是想把几列数据（每一列又有很多行）都写进 这个数组里面去，最多的二维数组第二维下标有17个

tswing

eddvce_king 发表于 2018-6-11 10:54
还有一个问题，如果直接这样赋值，我要怎样指定某列数据给哪一维呢？

如此赋值后，数组完全是和区域一一对应的，一维为行，二维为列