 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 1 | 1/1 | 返回列表 |
| 查看: 654 | 回復(fù): 0 | ||
| 【懸賞金幣】回答本帖問題，作者114130014將贈送您 50 個金幣 | ||
[求助]
【求助】打開的excel總是沒辦法從資源管理器中徹底關(guān)閉
|
||
|
Public Sub data_mornitor() Dim Open_Path As String Open_Path = "c:\數(shù)據(jù)\" 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 '未監(jiān)控過的結(jié)果，加入列表，開始判斷 ''讀取文檔內(nèi)數(shù)據(jù)’’ 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() '關(guān)閉Excel xlapp_1 = Nothing ' KillProcess() MsgBox("完成一次"  End Sub |
回復(fù)此樓» 猜你喜歡
A區(qū)一本交叉課題組，低分調(diào)劑，招收機械電子信息通信等交叉方向
已經(jīng)有9人回復(fù)
-
328求調(diào)劑
已經(jīng)有3人回復(fù)
-
歡迎211本科同學(xué)，過A區(qū)國家線，A區(qū)非偏遠(yuǎn)一本，交叉學(xué)科課題組
已經(jīng)有21人回復(fù)
-
材料與化工304求調(diào)劑
已經(jīng)有6人回復(fù)
-
282求調(diào)劑
已經(jīng)有3人回復(fù)
-
347求調(diào)劑
已經(jīng)有8人回復(fù)
-
成果系統(tǒng)訪問量大，請15分鐘后再嘗試。由此給您造成的不便，敬請諒解。
已經(jīng)有16人回復(fù)
-
080500材料科學(xué)與工程
已經(jīng)有10人回復(fù)
-
材料類考研調(diào)劑
已經(jīng)有8人回復(fù)
-
化學(xué)專業(yè)調(diào)劑
已經(jīng)有3人回復(fù)
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 114130014 的主題更新
| 1 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600材料調(diào)劑 總分330 +5 | 池池丶 2026-03-03 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 304分材料專碩求調(diào)劑 +11 | qiuzhigril 2026-03-03 | 14/700 |
|
|
|
[基金申請] 沒有青基直接申請面上，感覺自己瘋了 +6 | kevin63t 2026-03-02 | 12/600 |
|
|
|
[考研] 307求調(diào)劑 +4 | xuyuan111 2026-03-04 | 5/250 |
|
|
|
[考研] 322分 085600求調(diào)劑，有互聯(lián)網(wǎng)+國金及主持省級大創(chuàng)經(jīng)歷 +6 | 熊境喆 2026-03-04 | 6/300 |
|
|
|
[考研] 成績276，專業(yè)代碼0856求調(diào)劑 +10 | 小陳朵 2026-03-03 | 10/500 |
|
|
|
[考研] 一志愿西交大材料學(xué)碩 346 求調(diào)劑 +3 | zju51 2026-03-04 | 3/150 |
|
|
|
[考研] 347分電子信息專碩求調(diào)劑 +3 | 咕嘟咕嘟1 2026-03-03 | 3/150 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | G212 2026-03-03 | 5/250 |
|
|
|
[考研] 085600求調(diào)劑 +4 | LRZZZZZZ 2026-03-02 | 6/300 |
|
|
|
[考研] 291求調(diào)劑 +3 | 咕嚕咕嚕123123 2026-03-02 | 4/200 |
|
|
|
[考研] 化工專碩調(diào)劑 +4 | 利好利好. 2026-03-03 | 7/350 |
|
|
|
[考研] 江蘇省農(nóng)科院招調(diào)劑1名 +5 | Qwertyuop 2026-03-01 | 5/250 |
|
|
|
[考研] 085602化學(xué)工程350，調(diào)劑，有沒有211的 +5 | 利好利好. 2026-03-02 | 9/450 |
|
|
|
[考研] 0805總分292，求調(diào)劑 +12 | 幻想之殤 2026-03-01 | 12/600 |
|
|
|
[考研] 材料學(xué)碩318求調(diào)劑 +15 | February_Feb 2026-03-01 | 17/850 |
|
|
|
[考研] 化學(xué)，材料，環(huán)境類求調(diào)劑 +7 | 考研版棒棒 2026-03-02 | 7/350 |
|
|
|
[考研] 264求調(diào)劑 +4 | 巴拉巴拉根556 2026-02-28 | 4/200 |
|
|
|
[考研] 328求調(diào)劑 +3 | aaadim 2026-03-01 | 5/250 |
|
|
|
[考研] 311求調(diào)劑 +6 | 亭亭亭01 2026-03-01 | 6/300 |
|