Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Ustawienie domyślnego katalogu do wczytywania plików

td2003 · Exceloholic Posty: 132

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!

Tajan · **Pomógł:** 5618 razy Posty: 12152

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.

td2003 · Exceloholic Posty: 132

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.

Tajan · **Pomógł:** 5618 razy Posty: 12152

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")

td2003 · Exceloholic Posty: 132

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

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

Keraj · 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

Tajan · **Pomógł:** 5618 razy Posty: 12152

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"?