質問: VBA初心者です。 どなたかお力添えを頂けないでしょうか。 以下作業の流れです。 1ファイルを開く
回答: '一応完了メッセージを出すようにしてますが、いらない場合は削除してください。 Sub a() Application.ScreenUpdating = False With Workbooks.Open(Filename:="C:\受信フォルダ\請求書.csv").Worksheets(1) .Cells.Clear '中身を削除 .Range("A1:T200").Value = Worksheets("詳細シート").Range("A1:T200").Value .Parent.Close SaveChanges:=True End With Application.ScreenUpdating = True MsgBox "完了しました" End Sub