下記のマクロを実行すると
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
No.1ベストアンサー
- 回答日時:
こんにちは。
Windowsのバージョンが異なるようなので、その分、確度の低い話になってしまいますが、
エラーは再現できました。原因については下記■■マークの辺りを読んで下さい。
ご提示のコードを修正することで期待通りに動くことは確かめましたので、
以下で、確認、修正、するべきポイントを挙げておきます。
////////////
CC = ThisWorkbook.Name
CC = Left(CC, Len(CC) - 4)
ブック名.xls ならば、CCは "ブック名" ですが、
ブック名.xlsx ならば、CCは "ブック名." (ドットが余計)になってしまいます。
Set BBB = AAA.CreateShortcut(DD & "\" & CC & ".lnk")
ここ↑の引数が、DD & "\ブック名..lnk")のように"."ドットが重なっていないか、
確認してください。
確実に"ブック名"だけを採るなら
CC = Left(CC, InStrRev(CC, ".") - 1) '★一番右にある"."のひとつ前までの文字列
のように書きます。
////////////
AA = ThisWorkbook.Path
....
DD = Left(AA, 2) & "Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ"
AAの中身は、"C:\....."とか"D:\....."等のドライブ名で始まっているフォルダパスです。
ThisWorkbookが保存されたドライブとスタートアップフォルダのドライブが同じだという前提
が有効だとすれば、ですが、Left(AA, 2)では、"\"が抜けてしまいますね。■■
たぶんこれがエラーの原因と思われます。
DD = Left(AA, 3) & "Documents .....
とか、
DD = Left(AA, 2) & "\Documents .....
なのでは?
スタートアップフォルダのドライブが勝手に変わることはないですし、
逆にThisWorkbookがどのドライブ配下にあるかは簡単に変えることが出来てしまいます。
なので、ここは、
DD = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ"
などのようにドライブ名を含めて決め打ちした方が安全なのではないかと思いますが、如何でしょう。
////////////
念の為、スタートアップ"フォルダのパスが、実際にお使いの環境に存在しているか、
エクスプローラ等で確認しておいた方がいいかも、です。
因みに、当方の環境では、
DD = "C:\Users\ユーザー名\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
を指定することで、上述の修正と合わせれば、
正しくショートカットが設定できることと、
PC起動時にExcelアプリケーションとThisWorkbookが立ち上がること、
を確認しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
VBAで別のブックにシートをコピ...
-
VBA コードを実行すると画面が...
-
別ブックをダイアログボックス...
-
【ExcelVBA】インデックスが有...
-
エクセルマクロで、他ブックか...
-
別ブックの列同士の値が一致し...
-
VBSでExcelのオープン確認
-
ユーザーフォームの切り替えに...
-
VBAで別ブックのシートを指定し...
-
Excelブックがアクティブになっ...
-
【ご教示ください】VBAの記述方...
-
excel2000の終了
-
マクロVBA 1シートをまとめ...
-
エクセルVBAでテキストボックス...
-
ACCESSでExcelにデータ出力、高...
-
VBS Bookを閉じるコード
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA シート名が一致した場合の...
-
VBA 実行時エラー 2147024893
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
【マクロ】違うフォルダにある...
-
ユーザーフォームの切り替えに...
-
[Excel]ADODBでNull変換されて...
-
vbaで他のブックに転記したい。...
-
【Excel VBA】書き込み先ブック...
-
Excel2007VBAファイルの表示に...
-
vbaでvbaProjectのパスワード解...
おすすめ情報