下記のマクロを実行すると BBB.Save のところで、実行時エラー 2147024893(8007003)が発生します。 「ショートカット"C:\Documents and Settings\ユーザー名\MyDocuments\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\拡張子無しのファイル名.lnk"を保存できません。」 ヘルプをみると、オ－トメーションエラー(Error440)となっています。 いろいろ調べましたが解りません。助けて下さい。 Sub 自動起動設定() Dim AA, BB, CC, DD Dim AAA, BBB AA = ThisWorkbook.Path CC = ThisWorkbook.Name CC = Left(CC, Len(CC) - 4) Set AAA = CreateObject("WScript.Shell") DD = Left(AA, 2) & "Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ" Set BBB = AAA.CreateShortcut(DD & "\" & CC & ".lnk") BBB.targetPath = AA & "\" & ThisWorkbook.Name BBB.Arguments = "/n,/e," & AA & "\" BBB.WindowStyle = 1 BBB.WorkingDirectory = AA BBB.Save Set BBB = Nothing Set AAA = Nothing End Sub
↧