有没有办法将以下VBScript更改为javascript?

有没有办法将以下VBScript更改为javascript?,javascript,excel,vbscript,Javascript,Excel,Vbscript,我正在尝试将一些VBScript转换为javascript,但我怀疑这是否可能,因为它似乎是针对MS应用程序和代码的。我想要两种可能的结果中的任何一种:a)实际将代码转换为javascript,或b)证明当前不可能将其转换为javascript 我认为MS特定的特定VBScript语句是: set oExcel = CreateObject("Excel.Application") set oBook = oExcel.Workbooks.Add oBook.HTMLProject.HTMLPr

我正在尝试将一些VBScript转换为javascript,但我怀疑这是否可能,因为它似乎是针对MS应用程序和代码的。我想要两种可能的结果中的任何一种:a)实际将代码转换为javascript,或b)证明当前不可能将其转换为javascript

我认为MS特定的特定VBScript语句是:

set oExcel = CreateObject("Excel.Application")
set oBook = oExcel.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument()
oExcel.Visible = True
oExcel.UserControl = True

有没有人能很好地将javascript和Excel连接起来,从而使解决方案得以存在?

您只能使用JScript,而不能使用javascript-。如果您只使用IE,这可能没问题。

您只能使用JScript,而不能使用JavaScript-。如果您只使用IE,这可能很好。

请确保这样:-

 var excel = new ActiveXObject("Excel.Application")
 var book = excel.Workbooks.Add()

 //The line below doesn't work in Excel 2007
 // book.HTMLProject.HTMLProjectItems["Sheet1"].Text = sHtml

 var sheet =  book.Sheets("Sheet1")
 sheet.Range("A2").Value = "Hello World"
 excel.Visible = true
 excel.UserControl = true
当然是这样的:-

 var excel = new ActiveXObject("Excel.Application")
 var book = excel.Workbooks.Add()

 //The line below doesn't work in Excel 2007
 // book.HTMLProject.HTMLProjectItems["Sheet1"].Text = sHtml

 var sheet =  book.Sheets("Sheet1")
 sheet.Range("A2").Value = "Hello World"
 excel.Visible = true
 excel.UserControl = true

这个代码工作起来很有魅力!在修复了非引号代码中的一个小错误(javascript中的OuterHTML!=OuterHTML)之后,一切都如预期的那样。非常感谢。这个代码工作起来很有魅力!在修复了非引号代码中的一个小错误(javascript中的OuterHTML!=OuterHTML)之后,一切都如预期的那样。非常感谢。