[[20201123235640]]　『フォルダの場所指定について』（朝倉東）　ページの最後に飛ぶ

『フォルダの場所指定について』（朝倉東）

こんにちは。教えて頂けたらと思いまして投稿させて頂きます。
インターネットで調べながら簡易的なマクロを組んでいるのですが

With CreateObject("wscript.shell")

            currentdirectory = "C:\データ保管場所"
End With

や

ChDir "C:\データ保管場所"

でデータを開く場所を指定しているのですが
マクロを起動してダイアログの一回目は場所を指定してくれずに
何も指定しなかった時のドキュメント？が表示され

あれ、と思いもう一度マクロを起動してダイアログを開くと
今度は指定のフォルダを表示してくれる事が何度かあります。
PCのスペックなのか根本的に間違っているのかわからずです。

回避する手段はありましたら教えて頂けたらと思います。

Sub ダイアログで開いて読み込む()

Dim deta As String

    With CreateObject("wscript.shell")    
            currentdirectory = "C:\データ保管場所"
    End With

    deta = Application.GetOpenFilename("サンプルデータ (*.txt),*.txt")
    If deta = "False" Then Exit Sub
    Workbooks.Open Target

End Sub

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

 ネット検索した情報だけですみませんが、
http://officetanaka.net/excel/vba/file/file02.htm
 のように、
 ChDir "C:\データ保管場所"
 の前に、
 ChDrive "C"
 を入れてみてどうでしょうか。
（QS） 2020/11/24(火) 00:41

 >   With CreateObject("wscript.shell")    
 >           currentdirectory = "C:\データ保管場所"
 >   End With

 スペル合ってるのか見てないけど、他でエラーになるでしょ。
 適当に書いています？、
（Why） 2020/11/24(火) 02:59

Option Explicit書いて無ければエラーにならないので、単に気がついてないのでは？

CurrentDirectoryの前にドットを付けたらどうなりますかね。

 With CreateObject("wscript.shell")
     .CurrentDirectory = "C:\データ保管場所"
 End With

それと、モジュールの一行目に「Option Explicit」が無ければ追加してください。
（通りすがり） 2020/11/24(火) 09:42

 参考まで。

http://officetanaka.net/excel/vba/beginner/11.htm
（リンクマン） 2020/11/24(火) 15:40

コメント返信：

[ 一覧(最新更新順) ]

[[20201123235640]] 『フォルダの場所指定について』（朝倉東） ページの最後に飛ぶ

[[20201123235640]]　『フォルダの場所指定について』（朝倉東）　ページの最後に飛ぶ