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

  tytuł wątku:
Wątki dyskusji

nazwa pliku jako zmienna


otwartyotwarty rozpoczął: doktor postów: 5



napisał: Stanislaw
postów: 109


umieszczony:
19 września 2005
23:19

  
Witam,

> robie to programowo przez VBA
Nie wspominasz za pomocą jakich poleceń.

Ale powiedzmy, że byłoby to za pomocą metody GetOpenFilenme.

Wklej do modułu poniższy kod:
Dim nazwa_pliku As String

Sub Otwórz_plik()

    nazwa_pliku = Application.GetOpenFilename("Tylko skoroszyty (*.xls), *.xls")
    
    Workbooks.Open nazwa_pliku

End Sub

Sub Zamknij_plik()

    Workbooks(Right(nazwa_pliku, Len(nazwa_pliku) - InStrRev(nazwa_pliku, "\"))).Close
    
End Sub



Teraz jak będziesz chciał zamknąć ostani plik otwarty za pomocą ocedury "Otwórz_plik",
uruchom procedurę "Zamknij_plik".

--
Pozdrawiam
Stanislaw
napisał: doktor
postów: 40


umieszczony:
19 września 2005
21:59

  
robie to programowo przez VBA
pozdrawiam Panie Stanislawie
napisał: Stanislaw
postów: 109


umieszczony:
19 września 2005
10:24

  
Powiedzmy, że otwierasz plik ręcznie,
wtedy nazwę ostatnio otwieranego pliku mógłbyś
przypisać do zmiennej np. tak:

Dim i As Long
Dim nazwa_pliku As String


For i = Workbooks.Count To 1 Step -1
    If Workbooks(i).Path <> "" Then
        nazwa_pliku = Workbooks(Workbooks.Count).Name
        Exit For
    End If
Next i


i wtedy użyć:
Windows(nazwa_pliku).Close


można też użyć:
Workbooks(nazwa_pliku).Close


--
Pozdrawiam
Stanislaw
napisał: Stanislaw
postów: 109


umieszczony:
18 września 2005
23:00

  
> pojawia mi sie okno gdzie wskazuje nazwę pliku do otwarcia po czym plik się otwiera.

Robisz to za pomocą polecenia
Plik | Otwórz Ctrl+O
(albo kliknięciem przycisku Otwórz na pasku narzędzi Standardowy)

czy

programowo za pomocą kodu VBA?

--
Stanislaw
napisał: doktor
postów: 40


umieszczony:
18 września 2005
12:58

  
Witam

mam taki problem otórz pojawia mi sie okno gdzie wskazuje nazwę pliku do otwarcia po czym plik się otwiera. Chciałbym żeby w tym momencie nazwa pliku zapisywana była w zmiennej nazwa. potrzbne mi to do tego że potem chciałbym użyć

Windows("nazwa").Close

jak przypisac nazwę pliku do zmiennej?


Pozdrawiam


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z