実現したいこと
VBSを用いて、ある共有のドライブに入っているエクセルを、色々な人のデスクトップに、ショートカットとして作成したいです。
前提
メモ帳でコードを作成(VBSで保存済み)しているところです。
メモ帳(VBS)は、私の個人のダウンロードフォルダにあり、
エクセル本体は、共有のドライブ、エクセルのショートカットは私の個人のダウンロードフォルダにあります。
この、エクセルのショートカットを、皆さんのデスクトップに保存できるVBSを作りたいです。
発生している問題・エラーメッセージ
ステートメントの末尾が不正です。 コード:800A0401 ソース:マイクロソフトVBAscript コンパイル エラー
該当のソースコード
vbs
1Dim fso,yoyakupath 2Dim wShell,startUpFolderPath,deskTopFolderPath 3 4set wShell = createObject("wscript.shell") 5deskTopFolderPath = wShell.SpecialFolders.Item("Desktop") & "\予約表.lnk" 6yoyakupath = "C:\Users\sssss\Downloads\予約表.lnk" 7 8set fso = createObject("Scripting.FileSystemObject") 9call fso.copyfile(YODONlnkpath, deskTopFolderPath) 10 Set fso = Nothing 11 Set wShell = Nothing 12 WScript.Quit
試したこと
エクセルの保存先やショートカットの作成場所などを変更してみたりしましたが、同様のエラーが発生してしまいました。
色々なサイトを見て、コード自体が大きく間違っているようには思えないところ、手詰まりになってしまったので、お尋ねしました。
どうぞよろしくお願いいたします。
エクセル本体は、共有のドライブ、エクセルのショートカットは…
のファイル名は、いずれも「予約表」です。よろしくお願いします。
そのまま実行すると、
行: 9
文字: 1
エラー: プロシージャの呼び出し、または引数が不正です。
コード: 800A0005
ソース: Microsoft VBScript 実行時エラー:
になるので、質問文掲載のコードとエラーメッセージが対応していません。
「このコードを実行するとこのエラーになる」というのをちゃんと載せましょう。
あとこのプログラムだと、「VBSでエクセルのショートカットを作成したい」じゃなくて「VBSで ファイルをコピーしたい」ですね。
必要なものがあれば、共有フォルダまで取りにきてもらえば。
otn様、logres_Fan様
お二方とも、ご指摘などありがとうございます。今後、質問する際に、気をつけさせていただきます。
どうぞよろしくお願い致します。

回答1件
あなたの回答
tips
プレビュー