|
▼kono さん:
今晩は・・・
貴殿のコードをちょっとアレンジしました。
Sub Macro81()
Dim mypath As String
Dim myfolder As String
Dim mycode As String
mypath = ActiveWorkbook.Path & "\" 'ActiveとかThisはルーズ者に便利なんです。
myfolder = Range("A1")
mycode = Range("B1")
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs Filename:=mypath & myfolder & mycode
ActiveWorkbook.Close
Application.DisplayAlerts = False
Application.Quit
End Sub
でも、kein様の記述がはるかにレベルが上ですね。
少しずつ真似させてもらいます。
それがこれ↓
Sub Macro82()
Dim myfolder As String, mycode As String
With Worksheets("Sheet1")
myfolder = .Range("A5").Value
mycode = .Range("B5").Value
.Copy
End With
ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & myfolder & mycode
Application.DisplayAlerts = False
Application.Quit
End Sub
|
|