2012-04-13 13 views

cevap

3

Sen çarşafa döngü ve aşağıdaki sözdizimini kullanabilirsiniz: Sayfanın adı olmaktan

If ActiveWorkbook.VBProject.VBComponents(sheetName).CodeModule.CountOfLines <> 0 Then 

sheetName.

Daha gelişmiş kullanım için, daha gelişmiş örnekler veren bu page numaralı telefonu kontrol etmelisiniz.

+0

Ummm, bu işe yaramayacak :) Gönderideki bağlantıyı gör –

+0

Ummm, Sadece test ettim ve benim için çalışıyor (eğer kod yoksa ve kod varsa satır sayısı varsa 0). Başka bir şey mi eksik? – assylias

+1

Evet 2 şeyler :) 1) Son yazımda yer alan son düzenlemeye bakın 2) "Değişken Bildirimi Gerektir" işaretliyse, "Seçenek Açık" alacağı için satır sayısı olmasa bile satır sayısı her zaman 0'dan fazla olur üstüne. Blog mesajımda her şey açıklandı. –

11

Son zamanlarda MSDN'de bir soruyu yanıtladım ve sonuçta bunun üzerine bir blog yazısı yazdım. http://www.siddharthrout.com/2012/04/12/check-if-an-excel-file-has-a-macro/

Ardından "Sheets" "makro" sahip olduğunu kontrol etmek .VBComponents.Item(i).Type ile .VBComponents.Item(i).Name kullanabilirsiniz:

Konu: Bir Excel Dosyası Makro

Linki olup olmadığını kontrol edin .

DÜZENLEME

Teknik olarak her makro konuşan kod parçasıdır ama kod her parçası bir makro olduğunu buna gerek yok. Makroları kontrol ediyorsanız, blog gönderisinin 1. bölümüne bakın ve herhangi bir kod olup olmadığını kontrol ederseniz, blog yayınının 2. bölümüne bakın.

+0

+1 LOL, Evet, –

+0

+1'i rakipsiz bir hassasiyet için yazdıktan sonra rememebr ediyorum;) – assylias

+0

+1 güzel yanıt Sid – brettdj

İlgili konular