vb6到javascript的代码转换器

vb6到javascript的代码转换器,javascript,excel,vb6,newline,converter,Javascript,Excel,Vb6,Newline,Converter,任何人都可以帮助将此代码从VB6转换为JavaScript吗 Sub Insert() Dim j As Long, r As Range j = InputBox("Enter the number of sizes -1") Set r = Range("A2") Do Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert Set r = Cells(r.Row + j + 1, 1) If r.Offset(1, 0) = "" Th

任何人都可以帮助将此代码从VB6转换为JavaScript吗

Sub Insert()
Dim j As Long, r As Range
j = InputBox("Enter the number of sizes -1")
Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

我不知道VB中的
范围
单元格
类,但是如果您在JavaScript中重新实现它们的行为,您的代码可以转换为以下内容

function VBRange(/* args */) {
    // re-implementation
}
function VBCells(/* args */) {
    // re-implementation
}
function Insert() {
    var j, r;
    j = parseInt(prompt(Enter the number of sizes -1), 10);
    r = VBRange("A2");
    do {
        VBRange(r.Offset(1, 0), r.Offset(j, 0)).EntireRow().Insert();
        r = VBCells(r.Row + j + 1, 1);
        if (r.Offset(1, 0) === "") {
            break;
        }
    } while (1);
}

你不能。您没有普通JS中的单元格、范围和偏移量。是否要使用MS ScriptControl在Excel中执行JavaScript(您正在寻找的)?或者您的执行环境是什么?这看起来像是针对不能使用JScript的Excel VBA。你到底想做什么?谢谢,但我需要的是单元格和范围函数:),这段代码在excel中用来做一些事情。我需要密码,但在javaScript@Hamzawoo也许看看这个链接吧