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
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/282985.html
標籤：VB.NET