| 查看: 765 | 回复: 0 | |||
| 【悬赏金币】回答本帖问题，作者114130014将赠送您 50 个金币 | |||
[求助]
【求助】打开的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 |
回复此楼» 猜你喜欢
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
10