Pytanie : Przodować Makro- Rząd Opierać się na Warunek

I importować niektóre html dokument w Przodować i polubić niektóre the prezentacja zanim ratować ono jako Przodować kartoteka.  I polubić macro wiązka pusty rząd zarówno jak i niektóre rząd który zaczynać jak i:

Z:\websitepublic\ ......
No Wybierać Dokument Znajdować w ten Directory

The tekst ten być zawsze w Szpaltowy D i E.

I także potrzeba także rząd który mieć the następujący szpaltowy kłoszenie:

Documents Tytuł Autor Temat Słowo kluczowe Tworzyć Oszczędzony date_created date_reviewed twórca version

I am nowy macros wewnątrz Przodować i doceniać niektóre rada na dlaczego this.

Odpowiedź : Przodować Makro- Rząd Opierać się na Warunek

Używać ten kod…

Saurabh…

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Okręt podwodny deleterows ()
Application.ScreenUpdating = Fałszywy

    Ciemnawy srow Długo
    srow = (1)

    Do srow > Cells.Find (Co: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Rząd
        Jeżeli InStr ((1), Komórka (srow, "a"), "Z:\websitepublic\", vbTextCompare) > (0) Lub InStr ((1), Komórka (srow, "a"), "Żadny wybrany dokument w ten książka telefoniczna", vbTextCompare) > (0) Wtedy
            Rząd (srow). Deleatur


        ElseIf Application.WorksheetFunction.CountA (Pasmo (srow & ": " & srow)) = (0) Wtedy
         Rząd (srow). Deleatur
         Inny
            srow = srow + (1)
        Kończyć Jeżeli
    Pętla


Application.ScreenUpdating = Prawdziwy
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us