HRESULT: 0x80028018

     Dim CurrentCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture

        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

It's a bug about Excel interop. 

 adding the above previous to your code.

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/zyip/p/2653995.html