LAN Temperature Monitor Excel example 01

 

 

 

LAN DS18B20 High-Precision 1-Wire Digital Temperature Monitor

 

 


Private Sub CommandButton1_Click()
Dim strTargetFile As String
Dim wb As Workbook

     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
     strTargetFile = Cells(2, 1)
     Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
     Application.DisplayAlerts = True

     wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet1").Range("A5")
     wb.Close False
     Application.ScreenUpdating = True
     
End Sub

 


 LAN DS18B20 High-Precision 1-Wire Digital Temperature Monitor

 

 

 

www.KMtronic.com/Software/Temperature/KMtronic-LAN-Temperature-Excel-Example-01.zip

 

 

 

 

Read 3144 times