| |
▼d021 さん：
>こんにちは。
>
>ワークブックのBeforeSaveイベントで、自力でエクセルの保存処理
>を行っているのですが、名前を付けて保存とWebページとして保存
>の違いをVBAで判別できなくて困っています。
>
>VBAで判断できるのでしょうか？
両方マクロの記録でやってみました。
○名前を付けて保存
Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\ponpon\My Documents\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
○Webページとして保存
Sub Macro2()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\ponpon\My Documents\Book1.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
どんなことをなさりたいかよくわかりませんが、
二つの違いは、拡張子だと思うので
Filenameから、右3文字を抜き出し、"xls"なら名前を付けて保存。
"htm"ならWebページとして保存と判断されたらいかがでしょう？
意味が違ったらごめんなさい。
|
|
ponpon
- 06/12/6(水) 18:04 -
