Ho questo codice con cui vorrei compilare un combobox con i nomi di un foglio che apro (dopo averne selezionato il nome)
Il mio file xlsm si chiama "Pippo.xlsm"
- Codice: Seleziona tutto
Set wbIni = Workbooks.Open(UserForm1.TextIniFile.Text)
UserForm1.ComboBox4.Clear
For I = 1 To Sheets.Count
UserForm1.ComboBox4.AddItem Sheets(I).Name
Next
UserForm1.ComboBox4.Value = ActiveSheet.Name
wbIni.Close
Ebbene, il codice fa questo:
1) apre il file TextIniFile
2) legge i fogli (ce n'è uno solo)
3) popola il combobox
ma ....
dopo aver finito di popolare, (blocco e verifico che in effetti "count" = 1) invece di chiudere il foglio (wbIni,close) continua a leggere i fogli del fiel "Pippo.xslm" (count diventa 3) e di conseguenza non riesce a chiudere wbIni segnalandomi errore perchè manca oggetto.
Non capisco proprio ....
Un aiuto ? Grazie