vbscript等到Excel保存之前closures
我有一个VBScript的HTML表单，这将保存在Excel表单中的数据。 我的问题是，30人将使用相同的HTML表单，所以会发生两个或更多的同时保存。
我的想法是，VBScript检查是否Excel文件是打开的，什么时候它closures，所以它可以再次打开并保存数据，但我不知道如何在代码中实现。 我对vbscript只有很less的了解，我的大部分代码都是通过研究来收集的。
这是我的代码到目前为止：
<HTML> <HEAD><TITLE>Save in Excel</TITLE></HEAD> <SCRIPT Language = "VBScript"> Function Export(A,B,C,D,E) Set ExcelApp = CreateObject("Excel.application") ExcelApp.Visible = True strPathDoc = "G:\Test.xls" Set myExcelDoc = ExcelApp.Workbooks.Open(strPathDoc) ExcelApp.Visible = True myExcelDoc.Windows(1).Visible = True set XlSheet = myExcelDoc.Worksheets(1) currentRow = 2 currentVal = XlSheet.Range("A" & currentRow).value While currentVal <> "" currentRow = currentRow + 1 currentVal = XlSheet.Range("A" & currentRow).value Wend XlSheet.Range("A" & currentRow).value = A XlSheet.Range("B" & currentRow).value = B XlSheet.Range("C" & currentRow).value = C XlSheet.Range("D" & currentRow).value = D XlSheet.Range("E" & currentRow).value = E myExcelDoc.save myExcelDoc.close Set myExcelDoc = Nothing Set ExcelApp = Nothing End Function Sub cmdExp_OnClick() Dim lPrincipal Dim dblRate Frstnm = Disnm.value Lstnm = TreatGrp.value Mdlnm = TreatGrp2.value Motnm = TreatGrp3.value Fatnm = TreatGrp4.value cInterest = Export(Frstnm, Lstnm, Mdlnm, Motnm, Fatnm) End Sub </SCRIPT> <BODY> <BR> Test 1: <INPUT Type="Text" Name="Disnm" Value=""><BR> Test 2: <INPUT Type="Text" Name="TreatGrp" Value=""><BR> Test 3: <INPUT Type="Text" Name="TreatGrp2" Value=""><BR> Test 4: <INPUT Type="Text" Name="TreatGrp3" Value=""><BR> Test 5: <INPUT Type="Text" Name="TreatGrp4" Value=""><BR> <INPUT Type="Button" Name="cmdExp" Value="Start"> </BODY> </HTML> 提前致谢