Lưu tự động ra Destop của máy tính bất kỳ (1 người xem)

[hoahuongduong1986]

Kính gửi anh chị,
Em muốn lưu file mới ra destop của người sử dụng máy tính bất kỳ thì làm thế nào ạ ? Em làm mà toàn báo lỗi:


Sub Luu_Mau()
With Application
.ScreenUpdating = False

Sheet14.Copy
ActiveSheet.Name = "Kiem tra"
ActiveWorkbook.Close True, "C:\desktop" & ThisWorkbook.Sheets("final").Range("D1")

.ScreenUpdating = True
End With

End Sub

 

[befaint]

MsgBox Environ("USERPROFILE") & "\Desktop"

 

[hoahuongduong1986]

MsgBox Environ("USERPROFILE") & "\Desktop"

Em chưa hiểu lắm ạ ?

 

[befaint]

chưa hiểu lắm

Bạn hiểu ít như nào?

Chưa hiểu lắm chỗ nào?

 

[hoahuongduong1986]

Bạn hiểu ít như nào?

Chưa hiểu lắm chỗ nào?

Là như này

Sheet14.Copy
ActiveSheet.Name = "Kiem tra"
ActiveWorkbook.Close True, "C:\desktop" & ThisWorkbook.Sheets("final").Range("D1")

.ScreenUpdating = True
End With
MsgBox Environ("USERPROFILE") & "\Desktop"

End Sub



hay như này ạ

Sheet14.Copy
ActiveSheet.Name = "Kiem tra"
ActiveWorkbook.Close True, MsgBox Environ("USERPROFILE") & "\Desktop"& ThisWorkbook.Sheets("final").Range("D1")

.ScreenUpdating = True
End With

End Sub

Bài đã được tự động gộp: 29/3/21

Là như này

Sheet14.Copy
ActiveSheet.Name = "Kiem tra"
ActiveWorkbook.Close True, "C:\desktop" & ThisWorkbook.Sheets("final").Range("D1")

.ScreenUpdating = True
End With
MsgBox Environ("USERPROFILE") & "\Desktop"

End Sub



hay như này ạ

Sheet14.Copy
ActiveSheet.Name = "Kiem tra"
ActiveWorkbook.Close True, MsgBox Environ("USERPROFILE") & "\Desktop"& ThisWorkbook.Sheets("final").Range("D1")

.ScreenUpdating = True
End With

End Sub

Dạ, được rồi ạ. Em cảm ơn anh ạ.

 

[huhumalu]

Nó sẽ không lỗi nếu ai đó chưa từng "Move" cái desktop đi ra vị trí khác, ví dụ như Desktop nằm ở ổ D, thay vì vẫn nằm ở ổ C chẳng hạn

Sub DesktopPathInfo()
Dim DesktopPath1, DesktopPath2, DesktopPath3 As String
    DesktopPath1 = CreateObject("WScript.Shell").specialfolders("Desktop") & "\"
    DesktopPath2 = Environ("USERPROFILE") & "\Desktop\"
    DesktopPath3 = Environ("PUBLIC") & "\Desktop\"
    MsgBox DesktopPath1 & vbCrLf & DesktopPath2 & vbCrLf & DesktopPath3
End Sub

Bạn chạy thử xem mình nên chọn cái gì.