Farklı Kaydet Diyaloğu

Sub Farkli_Kaydet()
    Dim sFilter As String, sTitle As String, sInitialFileName As String, defautFilterIndex As Integer, vFile
    
    sInitialFileName = "" ' "deneme.xls"
    sTitle = "Bir dosya seçin"
    sFilter = "Text dosyaları(*.txt), *.txt"
    sFilter = sFilter & "," & "Excel 97-2003 dosyaları(*.xls), *.xls"
    sFilter = sFilter & "," & "Excel 2007-2013 dosyaları(*.xlsx), *.xlsx"
    sFilter = sFilter & "," & "Tüm dosyalar(*.*), *.*"
    defautFilterIndex = 2 ' Excel dosyaları
    
    fd = Application.GetSaveAsFilename(sInitialFileName, sFilter, defautFilterIndex, sTitle)
    
    If fd <> False Then MsgBox fd
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 2 =