dosya açma ve dosya yolu

[oydemir]

makroyla ağdaki kapalı dosyalardan veri alıyorum. Fakat bu dosyaya ek yapmak istiyorum forumda TextBox lara yazdırılanları buldum ama kullandığım makroya ekleyemedim. Form açıldığında kapalı dosyayı seçip birim sayfasına ekliyorum. Açığım dosyanın yolunun sayfa1 de a1 hücresine dosya yolunu a2 hücresine dosya adının yazılmasını istiyorum.
Private Sub CommandButton5_Click()
Sheets("BİRİM").Select
Sheets("BİRİM").Range("a1:Ah2500").ClearContents
With Application.FileDialog(msoFileDialogOpen)

.Filters.Clear
.Filters.Add "excel 2007-13", "*.xlsx;*.xlsm;*.xls"
AllowMultiSelect = False
.Show

If .SelectedItems.Count = 0 Then
MsgBox "excel dosyası sec"
Exit Sub
End If
kopya = InputBox("Koplayanacak hücre aralığını yazınız", Default:="A1:AE5000")
yapiştir = InputBox("yapıştırılacak hücreyi yazınız", Default:="b1")

Application.Workbooks.Open .SelectedItems(1)
Set kaynak = Application.ActiveWorkbook


'kaynak.Sheet("b").Range(kopya).Copy("b").Range (yapiştir)
kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapiştir)
kaynak.Close False
Set kaynak = Nothing


End With
MsgBox "BİRİM_MALİK İşlemi tamam...", vbInformation

End Sub
teşekkürler

 

[hamitcan]

Bu 2 satırı koda ilave edin.

[a1] = .InitialFileName
[a2] = Replace(.SelectedItems(1), .InitialFileName, "")

 

[muygun]

Merhaba;
Set kaynak = Application.ActiveWorkbook
satırını altına;

ThisWorkbook.Worksheets("Sayfa1").Range("a1") = ActiveWorkbook.Path
ThisWorkbook.Worksheets("Sayfa1").Range("a2") = ActiveWorkbook.Name

Satırlarını ekleyerek deneyin.
İyi çalışmalar.

 

[oydemir]

teşekkürler elinize sağlık