[[20201008211557]]　『無限ループ？』（学び雑魚）　ページの最後に飛ぶ

『無限ループ？』（学び雑魚）

すみません、マクロを開いてから別のエクセルデータを選択して
開かせたくてネットで見様見真似で作ってみました。

ThisWorkBookに下のコードを入れています。

Private Sub Workbook_Open()

　　　UserForm1.Show

      With CreateObject("wscript.shell")
      .currentdirectory = "C:\Users\jitaku\Desktop\"

End With

     Application.Dialogs(xlDialogOpen).Show "*.

End With

End Sub

会社ではファイル場所を会社の指定サーバにしたら思った通りの動きをしてくれたのですが
自宅でファイル場所をデスクトップにして起動させたら無限ループ？
なのか起動せずPC再起動するとマクロが起動します。

原因は自分の知識不足なのはわかっているのですが
このコードの場合、どこか根本的におかしいでしょうか。

指定したファイルを最初に開くようにしたいです。

会社だとファイルを開く画面が出て
家だと開かず？開いてる？なのか始まらずPCが騒音になります。

恐らく説明不足なのかと思います、ごめんなさい。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

"*.　→ "*"
End With ✕
（りら） 2020/10/08(木) 22:11

りらさんコメントありがとうございます
コピペミスでした　
そこにアスタリスク追加してもやはり直りませんでした…
（学び雑魚） 2020/10/09(金) 00:57

 UserForm1 が何をしているかわかりませんが、それを終了しないので先に進まないのではないでしょうか。

 不要であれば削除。そうでなければ機能の説明程度はあったほうが良いです。
 後ろのファイル選択も、下記のような方がスマートでしょうか。

 Private Sub Workbook_Open()
     With CreateObject("Wscript.Shell")
        .CurrentDirectory = .SpecialFolders("Desktop")
    End With
    Application.Dialogs(xlDialogOpen).Show "*."
 End Sub

（QS） 2020/10/09(金) 01:24

コメント返信：

[ 一覧(最新更新順) ]

[[20201008211557]] 『無限ループ？』（学び雑魚） ページの最後に飛ぶ

[[20201008211557]]　『無限ループ？』（学び雑魚）　ページの最後に飛ぶ