VBAがｽﾃｯﾌﾟｲﾝでﾃﾞﾊﾞｯｸできない
GetOpenFilenameを使ってﾌｧｲﾙﾊﾟｽを取得してから処理を進めるVBAを作っていました｡
取得したﾊﾟｽをｾﾙに代入→本処理という流れです｡
先ほど､ｴﾗｰがないかとｽﾃｯﾌﾟｲﾝで実行してみたのですが､
当該ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽは表示されるのですが､選択して開くとその後の処理が全て実行されてしまいます｡
何かﾌﾟﾛｸﾞﾗﾑで悪い部分はあるのでしょうか？
ﾌﾟﾛｸﾞﾗﾑ全文
Sub fileselect()
ﾀｲﾄﾙ = "ﾌｧｲﾙを選択してください｡"
FileToOpen = Application.GetOpenFilename("Excel ﾌｧｲﾙ (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", , ﾀｲﾄﾙ)
Range("H6").Value = FileToOpen
End Sub
H6のｾﾙにﾊﾟｽを代入する前野ﾀｲﾐﾝｸﾞでMSGBOXを使ってみましたが､それも自動的に表示されたので､ｽﾃｯﾌﾟｲﾝができない状況だと思います｡
※ﾌﾟﾛｸﾞﾗﾑ記述の誤り､VBAの仕様等わかればご教示下さい｡(Excel 2010を使っています｡)
当方の環境(excel2007,2013)では再現せず｡
ﾌﾟﾛｸﾞﾗﾑに問題はありません｡
(悪いかどうかは知らん)
以下､参考までに｡
･getopenfilenameは組み込み関数なので
それ以上詳細にｽﾃｯﾌﾟｲﾝできない｡
･getopenfilenameは
｢ﾀﾞｲｱﾛｸﾞを表示してﾌｧｲﾙを選択させる｣
までが1ｽﾃｯﾌﾟなので､ﾃﾞﾊﾞｯｸﾞ中かに関わらず
実行するとﾕｰｻﾞがﾌｧｲﾙを選択するまで処理を待機する｡
･1ｽﾃｯﾌﾟごとに処理を追う場合はｽﾃｯﾌﾟｲﾝ後､F8ｷｰ連打です｡
(ｽﾃｯﾌﾟｲﾝ後に｢実行->継続(F5)｣すると
その後の処理は最後まで実行されます｡)
