ID tematu: 734
 |
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
|
|
|
 |
|
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
|
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
|
|
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
|