VBA Excel GetSaveAsFilename parametresi

Question

Hücre değerini dosyaya yazmak için GetSaveAsFilename komutunu kullanıyorum. Bunu kullanıyorum, bu komut açılır menü ile kaydetme yolunu edinir. Sorum şu: Kullanmayı daha fazla kullanmak için seçilen yolu nasıl alabilirim? İşte

bir örnektir

myFile = Application.GetSaveAsFilename(InitialFileName:=intialFilename, fileFilter:="Text Files (*.txt), *.txt") 

yeni böyle tam yol wtith IintialFilename içerecektir Bu myFile: Nasıl alabilirsiniz: "/test/t1.xlsm C"

myFile bu bilgi?

String pathThatUserGave = myFile.InitialFileName() 

Şimdiden teşekkürler: C++/Java

böyle bir şey olurdu!

Sub gdjtrf() 
    myFile = Application.GetSaveAsFilename(InitialFileName:=intialFilename, fileFilter:="Text Files (*.txt), *.txt") 
    ary = Split(myFile, "\") 
    MsgBox myFile & vbCrLf & ary(UBound(ary)) 
End Sub 

DÜZENLEME # 1:

Sub gdjtrf2() 
    myFile = Application.GetSaveAsFilename(InitialFileName:=intialFilename, fileFilter:="Text Files (*.txt), *.txt") 
    ary = Split(myFile, "\") 
    ary(UBound(ary)) = "" 
    s = Join(ary, "\") 
    MsgBox s 
End Sub 

Sil nihai eğik çizgi:

tek yol, kullanımını almak için

Answer 1

Hemen sadece dosya adını almak için dizeyi ayrıştırmak eğer ihtiyacınız yoksa.