napisał: tashemik postów: 35
umieszczony: 17 maja 2007 14:11
|
|
Jak najbardziej masz racje że ta opcja jest jak najbardziej przydatna. Strasznie okroiłem znaczenie tego komunikatu.
Jednakże opcja ta włącza się automatycznie na TRUE po uruchomienia arkusza. Sprawdziłem.
Spróbuj:
sub x()
Application.DisplayAlerts = False
Applicatin.Quit
end sub
Obsługa błędów towedług nie priorytet. Jadnak przyznasz że trudno przewidzieć 100 % rzecz które może "zepsuć" przeciętny użytkownik naszego cuda. Zdarzało mi się że ludzie robili takie żeczy które nie przyszły bi mi do głowy nawet jak bym się dobrze nawalił.
Pozdrawiam |
|
napisał: tashemik postów: 35
umieszczony: 17 maja 2007 11:24
|
|
Fajnym rozwiązaniem jest użycie:
Application.DisplayAlerts = False
Powoduje to niewyświetlanie komunikatu typu"Czy jesyeś pewny że chcesz zamknąć arkusz? lub Czy zapisać zniany?"
Potrzebne w opcji fullAutomat czyli tworzeniu makr "Idiotoodpornych"
Tashemik |
|
napisał: admin postów: 613
umieszczony: 15 maja 2007 17:24
|
|
Zamiast
Workbooks.Close
Napisz
Workbooks.Close True |
|
napisał: baq postów: 6
umieszczony: 15 maja 2007 16:20
|
|
Koledzy/Koleżanki
Poniżej kod ,który ma realizować nastpujące zadanie: w katalogu KATALOG znajdują się pliki, które należy kolejno otwierać, w komórce znaleźć a następnie zmienić nazwisko z Kowalki na Nowak. Wszystko działa OK, ale nie wiem jak pozbyć się zapytania Microsoft Excel Czy zapisać zmiany w pliku?
Pomóżcie
Pozdrawiem
Baq
Sub Zmiana_nazwiska_w_plikach()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\KATALOG"
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
MsgBox "Znaleziono " & .FoundFiles.Count & " plików."
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
For Each sht In Sheets
sht.Cells.Replace What:="Kowalski", Replacement:="Nowak", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next sht
Workbooks.Close
Next i
End If
End With
End Sub |
|
wstecz 1 dalej wszystkich stron: 1
|