Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Automatyczny zapis plików w folderze My dokuments VB Accesss

Julka M 26 Lis 2010 18:50 872 2
  • #1 26 Lis 2010 18:50
    Julka M
    Poziom 9  

    Mam problem z automatycznym zapisem w folderze My dokuments pliku z raportem generowanym automatycznie z Accessa 2010.
    W Office 2010 nie można zapisywać plików bezpośrednio na dysku C tylko w folderze : C:\Documents and Settings\x\my dokuments gdzie x jest jest xnuc-iem osoby logującej się do systemu.

    Mam taki kod:

    Code:
     Dim a As Variant
    
    Dim nasz_plik As Object
    a = "C:\Documents and Settings\xxxxxxxxx\my dokuments\plik.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "plik", a, True

    i działa on gdy w miejsce x wpiszę xnucc osoby pracującej w bazie ale nie wiem jak zdefiniować zmienną "x" - żeby podstawiał się xnuc osoby pracującej/ logującej się do systemu. (Z bazy korzysta wiele osób) Kombinowałam z "environ" ale to nie takie proste :(

    fajnie by było gdyby ktoś wiedział jak to zrobić

    Proszę pamiętać o używaniu znaczników code. - arnoldziq

    0 2
  • Pomocny post
    #2 26 Lis 2010 19:02
    marcinj12
    Poziom 40  

    Spróbuj czegoś takiego:

    Code:
    Set objFolders = CreateObject("WScript.Shell").SpecialFolders
    
    MsgBox objFolders("mydocuments")

    Albo tego:
    Code:

    MyDocsPath = Environ$("USERPROFILE") & "\Moje dokumenty\"
    MsgBox MyDocsPath

    To drugie jest o tyle "gorsze", że nazwa zależy od systemu (w angielskich wersjach będzie My Documents")

    0
  • #3 27 Lis 2010 12:12
    Julka M
    Poziom 9  

    Super, dzięki :)) !!!!!!!!!!!!

    0