Kapalı Dosyadan Sayfa Adı Almak

[kykbt]

Arkadaşlar Merhaba

Sub Makro1_Kapalı_Dosyadan_SayfaAdı_Al()

        WrkName = "012022AY.xls"

        Yol = "C:\Mizan\" & WrkName & ""

        'SyfName = "C:\Mizan\012019.xls" Sheets(1).Name

        'SyfName = "C:\Mizan\" & WrkName & ""012019,xls.Sheets(1).Name

        'Workbooks.Open "C:\Mizan\" & WrkName & ""

        'ShtNameAy = "" & ActiveSheet.Name & ".xls"

        If WrkName = ShtNameAy Then

            h = ActiveSheet.Name '.Sayfa1.Name

            'Application.Run "Makro_SayfaDüzenleAY"

        Else

            MsgBox WrkName: Exit Sub

        End If

    End Sub

Burada C:\Mizan\ klasöründeki 012019.xls adlı dosyayı açmadan ilk sayfasının adını almak istiyorum.
Ne yapabilirim.

 

[Haluk]

Linkteki kodu kendinize uyarlarsınız;

Kapalı Dosyada ilk sayfayı alma

Merhaba, Kapalı dosyadan sayfa ismini almak için aşağıdaki kodda: "Dış Tablo, beklenen biçimde değil" hata mesajını alıyorum. Sub Testt() MsgBox getworksheetname(Application.GetOpenFilename("Excel Files (*.xls), *.xls")) End Sub Function getworksheetname(sWorkbook As String) Dim...

www.excel.web.tr

.