|
▼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ページとして保存と判断されたらいかがでしょう?
意味が違ったらごめんなさい。
|
|