Dvojí záznam

[JirkaT]

Zdravim všechny,

nevíte někdo, jestli je možné pralelně ukládat do dvou totožných souborů? Příklad:
Mám dva stejné xls. soubory, jeden je uložen na pevném disku a druhý na síťovém, v jednom něco upravím a uložím. Chtěl bych, aby se mi ta změna promítla i v druhém souboru. Je to možné?

[sondaw]

Podle mne jen v případě, že jeden soubor je zástupce toho druhého, potom změny, které provedeš v jednom se zobrazí i v tom druhém

[JirkaT]

To mi bohužel nepomůže, protože když nebudu připojen na síťový disk, zástupce mi soubor neotevře. A to je vlastně jádro celého problému. Možnost práce na souboru, který po připojení PC na síť a otevření se sám zaktualizuje s tím druhým totožným souborem.

[X]

Použij nějaký software pro synchronizaci nebo ukládej jen na síťový disk, případně si udělej tlačítko na ukládání a pomocí VBA/makra ulož soubor na 2 místa.

VBA (upravil jsem to z mé rutiny, musíš si to dopilovat na své podmínky):

Kód: Vybrat vše

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Dim location1 As String, location2 As String, thisfile As String, name As String
        location1 = "C:\DOKUMENTY\LEXIKON\LEXIKON "
        location2 = "X:\DOKUMENTY\LEXIKON\LEXIKON "
        thisfile = Format(Now(), "yyyy/mm/dd ") & Format(Time(), "hh-mm-ss") & ".xls"
        name = location1 + thisfile 
        Cells(1, 1).Select
        ActiveWorkbook.SaveAs Filename:=name
        name = location2 + thisfile
        ActiveWorkbook.SaveAs Filename:=name
    End If
End Sub

-----------------------------------------------------------------------

Nahraje sešit se jménem LEXIKON s datem a časem z doby uložení na 2 disky:

C:\DOKUMENTY\LEXIKON\
X:\DOKUMENTY\LEXIKON\