Dİzİn Ve Dosya SeÇmek

[tacettin54]

MERHABALAR..
BENİM EXCEL E KAYDETTİĞİM MİZANIMDAN (C:\mizan.xls) DOSYASINDAN RAKAMLARI KOPYALAYIP VERGİ BEYANNAMELERİNİ YAPTIĞIM BİR ÇALIŞMAM VAR.
ANCAK BEN, C:\mizan.xls değilde farklı bir yere hatta farklı bir adla bile örneğin: c:\belgelerim\31082006mizan.xls gibi kaydettiğimdede bu dosyayı seçip daha sonra MİZAN makrosunu tıkladığımda aynı şekilde yine nasıl kopyalayabilirim.

Son olarak borç bakiye ayrı bir sayfaya, alacak bakiye verenleri başka bir sayfaya altalta nasıl yazdırabilirim.

Saygılar Sunarım.
Tacettin ÇELİK

 

[Recep İpek]

1.soru için aşağıdaki kodları kullanabilirsiniz.Kendinize göre uyarlamanız gerekiyor.

Sub Button1_Click()
On Error Resume Next
 Dim wb As Workbook
    FName = Application.GetOpenFilename("Excel Dosyaları,*.xls", , "Lütfen Bir Dosya Seçiniz.")
    If FName = False Then Exit Sub
    For Each wb In Application.Workbooks
        If wb.Path & "\" & wb.Name = FName Then
            MsgBox wb.Name & " Dosyası Açık"
            Exit Sub
        End If
    Next
    Workbooks.Open (FName)
End Sub

 

[tacettin54]

Çok TeŞekkÜr Ederİm...