Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 734 Skopiuj do schowka Ustawienie domyślnego katalogu do wczytywania plików
Autor Wiadomość
td2003
Exceloholic


Posty: 132
Wysłany: 19-03-2007, 21:27   Ustawienie domyślnego katalogu do wczytywania plików

Witam!
Mam takie szybkie pytanko. Makro żąda od użytkownika otwarcia pliku:
Kod:
MsgBox "Wczytaj KARTOTEKĘ" & Chr(10) & "(OBOWIĄZKOWO)", 32
plik = Application.GetOpenFilename("Pliki Excel (*.xls), *.xls")
If plik <> False Then
'dalsza część makra
.
Kłopot polega na tym, że zawsze okienko otwarcia pliku otwiera się w 'Moich dokumentach".
Chciałbym, żeby np. w komórce A1 można było wpisać ścieżkę do folderu z plikami przeznaczonymi do wczytania i żeby makro otwierało okienko właśnie w tym folderze.
Czy coś takiego jest możliwe?

Dzięki!
ID posta: 3849 Skopiuj do schowka
 
 
Tajan


Pomógł: 5329 razy
Posty: 11618
Wysłany: 19-03-2007, 21:38   

W najprostszym przypadku można tak:
Kod:
ChDir Range("A1")
plik = Application.GetOpenFilename("Pliki Excel (*.xls), *.xls")

ale kod należałoby rozbudować o instrukcje sprawdzające poprawność scieżki w komórce lub obsłużenia błędu w przypadku, gdy podana scieżka jest niepoprawna.
ID posta: 3851 Skopiuj do schowka
 
 
td2003
Exceloholic


Posty: 132
Wysłany: 19-03-2007, 23:56   

A czy w komórkę trzeba wpisać adres w jakimś specjalnym formacie?
Bo wpisałem zwykłe "d:\" i nie działa.
Oczywiście polecenie Chdir wpisałem w makro.
ID posta: 3864 Skopiuj do schowka
 
 
Tajan


Pomógł: 5329 razy
Posty: 11618
Wysłany: 20-03-2007, 00:04   

No tak! Sorry, zapomniałem, że trzba zmienić jeszcze dysk! Powinno być:
Kod:
ChDrive Range("A1")
ChDir Range("A1")
plik = Application.GetOpenFilename("Pliki Excel (*.xls), *.xls")
ID posta: 3865 Skopiuj do schowka
 
 
td2003
Exceloholic


Posty: 132
Wysłany: 20-03-2007, 00:12   

Dzięki bardzo!
Działa należycie.

[ Dodano: 2007-03-31, 19:24 ]
Witam!

Tajan napisał/a:
kod należałoby rozbudować o instrukcje sprawdzające poprawność scieżki w komórce lub obsłużenia błędu w przypadku, gdy podana scieżka jest niepoprawna.

No właśnie, jak to zrobić. Jest na to jakiś prosty sposób?
ID posta: 3867 Skopiuj do schowka
 
 
Keraj
[Usunięty]

Wysłany: 08-04-2007, 15:31   

Witam,
mam następujący problem: Załączone makro działa bez zarzutu, czyli wkleja do tabeli dane ściągniete z SAP i wklejone specjalnie (tylko wartości) do tabeli kosty.
Stworzyłem kopię folderu, przeklejąjąc rowniez arkusz Kosty do skoroszytu, ale makro w nim nie działa prawidłowo. Jaka moze byc tego przyczyna, przecież widzę w treści makra, że odwołuje się ono jedynie do wspomnianej wyzej tabeli Kosty.
Poniżej załączam kod makra z prosbą o pomoc i taką jego modyfikacje, aby działało ono niezależnie od skoroszytu, w ktorym się znajduje.

Sub SAP()

Sheets("Kosty").Select
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("B3:B5000").Select
Selection.TextToColumns Destination:=Range("B3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(15, 1)), TrailingMinusNumbers:=True
Columns("B:B").EntireColumn.AutoFit
Range("C2").Select
Columns("C:C").EntireColumn.AutoFit
Range("C2").Select
Selection.ClearContents
Sheets("Kosty").Select
Range("B1").Select
End Sub
ID posta: 4597 Skopiuj do schowka
 
 
Tajan


Pomógł: 5329 razy
Posty: 11618
Wysłany: 08-04-2007, 20:35   

A czy, powyższe makro uruchamiasz również z tego, skopiowanego skoroszytu? Czy też znajduje się w innym skoroszycie, który równiez zawiera arkusz "Kosty"?
ID posta: 4608 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe