回答受付が終了しました

ID非公開

2021/1/21 15:10

11回答

こんにちは。 どなたかVBAについて詳しいかた、コードを組んでくださいませんでしょうか?何度やってもできなくて困っております。

Visual Basic | Excel180閲覧xmlns="http://www.w3.org/2000/svg">500

1人が共感しています

回答(1件)

0

Sub try() Dim ws As Worksheet ActiveSheet.Copy After:=Worksheets(Worksheets.Count) Set ws = ActiveSheet With ws.UsedRange .Value = .Value End With With ActiveSheet ws.Name = Format(.Range("M1").Value & "客先" & .Range("M5").Value) End With Dim FPath As String FPath = "C:\Users\Public\Desktop" & ActiveSheet.Name & ".xlsx" ActiveWorkbook.SaveAs Filename:=FPath, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub ちょっと作成してみました。 サーバーへのUPは "C:\Users\Public\Desktop" を変えたらいけるかもしれません・・・・。