VBA - ilość arkuszy w pliku

[ssuch]

W jaki sposób odczytać ilość arkuszy, które znajdują się w skoroszycie,
który wskazuje np przez okienko dialogowe Open itp.?

Ja znalazłem taki przykaąd w helpie VBA, ale teraz nie pamiętam pod jakim
hasłem tego szukałem

Jeżeli ktoś wie jak napisać taki kod, to bardzoproszę o podpowiedź.



Sławek

[Borafu]

Post by ssuch
W jaki sposób odczytać ilość arkuszy, które znajdują się w skoroszycie,

Application.ThisWorkbook.Worksheets.Count


Pozdro

[ssuch]

OK, znalazłem ten kawałek kodu:

Sub CountOfSheets()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub

[ssuch]

Dlaczego taki kod wywala błąd:

UserForm1.ComboBox2.AddItem = Sheets(i).Name

czyli chcę wyświetlić nazwy wszystkich arkuszy w ComboBox, a do ComboBox nie mogę dodać wartości zwracanej przez instrukcję Sheets(i).Name.
Próbowałem też przez zmienną (Variant), ale chyba nie tędy droga do sukcesu.


Drugie pytanie, to w jaki sposób odczytać nazwy wszystkich plików excela znajdujących się w danycm folderze?


Sławek

[Skylla]

Post by ssuch
UserForm1.ComboBox2.AddItem = Sheets(i).Name

A po co to = ??

I nie pisz w html-u
S.

[ssuch]

Post by Skylla
A po co to = ??

Przyzwyczajenie z języków typu C, Pascal ...

[janusz]

Witam

ma byc
UserForm1.ComboBox2.AddItem Sheets(i).Namebez "=" Janusz