napisał: Pitero26 postów: 6
umieszczony: 8 czerwca 2011 19:56
|
|
Cytat:Jeśli wystarczy sprawdzić pierwsze 6 znaków nazwy skoroszytu to wystarczy poniższa wyliczanka
Sub Pitero()
Dim i As Integer, plik As Workbook, krynica As Workbook
For Each plik In Application.Workbooks
If UCase(Left(plik.Name, 6)) = "ZRODLO" Then Set krynica = plik: Exit For
Next plik
If Not krynica Is Nothing Then krynica.Activate
End Sub
O to mi chodziło, dziękuję bardzo za podpowiedź :) |
|
napisał: Trebor postów: 1209
umieszczony: 8 czerwca 2011 19:38
|
|
Jeśli wystarczy sprawdzić pierwsze 6 znaków nazwy skoroszytu to wystarczy poniższa wyliczanka
Sub Pitero()
Dim i As Integer, plik As Workbook, krynica As Workbook
For Each plik In Application.Workbooks
If UCase(Left(plik.Name, 6)) = "ZRODLO" Then Set krynica = plik: Exit For
Next plik
If Not krynica Is Nothing Then krynica.Activate
End Sub |
|
napisał: Pitero26 postów: 6
umieszczony: 8 czerwca 2011 19:09
|
|
Witam,
potrzebuję małej podpowiedzi, bo nie wiem jak sobie poradzić z jedną rzeczą. Otóż, sprawa banalna, bo pobieram (a właściwie kopiuję) zawartość jednego arkusza do drugiego. Wszystko byłoby fajnie, gdyby nie fakt, że co pewien czas plik źródłowy ma trochę inną nazwę, np.
plik docelowy "plik.xls", a plik źródłowy "zrodlo.xls". Obydwa są zawsze otwarte, więc nie trzeba ich otwierać z poziomu VBA, a jedynie aktywować ( Windows("zrodlo.xls ").Acttivate). Plik "zrodlo.xls" czasami przybiera nazwę "zrodlo[1].xls" lub "zrodlo[2].xls" itd.
Niestety nie jestem w stanie sobie poradzić z tym dodatkowym [x] w nazwie. Chciałbym, aby VBA rozpoznawał ten plik bez znaczenia czy ma ten dodatek czy. Proszę o pomoc. |
|
wstecz 1 dalej wszystkich stron: 1
|