Question

我有一个VBS，可以从服务器下载.xlsm文件并打开它。 .xlsm文件打开时，它显示一个用户窗体。当我在此用户窗体上运行按钮时，它应该填充一个ComboBox，但由于无法正常工作，整个用户窗体会关闭。

当我手动运行下载的.xlsm文件时，它可以正常运行。可能是什么问题？

这是我的VBS

strFileURL = "xxx/Tool.xlsm"
strHDLocation = "C:\Work\Testing\Tool.xlsm"

' Fetch the file

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1 'adTypeBinary

  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0    'Set the stream position to the start

  Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  Set objFSO = Nothing

  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strHDLocation)

当我打开.xlsm文件时会发生以下情况：

Private Sub Workbook_Open()
    Site.Show vbModeless
End Sub

VBS运行用户窗体问题

0 个答案: