名前を付けて保存の作り方？ (ID:104632)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 コモンダイアログボックスを使用してWindowsの名前を付けて保存を作りたいのです。 サンプルを見つけたので実行したのですが、うまく動きません。どこがおかしいのでしょうか？ Private Sub cmdSave_Click() On Error GoTo CancelError With WatchDialog .CancelError = True .Filter = "Watch File(*.watch)|*.watch" .ShowSave SaveFileName = .FileName End With SaveData (SaveFileName) CancelError: Exit Sub End Sub 実行すると、SaveFileNameが宣言されていません。とエラーが出たので Stringで宣言しました。 そうすると、SaveDataで関数がありませんとエラーが出てしまいます。 よろしくお願いします。