Question

我不知道VBScript。在我的SAP BSP页面中，有一段VBScript代码如下所示。

<script language="VBScript">
    'On Error Resume Next
    xlNone = -4142
    xlContinuous = 1
    xlDash = -4115
    xlDashDot = 4
    xlDashDotDot = 5
    xlDot = -4118
    xlDouble = -4119
    xlSlantDashDot = 13

    'These define the weight of the border
    xlHairLine = 1
    xlMedium = -4138
    xlThick = 4
    xlThin = 2

    'Thise is handy to make borders have the default color index
    xlAutomatic = 5

    'These define the placement of border pieces
    xlDiagonalDown = 5
    xlDiagonalUp = 6
    xlEdgeLeft = 7
    xlEdgeTop = 8
    xlEdgeBottom = 9
    xlEdgeRight = 10
    xlInsideVertical = 11
    xlInsideHorizontal = 12
    set Excel=CreateObject("Excel.Application")
    Excel.Visible = true
    set wb   =  Excel.Workbooks.Open("<%= gv_excel_url%>")
    Set s    = wb.Worksheets("DRM Data")
    s.DisplayGridlines = not s.DisplayGridlines
</script>

在调试中，我看不到所有细节。如果你看到下面的陈述。

set wb = Excel.Workbooks.Open("<%= gv_excel_url%>")

此处gv_excel_url会有一些我无权直接打开的系统路径。

在调试时，一旦执行此语句，它就不会执行下面的语句。

Set s = wb.Worksheets("DRM Data")
s.DisplayGridlines = not s.DisplayGridlines

控制进一步下降。

最后，我的Excel无法打开所需的数据。您能告诉我声明set wb = Excel.Workbooks.Open("<%= gv_excel_url%>")是否检查授权？

我可以调试这段代码吗？如何在运行时看到wb的值？

Answer 1

没有必要在该声明中使用<%= %>。您已经在<script>标记内。将行更改为：

set wb = Excel.Workbooks.Open(gv_excel_url)

我很好奇，但是......如果您没有打开此文件的授权，VBScript将如何为您执行此操作？

VB脚本+打开excel

1 个答案: