Hot Fox: Re: ]] XL-mania [[ Membuat duplicate file untuk satu folder tertentu

quinta-feira, 8 de outubro de 2009

Re: ]] XL-mania [[ Membuat duplicate file untuk satu folder tertentu

Om om...kodingannya kayak gini nih oom (File Terlampir).... :
- Di Modul :
Sub Simpenan()
    Dim vWB As Workbook
    Dim NamaFolder, NamaFolderLokal As String

    ' Set Nama File Excel
    NamaFile = "Puthut"

    ' Lokasi Folder Lokal
    NamaFolderLokal = ("c:\Tes")
    ' Lokasi Folder Jaringan
    ' Mapping Jaringan :
    ' \\Serper\Nama Polder
    NamaFolder = ("\\TEGUH\Puthut")

    Application.ScreenUpdating = False
    On Error Resume Next
    ' Buat Direktori Lokal......
    ' Kalo Jaringan ane gak tau gimana caranya
    ' Bikin Polder dari Klien dan bikinnya di Serper
    MkDir NamaFolderLokal
    On Error GoTo 0
        ChDir (NamaFolder)
        ActiveSheet.Copy
        Set vWB = ActiveWorkbook

        ' Simpen Lokal dan Jaringan
        With vWB
            .SaveAs NamaFolder & "\" & NamaFile & ".xls"
            .SaveAs NamaFolderLokal & "\" & NamaFile & ".xls"
        End With
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub

- Di This Woork book
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Sebelum ditutup biar pilenya ngesape dolo di jaringan
    ' ma lokal
    Call Simpenan
End Sub

Ane gak tau yak oom, kalo di jaringan dari kompi klien ke server apa bisa klien bikin polder di server.........

...

- ^ Puthut Wibowo ^-

--- On Thu, 10/8/09, irwanic@gmail.com <irwanic@gmail.com> wrote:

From: irwanic@gmail.com <irwanic@gmail.com>
Subject: ]] XL-mania [[ Membuat duplicate file untuk satu folder tertentu
To: XL-mania@yahoogroups.com
Date: Thursday, October 8, 2009, 10:13 AM

Dear The Master,

Saya ingin membuat suatu folder yang jika kita create file excel
didalam folder tersebut maka akan tersimpan otomatis di dua lokasi yang
berbeda di local drive & di network drive.
Begitu juga jika saya mengedit file2 tersebut maka akan tersave di dua
lokasi tersebut secara bersamaan.

Namun tidak semua saya inginkan seperti itu, jika saya membuat file di
luar folder tersebut maka hanya tercreate dan tersimpan di satu lokasi
saja dimana saya membuat file tersebut.

Bagaimana bapak2 & ibu2, mohon bantuan

Terima kasih

Irwan Cahyono

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tolong cariin momods kerjaan jadi direktur dongggg... :D :D :D    |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other