Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36857 / 76732 ←次へ | 前へ→

【45050】Re:名前を付けて保存とWebページとして保存の判別方法
お礼  d021  - 06/12/11(月) 10:28 -

引用なし
パスワード
   ▼bykin さん:
>こんばんわ。
>
>>ワークブックのBeforeSaveイベントで、自力でエクセルの保存処理
>>を行っている
>
>ってのは
>
>>' EXCEL用のファイルダイアログを表示し、EXCEL形式で保存処理
>
>とかの箇所で、GetSaveAsFilenameを使ってるってことなんかな?
>
>ツールバーのボタンのクリックを取得して判断するしかないやろねー
>↓こんなんかな?
>
>(全部ThisWorkbookモジュール)
>
>Private WithEvents Btn1 As CommandBarButton
>Private WithEvents Btn2 As CommandBarButton
>Private SaveFlg As Long
>
>Private Sub Btn1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
>  SaveFlg = 1
>End Sub
>
>Private Sub Btn2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
>  SaveFlg = 2
>End Sub
>
>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
>  Dim FileSpec As Variant
>
>  If SaveAsUI Then
>    Select Case SaveFlg
>      Case 1
>        Cancel = True
>        FileSpec = Application.GetSaveAsFilename(, "Excel ブック (*.xls), *.xls")
>        If FileSpec <> False Then SaveAs FileSpec, xlNormal
>      Case 2
>        Cancel = True
>        FileSpec = Application.GetSaveAsFilename(, "Web ページ (*.htm), *.htm")
>        If FileSpec <> False Then SaveAs FileSpec, xlHtml
>    End Select
>    SaveFlg = 0
>  End If
>End Sub
>
>Private Sub Workbook_Open()
>  With Application.CommandBars
>    Set Btn1 = .FindControl(ID:=748)
>    Set Btn2 = .FindControl(ID:=3823)
>  End With
>End Sub
>
>一旦保存して、再度開くと有効になります。
>試してみてな。
>ほな。


返事が遅れてすみません。

>>' EXCEL用のファイルダイアログを表示し、EXCEL形式で保存処理
>とかの箇所で、GetSaveAsFilenameを使ってるってことなんかな?

その通りです。


ありがとうございます。byKinさんの方法で検討してみます。
うーん、やっぱ通常のイベント引数では取得できないのですね・・・

ponponさん、byKinさんありがとうございました。
0 hits

【44923】名前を付けて保存とWebページとして保存の判別方法 d021 06/12/6(水) 13:31 質問
【44925】Re:名前を付けて保存とWebページとして保存... ponpon 06/12/6(水) 18:04 発言
【44933】Re:名前を付けて保存とWebページとして保存... d021 06/12/7(木) 10:39 発言
【44955】Re:名前を付けて保存とWebページとして保存... ponpon 06/12/7(木) 21:49 発言
【44988】Re:名前を付けて保存とWebページとして保存... bykin 06/12/8(金) 21:39 回答
【45050】Re:名前を付けて保存とWebページとして保存... d021 06/12/11(月) 10:28 お礼

36857 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free