ASP找出每个月星期六是几号

Question

ASP用的Vscript脚本语音写的，想请教高手我想找出一年中每个星期六是几号，并且用EXECL导出来，年份是随机的，麻烦了。谢谢

Answer 1

<script type="text/vbscript">
Dim y, d, i, ex
    y = 2012
    d = CDate(CStr(y) & "-1-1")
    Set ex = CreateObject("Excel.Application")
    ex.workbooks.Open "d:\\1.xls"
    ex.Sheets("sheet1").Select
    i = 1
    Do While 1
        
        If Weekday(d) = vbSaturday Then
            ex.ActiveSheet.Cells(i, 1) = d
            i = i + 1
        End If
        d = d + 1
        If year(d) > y Then
            Exit Do
        End If
    Loop
    ex.workbooks("1.xls").save
    ex.quit
    Set ex = Nothing
    MsgBox "ok"
</script>

Answer 2

感谢1楼的解答。我现在想的是用数组接收随机一年每个月的星期六，在后面EXECL直接调用数组打印出来，可以吗？谢谢了。

Answer 3

麻烦现在想问一下，ASP导出EXECL可以用代码修改格式么？如改小单元格宽度，合并单元格。