Question

我有一个带有vbscript的html表单，它将数据保存在excel表中。我的问题是30个人将使用相同的html表单，因此会发生两个或更多将同时保存。

我的想法是vbscript检查excel文件是否打开以及何时等待它关闭，所以它可以再次打开并保存数据，但我不知道如何在代码中实现它。我对vbscript知之甚少，我的大部分代码都是通过研究收集的。

到目前为止，这是我的代码：

<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>

提前致谢

vbscript等到Excel关闭后再保存

0 个答案: