Dosya ismini değişkene atama

[asilacar]

Merhabalar

Acaba üzerinde çalıştığımı dosyanın ismini makronun içinde herhangi bir yere nasıl atayabiliriz?

Mesela ATM1109 dosyamın ismi ve ben bunu kendim yazmadan (çünkü dosya ismi günlük değişiyor) makro içinde tanımladıgım bir degişkene nasıl atarım?

 

[Recep İpek]

deg = Application.ThisWorkbook.Name

kodunu kullanabilirsiniz.Bu kod aktif dosyanın ismini ATM1109.xls olarak değişkene atar.

 

[asilacar]

Teşekkürler Ripek hocam ben de ecnebi forumlardan birinde şöyle bir kod parçası buldum

Function SheetStuff(numWanted As Byte) As String
Select Case numWanted
Case 1
SheetStuff = ActiveSheet.Name
Case 2
SheetStuff = ThisWorkbook.Name
Case 3
SheetStuff = ThisWorkbook.FullName
Case Else
SheetStuff = ActiveSheet.Name
End Select
End Function


Çeşit çeşit kullan at isimler