Witam,
Mam problem z funkcją wczytywania danych z excela. Po wywołaniu funkcji wykonuje się poprawnie i zwracam zamierzoną wartość, jednak gdy podglądam procesy działające w tle widzę mnożący się po każdym uruchomieniu proces excel.exe
czy zadeklarowałem coś nie nie tak? z góry dziękii za pomoc
Function wczytaj() ' funkcja wczytywania danych
Dim roboSite As String
roboSite = TextBox1.Text
If roboSite = "" Or roboSite = "0" Or roboSite = "00" Or roboSite = "000" Or roboSite = "000" Then
Else
Dim oApp As New Excel.Application
Dim oWBa As Excel.Workbook = oApp.Workbooks.Open("d:\wynik.xlsx")
Dim oWS As Excel.Worksheet = DirectCast(oWBa.Worksheets(1), Excel.Worksheet)
oApp.Visible = False
Dim IP
IP = oWS.Range("g" & roboSite).Value
oWBa.Close()
Return IP
End If
End Function