チョコミントアイス

VBAマクロでエラーで進まない

解決済

  • 質問者：sasa51244
  • 質問日時：
  • 回答数：1件

現在、開いてるファイルを一部加工してA1セルデーターをファイル名にして同じフォルダーに保存したいのですが「参照が不正または不完全」とエラーメッセージが出ます。教えて下さい。
Application.DisplayAlerts＝True
.SaveCopyAs.Path & "¥" & .Worksheet("依頼"）.Range("A1"）.Value & ".xls"
End With
ThisWorkbook.Saved ＝ True

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： WindFaller
  • 回答日時：

.Worksheet ではなく、.Worksheets です。



ファイル名は、一旦変数に置き換えたほうがよいです。
しかし、そのエラーは、With ThisWorkbook　が正しく入れられていないと思います。

　Dim fn As String　'変数
　With ThisWorkbook
　　Application.DisplayAlerts = True
　　fn = .Path & "\" & .Worksheets("依頼").Range("A1").Value & ".xls"
　　.SaveCopyAs fn
　End With
　ThisWorkbook.Saved = True
    • good
    • 0
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報