VBSでエクセルのショートカットを作成したい

実現したいこと

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

試したこと

エクセルの保存先やショートカットの作成場所などを変更してみたりしましたが、同様のエラーが発生してしまいました。
色々なサイトを見て、コード自体が大きく間違っているようには思えないところ、手詰まりになってしまったので、お尋ねしました。
どうぞよろしくお願いいたします。

sankakuonigiri

2023/04/20 02:20

エクセル本体は、共有のドライブ、エクセルのショートカットは… のファイル名は、いずれも「予約表」です。よろしくお願いします。

otn

2023/04/20 04:48

そのまま実行すると、行: 9 文字: 1 エラー: プロシージャの呼び出し、または引数が不正です。コード: 800A0005 ソース： Microsoft VBScript 実行時エラー: になるので、質問文掲載のコードとエラーメッセージが対応していません。「このコードを実行するとこのエラーになる」というのをちゃんと載せましょう。あとこのプログラムだと、「VBSでエクセルのショートカットを作成したい」じゃなくて「VBSでファイルをコピーしたい」ですね。