|
Counter: 232,
today: 2,
yesterday: 1
Private Sub Webとして保存_Click()
Application.DisplayAlerts = False
File_name = "C:\Documents and Settings\日向充\デスクトップ\hozon2.html"
ActiveWorkbook.SaveAs Filename:=File_name, FileFormat:=xlHtml
Shell ("C:\Documents and Settings\日向充\デスクトップ\echo.bat")
End Sub
|