有没有办法将以下VBScript更改为javascript?
我正在尝试将一些VBScript转换为javascript,但我怀疑这是否可能,因为它似乎是针对MS应用程序和代码的。我想要两种可能的结果中的任何一种:a)实际将代码转换为javascript,或b)证明当前不可能将其转换为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
我认为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)之后,一切都如预期的那样。非常感谢。