VBA - 任意のユーザーのワークシート固有の場所を保存

Question

2つのコードを1つにまとめようとしていますが、私は完全なコードを書くのに苦労しています。手短に言えば、ユーザー（ユーザーIDを持つ）はワークブックのワークシートを特定の場所（デスクトップなど）に保存します。彼女は最初に私のデスクトップ上にワークシートを保存するためのコードである：ここでは

Sub create_file() 
Dim LastRow As Long, LR As Long, lrow As Long 
LastRow = ActiveSheet.UsedRange.Rows.Count 
Range("A2:B2").Select 
Selection.AutoFill Destination:=Range("A2:B" & LastRow) 
Rows("1:1").Select 
Selection.AutoFilter 
Range("A1").AutoFilter Field:=1, Criteria1:="Y" 
LR = Range("A" & Rows.Count).End(xlUp).Row 
Range("C2:I" & LR).SpecialCells(xlCellTypeVisible).Select 
Selection.Copy 
Sheets("Paste for gA ASSA formula").Select 
Range("A5").Select 
ActiveSheet.Paste 
lrow = Sheets("Paste for gA ASSA formula").Cells.Find(What:="*",_ 
LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row - 3 
Sheets("Formula for gA ASSAa").Select 
Range("A2").Select 
Selection.AutoFill Destination:=Range("A2:A" & lrow) 
ThisWorkbook.Sheets("Formula for gA ASSAa").Copy 
ActiveWorkbook.SaveAs "C:\Users\jeofbist3\Desktop\Deletion_Request" & 
Format(Date, "mmddyyyy") & ".xlsx", FileFormat:=51 

は、既存の場所（関係なくどこ）にブックを保存するためのコードです：

Sub savefile() 
Dim fname As String 
fname = Application.DefaultFilePath & "\" & ActiveWorkbook.Name 
MsgBox (fname) 
ActiveWorkbook.SaveAs Filename:=fname 
End Sub 

最良の選択肢は次のようになりすべてのユーザーのデスクトップに保存してください。 誰かがアイデアを持っていますか？ありがとうございます。

Answer 1

ユーザーのデスクトップに何かを保存するには、これをパスとして"C:\users\" & Environ("Username") & "\Desktop"にする必要があります。そして、ユーザーはこのディレクトリに何かを保存するための前提を持っていなければなりません。