|
▼ponpon さん:
>▼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ページとして保存と判断されたらいかがでしょう?
>意味が違ったらごめんなさい。
説明が足らなくてすみません。
ワークブックのBeforeSaveイベントで、下記のように処理を行いたいのです。
===========================================================
If SaveAsUI = True Then
If 名前を付けて保存が選択された場合 Then ← ここの判断が分かりません。
' EXCEL用のファイルダイアログを表示し、EXCEL形式で保存処理
Else
' HTML用のファイルダイアログを表示し、HTML形式で保存処理
End If
End If
===========================================================
ご指摘のFileNameは、どうやって取得したら良いのでしょう?
質問ばかりですみません・・・。
|
|