Kopyalanan excel dosyasının adını yazdırmak

[junes]

Merhaba,

Konu başlıklarında arattırdım ama bulamadım. Aşağıdaki makro ile seçtiğim dosyadaki sayfayı kullandığım master excel dosyasına kopyalıyorum:

Sub Kopyala()
'
' Macro1 Macro
'
Dim Dosya As String
Dosya = Application.GetOpenFilename("Excel Files (*.xl*)," & _
"*.xl*", 1, "Dosyayı Seç", "Open", False)

Range("B3").Select
Workbooks.Open Dosya
Sheets("Ozet").Select
Range("A1:K90").Select
Selection.copy
Windows("ANADOSYA.xls").Activate
Sheets("KopyaTahta").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
Sheets("AnaOzet").Select

Ama bu seçtiğim dosyanın da dosya adını AnaOzet sayfasında birşekilde göstermek istiyorum. Bunun için bir yol mevcut mudur?

Çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Kullanıdığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Kopyala()
    Dim Dosya As String
    Dosya = Application.GetOpenFilename("Excel Files (*.xl*)," & _
    "*.xl*", 1, "Dosyayı Seç", "Open", False)
    
    Range("B3").Select
    Workbooks.Open Dosya
    Sheets("Ozet").Select
    Range("A1:K90").Select
    Selection.Copy
    Windows("ANADOSYA.xls").Activate
    Sheets("KopyaTahta").Select
    Range("A1").Select
    ActiveSheet.Paste Link:=True
    Sheets("AnaOzet").Select
    [COLOR=red]Range("A1") = Split(Dosya, "\")(UBound(Split(Dosya, "\")))[/COLOR]
End Sub