vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest czwartek, 16 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

 Odczyt z pliku (wybór)


otwartyotwarty rozpoczął: Blaszka_P postów: 2


napisał: Blaszka_P
postów: 112


umieszczony:
11 listopada 2011
15:12

  
Witam

Zrobiłem tak

Dim Filename As Variant
     
       On Error Resume Next
       'Otwiera plik
    Filename = Application.GetOpenFilename("Txt Files (*.txt),*.txt", , _
"Otwórz")

       If Filename = False Then GoTo Cancel ' sprawdza czy jest wybrany plik
   
      ' dalsza cześć kodu

       
Cancel:
       MsgBox "Nie wybrałeś pliku"

   End Sub



Pozdrawiam
napisał: Blaszka_P
postów: 112


umieszczony:
11 listopada 2011
13:33

  
Witam

Mam mały problem z wyborem pliku np.txt , chodzi mi o to ,że używam do tego takiego kodu
Dim Filename As String

Filename = Application.GetOpenFileName("Txt Files (*.txt),*.txt", , _
"Otwórz")

wszystko działa jak zaznaczę plik .txt i nacisnę Otwórz , ale jak nie wybiorę żadnego pliku i nacisnę opcję Anuluj to mimo ,że
Filename=False

przechodzi do dalszych czynności, czyli próbuje przeszukiwać plik.

Proszę o poradę

Pozdrawiam
Blaszka_P


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z
Zarejestrowanych użytkowników: 6380 free counters
© A. Szarek 2003-2024