simpan otomatis di dekstop

  1. 7 minggu lalu
    Di sunting 7 minggu lalu oleh bejo

    selamat malam para suhu yg saya hormati,
    saya sedang membuat file master daftar nilai untuk guru, jadi guru tinggal memilih kelas dan mapel otomatis file sudah ter create dan tersimpan di folder Nilai PTS di Dekstop dengan bantuan vba.
    Hanya ketika ada yg menggunakan laptop lenovo, aplikasi error, Run Time 76, ( muncul peringantan path not found ).
    Mohon bantuannya.
    terima kasih sebelumnya.

  2. 6 minggu lalu

    Caton

    Okt 26 Terverifikasi Indonesia + 17.741 Poin

    Mas @bejo ...

    Untuk baris berikut,

    fname = "C:\Users\" & UserName & "\Desktop\NILAI PTS GANJIL 2021\" & wk & ".xlsx"

    coba diubah menjadi,

    fname = Environ("USERPROFILE") & "\Desktop\NILAI PTS GANJIL 2021\" & wk & ".xlsx"

    Atau tambahkan prosedur berikut dalam UserForm terkait,

    Private Function GetDesktop() As String
        Dim xWSH As Object
    
        Set xWSH = CreateObject("WScript.Shell")
        GetDesktop = xWSH.SpecialFolders("Desktop")
        Set xWSH = Nothing
    End Function

    lalu panggil prosedur di atas dengan baris berikut,

    fname = GetDesktop & "\NILAI PTS GANJIL 2021\" & wk & ".xlsx"

    Demikian

  3. 5 minggu lalu

    terima kasih banyak master, segera saya coba, sekali lagi terima kasih

 

atau Mendaftar untuk ikut berdiskusi!