VBA: Jak zapisać skoroszyt programu Excel na komputer, niezależnie od użytkownika?

Question

Mam skoroszyt programu Excel, który na przycisku formularza Kliknij muszę zapisać kopię skoroszytu na pulpicie użytkownika.

Pierwotnie wszystko było w udostępnionym folderze sieciowym, ale teraz mam około 6 różnych użytkowników, którzy po kliknięciu przycisku muszą zapisać skoroszyt na swoich indywidualnych komputerach.

Czy ich sposób (zgodnie z kodowaniem) do zapisywania na pulpicie komputera bez konieczności określania indywidualnych użytkowników (co wymagałoby ode mnie utrzymania 6 różnych plików skoroszytu)?

Answer 1

Myślę, że jest to najbardziej niezawodny sposób uzyskania ścieżki pulpitu, która nie zawsze jest taka sama jak nazwa użytkownika.

MsgBox CreateObject("WScript.Shell").specialfolders("Desktop") 

Answer 2

Wspominałeś, że każdy z nich ma swoje własne maszyny, ale jeśli trzeba zalogować się na komputerze współpracowników, a następnie użyć pliku, zapisywanie go przez „C: \ Users \ Public \ Desktop \ "udostępni je różnym nazwom użytkowników.

Public Sub SaveToDesktop() 
    ThisWorkbook.SaveAs Filename:="C:\Users\Public\Desktop\" & ThisWorkbook.Name & "_copy", _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled 
End Sub 

Nie jestem pewien, czy byłby to wymóg, ale może pomóc!

Answer 3

Nie wiem, czy to jest nadal aktualne, ale używam ten sposób

Public bEnableEvents As Boolean 
Public bclickok As Boolean 
Public booRestoreErrorChecking As Boolean 'put this at the top of the module 

Private Declare Function apiGetComputerName Lib "kernel32" Alias _ 
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ 
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 

Function GetUserID() As String 
' Returns the network login name 
On Error Resume Next 
Dim lngLen As Long, lngX As Long 
Dim strUserName As String 
strUserName = String$(254, 0) 
lngLen = 255 
lngX = apiGetUserName(strUserName, lngLen) 
If lngX <> 0 Then 
    GetUserID = Left$(strUserName, lngLen - 1) 
Else 
    GetUserID = "" 
End If 
Exit Function 
End Function 

Następny bit zapisać jako plik PDF, ale mogą ulec zmianie w zależności

Public Sub SaveToDesktop() 
Dim LoginName As String 
LoginName = UCase(GetUserID) 

ChDir "C:\Users\" & LoginName & "\Desktop\" 
Debug.Print LoginName 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\" & LoginName & "\Desktop\MyFileName.pdf", Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
    True 
End Sub