ＯＳ名：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.948
948ＶＢＡで共有設定を変更したい。龍一郎 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