24小时热门版块排行榜

返回列表

【悬赏金币】回答本帖问题，作者114130014将赠送您 50 个金币

114130014

银虫 (正式写手)

应助: 1 (幼儿园)
金币: 414.7
散金: 6280
红花: 15
帖子: 513
在线: 163.7小时
虫号: 1154340
注册: 2010-11-23
性别: GG
专业: 色谱分析

[求助] 【求助】打开的excel总是没办法从资源管理器中彻底关闭

Public Sub data_mornitor()

      Dim Open_Path As String
      Open_Path = "c:\数据\"

      Dim Catalogue As New System.IO.DirectoryInfo(Open_Path) '这里是你的文件夹路径
      Dim Open_File As System.IO.FileInfo
      Dim xx_number As Integer

      Dim xlapp_1 As New Excel.Application
      Dim xlbook_1 As Excel.Workbook
      Dim xlsheet_1 As Excel.Worksheet
      xlapp_1.Visible = False '显示excel 程序
      '  ListBox1.Items.Add(Open_File.Name)    '将遍历的文件写到框里面

      For Each Open_File In Catalogue.GetFiles '遍历整个文件夹

         data_judge(Open_File.Name)

         If data_judge_result = 0 Then
            number_jieguo = number_jieguo + 1
            Name_jieguo(number_jieguo, 1) = Open_File.Name  '未监控过的结果，加入列表，开始判断

            ''读取文档内数据’’

            xlbook_1 = xlapp_1.Workbooks.Open(Open_Path & Open_File.Name)
            xlsheet_1 = xlbook_1.Worksheets(1)

            Do Until xlsheet_1.Cells(xx_number + 1, 1).value = "Primary Current START (A):    "
                  xx_number = xx_number + 1
            Loop

            ' MsgBox(xlsheet_1.Cells(xx_number + 1, 3).value)
            Name_jieguo(number_jieguo, 2) = "file_monitored"
            xx_number = 1

         Else

         End If
      Next
      xlsheet_1 = Nothing
      xlapp_1.Workbooks.Close()
      xlapp_1.Quit() '关闭Excel
      xlapp_1 = Nothing
      ' KillProcess()
      MsgBox("完成一次"

End Sub

回复此楼

» 猜你喜欢

1楼 2021-05-05 12:31:00

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 114130014 的主题更新

返回列表

不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)

普通表情龙兔虎猫