ＯＳ名：Windows98パソコン名：NEC PC9821Xa20ソフト名：NT4.0 EXCEL97こんにちは。何をしたいかと言うと、現在ＯＳがＮＴなのですが、ログインすると自動的にＡ，Ｂドライブが共有になってしまうので それを自動的に”共有しない”にしたいのです。 でそれをＥＸＣＥＬのＶＢＡを使って自動的に行おうと頑張っています。下に示すマクロでエクスプローラー、ドライブ選択、ファイル、プロパティー、でプロパティー変更のダイアログボックスまではいけるのですが、 その先が実際のキー入力はＣＴＲＬ＋ＴＡＢなのですが、これがＳＥＮＤＫＥＹで入力できません。ＨＥＬＰには”＾（｛ＴＡＢ｝）” のように書いてあるのですが・・・ 判る人いませんでしょうか。よろしく御願いします。 ＰＣはＮＥＣ　ＰＣ−９８２１Ｘａ２０です。 Sub SENDKEYTEST() Dim ReturnValue ReturnValue = Shell("A:\WINNT\explorer.exe", 1) AppActivate ReturnValue SendKeys "{TAB}", True SendKeys "%", True SendKeys "%", True SendKeys "F", True SendKeys "R", True 'ここまでは動く SendKeys "^({TAB})", True　’←ここが動かない。 End Sub 
◇-ＶＢＡで共有設定を変更したい。-龍一郎(3/4-16:42)No.949
　┗Re:ＶＢＡで共有設定を変更したい。-龍一郎(3/5-12:25)No.954
949ＶＢＡで共有設定を変更したい。龍一郎 3/4-16:42

ＯＳ名：Windows98
パソコン名：NEC PC9821Xa20
ソフト名：NT4.0 EXCEL97

こんにちは。

何をしたいかと言うと、現在ＯＳがＮＴなのですが、ログインすると自動的にＡ，Ｂドライブが共有になってしまうので
それを自動的に”共有しない”にしたいのです。
でそれをＥＸＣＥＬのＶＢＡを使って自動的に行おうと頑張っています。
下に示すマクロで
エクスプローラー、ドライブ選択、ファイル、プロパティー、でプロパティー変更のダイアログボックスまではいけるのですが、
その先が実際のキー入力はＣＴＲＬ＋ＴＡＢなのですが、これがＳＥＮＤＫＥＹで入力できません。ＨＥＬＰには”＾（｛ＴＡＢ｝）”
のように書いてあるのですが・・・
判る人いませんでしょうか。よろしく御願いします。
ＰＣはＮＥＣ　ＰＣ−９８２１Ｘａ２０です。


Sub SENDKEYTEST()
Dim ReturnValue
ReturnValue = Shell("A:\WINNT\explorer.exe", 1)
AppActivate ReturnValue
SendKeys "{TAB}", True
SendKeys "%", True
SendKeys "%", True
SendKeys "F", True
SendKeys "R", True 'ここまでは動く
SendKeys "^({TAB})", True　’←ここが動かない。
End Sub


954Re:ＶＢＡで共有設定を変更したい。龍一郎 3/5-12:25
記事番号949へのコメント
龍一郎さんは No.949「ＶＢＡで共有設定を変更したい。」で書きました。
>ＯＳ名：Windows98
>パソコン名：NEC PC9821Xa20
>ソフト名：NT4.0 EXCEL97
>
>こんにちは。
>
>何をしたいかと言うと、現在ＯＳがＮＴなのですが、ログインすると自動的にＡ，Ｂドライブが共有になってしまうので
>それを自動的に”共有しない”にしたいのです。
>でそれをＥＸＣＥＬのＶＢＡを使って自動的に行おうと頑張っています。
>下に示すマクロで
>エクスプローラー、ドライブ選択、ファイル、プロパティー、でプロパティー変更のダイアログボックスまではいけるのですが、
>その先が実際のキー入力はＣＴＲＬ＋ＴＡＢなのですが、これがＳＥＮＤＫＥＹで入力できません。ＨＥＬＰには”＾（｛ＴＡＢ｝）”
>のように書いてあるのですが・・・
>判る人いませんでしょうか。よろしく御願いします。
>ＰＣはＮＥＣ　ＰＣ−９８２１Ｘａ２０です。
>
>
>Sub SENDKEYTEST()
>Dim ReturnValue
>ReturnValue = Shell("A:\WINNT\explorer.exe", 1)
>AppActivate ReturnValue
>SendKeys "{TAB}", True
>SendKeys "%", True
>SendKeys "%", True
>SendKeys "F", True
>SendKeys "R", True 'ここまでは動く
>SendKeys "^({TAB})", True　’←ここが動かない。
>End Sub
>

解決してしまいました。失礼いたしました。
>