Solution:
Dim oApp As New Excel.Application()
oApp.Visible = True
oApp.UserControl = True
'Set current culture to en-US.
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
oApp.Workbooks.Add()
'restore the culture
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
转载于:https://www.cnblogs.com/zhujingyuan/archive/2007/12/29/1019221.html