[[20190126091016]]　『指定の際*.xlsmのファイルも指定できるように』（狭山）　ページの最後に飛ぶ

『指定の際*.xlsmのファイルも指定できるように』（狭山）

お世話になります。
全てを入れていないのですがマクロを実行する際に

 .xlsmのファイルも指定したいのですが何処を変更すればよろしいか
教えていただけないでしょうか

因みに

 OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx),*.xls; *.xlsx")

 の部分を
 OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx*.xlsm),*.xls; *.xlsx*.xlsm")
と変更したのですがファイルが指定できませんでした。

Option Explicit

Private OpenFileName As String
Private nowSheet As Worksheet

Sub importData()

    Dim bookMonth As Workbook
    Dim tempSumSheet As Worksheet
    Dim sumSheet As Worksheet

    '-----------------------------------------------------------------------------
    'ファイル指定
    '-----------------------------------------------------------------------------
    OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx),*.xls; *.xlsx")
    If OpenFileName = "False" Then
        Exit Sub
    End If

    '-----------------------------------------------------------------------------
    '指定されたファイルが開くことができるかどうかのチェック
    '-----------------------------------------------------------------------------
    '自分自身の場合は、飛ばす
    If ThisWorkbook.Path & "\" & ThisWorkbook.Name = OpenFileName Then
        MsgBox "このファイルは指定できません。", vbExclamation
        Exit Sub
    End If
    'すでに開かれている場合
    If isOpenBook(OpenFileName) = False Then
        MsgBox "指定されたEXCELファイルは、既に開かれている可能性があります。" & vbCrLf & "閉じてから再度、指定して下さい。", vbExclamation
        Exit Sub
    End If
宜しくご指導をお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 見た目だけで、何の裏も取っていませんが、
 追加した拡張子の前にセミコロンが無いですけど、大丈夫ですか？

  ＞OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx*.xlsm),*.xls; *.xlsx*.xlsm")

（半平太） 2019/01/26(土) 09:33

半平太さんの指摘通りかと。

[ファイルを開く]ダイアログボックスを表示する（GetOpenFilenameメソッド）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
https://www.moug.net/tech/exvba/0060013.html
（hatena） 2019/01/26(土) 10:28

（半平太）様
（hatena）様
有難うございました。
すみません私の入力ミスでした。

"Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm"

で出来ました。
今後とも宜しくお願い致します。
（狭山） 2019/01/26(土) 11:00

コメント返信：

[ 一覧(最新更新順) ]

[[20190126091016]] 『指定の際*.xlsmのファイルも指定できるように』（狭山） ページの最後に飛ぶ

[[20190126091016]]　『指定の際*.xlsmのファイルも指定できるように』（狭山）　ページの最後に飛ぶ