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



添付ファイル: filemac mini 見積もり.pdf 56件 [詳細]

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-02-10 (水) 11:27:17 (1m)