PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : PowerPoint 2016)
エクセルを開く方法の変更
投稿日時: 19/03/26 21:20:15
投稿者: たのきち

お世話になっております。
 
最近 オフィス2016に切り替えました。
 
オフィス2003時代に作ったPPのマクロで
 'エクセル起動
    Set objExcel = CreateObject("Excel.Application")
    With objExcel
        .Visible = True 'ここでエクセルが開く
        Set Bk = .Workbooks.Open(strPath2)
    End With
 
と言う記述があるのですが、
旧エクセルファイルしか表示されず、
拡張子「.xlsm」(今回開きたいのはこれですが)「.xlsx」等のファイルが表示できません。
何を追記したらいいのでしょうか?
(そもそもここだけの記述で足りてますか?)
 
1つ目のデバックのため、類似のエラーがある気がします。
かなりマクロをいじらなくなって経ってしまっているので
どういう事が起こっているのかわかっていません。

回答
投稿日時: 19/03/26 21:39:09
投稿者: よろずや

strPath2 に値を入れている箇所を探しましょう。

投稿日時: 19/03/26 23:20:14
投稿者: たのきち

     
ありがとうございます。
 
指定している場所がわかりました。
 
そこに拡張子を以下のように追加したのですが
 
 Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    With dlg
        .Filters.Clear
        .Filters.Add "Excel2003", "*.xls"
        .Filters.Add "Excelファイル", "*.xlsx"
         .Filters.Add "Excelファイル", "*.xlsm"
        .InitialFileName = ActivePresentation.Path & "\"
    End With
 
表示されず、ふとフォルダ選択時の右下を見たら
拡張子を選択するボックスがありました。
ここで選んだ拡張子が表示されましたが、
根本的に、すべて表示する方法はあるのでしょうか?
(2003のときにはこういう選び方はしなかったので)
 

回答
投稿日時: 19/03/27 08:59:39
投稿者: よろずや

   .Filters.Add "Excelブック", "*.xls; *.xlsx; *.xlsm"

トピックに返信