 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 1 | 1/1 | 返回列表 |
| 查看: 661 | 回復(fù): 0 | |||
| 【懸賞金幣】回答本帖問題，作者114130014將贈(zèng)送您 50 個(gè)金幣 | |||
[求助]
【求助】打開的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 '遍歷整個(gè)文件夾 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ù)此樓» 猜你喜歡
0703化學(xué)一志愿211 總分320求調(diào)劑
已經(jīng)有3人回復(fù)
-
0703求調(diào)劑
已經(jīng)有6人回復(fù)
-
（081700）化學(xué)工程與技術(shù)-298分求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿天津大學(xué)材料與化工275求調(diào)劑
已經(jīng)有22人回復(fù)
-
0857 資源與環(huán)境 285分
已經(jīng)有6人回復(fù)
-
材料工程,326分，求調(diào)劑
已經(jīng)有5人回復(fù)
-
301求調(diào)劑
已經(jīng)有5人回復(fù)
-
334求調(diào)劑
已經(jīng)有3人回復(fù)
-
材料與化工085600調(diào)劑求老師收留
已經(jīng)有5人回復(fù)
-
一志愿華科071000生物學(xué) 338求調(diào)劑
已經(jīng)有4人回復(fù)
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 114130014 的主題更新
| 1 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0703求調(diào)劑 +6 | jtyq001 2026-03-10 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 334求調(diào)劑 +3 | mjqzz 2026-03-06 | 3/150 |
|
|
|
[考研] 材料工程330分求調(diào)劑，一志愿985 +5 | 小材化本科 2026-03-07 | 5/250 |
|
|
|
[考研] 274求調(diào)劑0856材料化工 +8 | z2839474511 2026-03-11 | 8/400 |
|
|
|
[考研] 290求調(diào)劑 +3 | 柯淮然 2026-03-10 | 8/400 |
|
|
|
[考研] 313分生物學(xué)求調(diào)劑 +5 | Yyt楊1 2026-03-09 | 7/350 |
|
|
|
[考研] 315食品工程求調(diào)劑 +4 | Oreov0 2026-03-06 | 7/350 |
|
|
|
[考研] 材料工程專碩調(diào)劑自薦信，初試323 +6 | 李白26 2026-03-07 | 6/300 |
|
|
|
[考研] 材料與化工求調(diào)劑 +11 | 與冬清寧 2026-03-07 | 14/700 |
|
|
|
[考博] 求材料讀博院校 +9 | yanglei131 2026-03-08 | 9/450 |
|
|
|
[考研] 320求調(diào)劑 +4 | 魏zy 2026-03-08 | 4/200 |
|
|
|
[考研] 301求調(diào)劑 +11 | 朝天椒的雙馬尾 2026-03-05 | 11/550 |
|
|
|
[考研] 求調(diào)劑，一志愿華中科大0702，數(shù)一英一，293 +4 | 小羅露一二 2026-03-07 | 4/200 |
|
|
|
[考研]
 化學(xué)工程與技術(shù)316求調(diào)劑
+7
|
Sixuan wang 2026-03-06 | 7/350 |
|
|
|
[考研] 0817化學(xué)工程與技術(shù)312分求調(diào)劑 +7 | T123 tt 2026-03-04 | 7/350 |
|
|
|
[考研] 085701環(huán)境工程317分求調(diào)劑 +9 | 6汆尼9 2026-03-07 | 9/450 |
|
|
|
[考研] 085701環(huán)境工程專業(yè)，初試305，均過國(guó)家A區(qū)線 +7 | 卡卡來了@ 2026-03-07 | 8/400 |
|
|
|
[考研] 081700學(xué)碩一志愿北京化工大學(xué)數(shù)二英一過六級(jí)有競(jìng)賽求調(diào)劑 +5 | galaxary 2026-03-07 | 7/350 |
|
|
|
[考研] 304求調(diào)劑 +4 | 52hz~~ 2026-03-05 | 5/250 |
|
|
|
[考研] 282求調(diào)劑 +7 | 夕～日 2026-03-05 | 8/400 |
|