Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[MS EXCEL] Zapisywaniem pliku przy użyciu makra.

06 Kwi 2010 16:34 2664 3
  • Poziom 9  
    [MS EXCEL] Zapisywaniem pliku przy użyciu makra.
    Witam

    Mam mały problem - jak dla jeszcze początkującego wychodzi na spory mam takie coś
    Code:

    Private Sub CommandButton14_Click()
        Dim newFile As String, fname As String
        fname = "nowy plik"
        newFile = fname
        sFName = Application.GetSaveAsFilename
        ActiveWorkbook.SaveAs Filename:=fname
    End Sub

    Wszystko przy zapisywaniu jest ok - ale jak na przykład rozmyśle się z zapisywania i wezmę anuluj to wszystko się sypie. Próbowałem przez If i Then ale nie wychodzi - może ktoś podpowiedzieć coś? Nazwa pliku mysi być odgórnie przez zemnie zadeklarowana "nowy plik" i tu powstają schody z SaveAs
    z góry dzięki
  • Pomocny post
    Moderator Programowanie
    Może tak?
    Code:
    Private Sub CommandButton14_Click()
    
        Dim newFile As String, fname As String
        fname = "nowy plik"
        newFile = fname
        sFName = Application.GetSaveAsFilename
        If sFName <> False Then
             ActiveWorkbook.SaveAs Filename:=fname
        End If
    End Sub
  • Poziom 9  
    arnoldziq napisał:
    Może tak?
    Code:
    Private Sub CommandButton14_Click()
    
        Dim newFile As String, fname As String
        fname = "nowy plik"
        newFile = fname
        sFName = Application.GetSaveAsFilename
        If sFName <> False Then
             ActiveWorkbook.SaveAs Filename:=fname
        End If
    End Sub


    Brak słów - spędziłem kawał czasu na próby - możesz mi powiedzieć dlaczego nie może być = tylko <>
    Wielkie dzięki
  • Moderator Programowanie
    Nie może być "=" bo zazwyczaj ta funkcja (Application.GetSaveAsFilename) zwraca nazwę pliku wraz z ścieżką, które wybierasz dialogiem.
    Natomiast FALSE jest zwracane tylko jeżeli anulujesz dialog.