＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Part.4 at PHP

421:70
06/04/10 21:57:23 w8+tUl+V
>>420
すみません、一部記述が抜けてました
subとend subだけが<%　%>で囲ってこんな感じです。

<%
Sub Exl
%>
Dim ExcelApp, ExlFile
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.visible = True
ExlFile="D:/asp/files/temp.xls"
ExcelApp.DisplayAlerts = False
ExcelApp.Workbooks.open(ExlFile)
ExcelApp.Sheets("page1").Select
ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
ExcelApp.ActiveSheet.PrintPreview
Excelapp.Quit
Set ExcelApp = Nothing
<%
End Sub
%>

次ページ

続きを表示

1を表示