Results of 1 - 1 of about 58 for CurrentDirectory (0.000 sec.)
- [[20201008211557]]
- #score: 13656
- @digest: 1f3425c5188ca1fd6dc82141c6fbafc8
- @id: 85422
- @mdate: 2020-10-08T16:24:19Z
- @size: 1705
- @type: text/plain
- #keywords: 雑魚 (12695), xldialogopen (8325), 明程 (7748), び雑 (7748), 騒音 (6955), ル場 (6098), ずpc (5802), プ? (5266), currentdirectory (5152), 見様 (3868), 様見 (3290), 限ル (3256), 魚） (3212), dialogs (2969), （学 (2767), 見真 (2572), 無限 (2261), 学び (1634), wscript (1419), desktop (1312), 真似 (1137), specialfolders (1058), 起動 (1015), 識不 (956), 足な (932), userform1 (876), 再起 (791), 自宅 (743), 会社 (577), ファ (544), shell (542), スク (527)
- 『無限ループ?』（学び雑魚）
すみません、マクロを開いてから別のエクセルデータを選択して 開かせたくてネットで見様見真似で作ってみました。 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... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202010/20201008211557.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97047 documents and 608227 words.
訪問者：