Îmbunătățiți copierea în registrul de lucru închis ADO (rezolvat) Descărcări Excel
hemardjean
XLDnaute Ocazional
Buna forum
Ai putea, te rog, să mă ajuți să îmbunătățesc fișierul găsit pe forum, dar pe care l-am transformat pentru a se potrivi cu ceea ce vreau să primesc.
Prima mea întrebare:
Încerc să șterg în formularele denumite „tabB1, tabB2, tabC1, tabC2”, caseta combinată „comboAN” acesta nu mă servește pentru nimic.
Am încercat să îl elimin în următorul program:
Private Sub UserForm_Initialize ()
Dim i Integer
i = 2
Faceți în timp ce nu este gol (Foi de calcul („T_AN”). Celule (i, 1))
i = i + 1
Buclă
Me.ComboAn.RowSource = "T_AN! A2: A" & i - 1
dar de fiecare dată când am o eroare în următoarea parte a programului
Private Sub CommandButton2_Click ()
Cu Rst
.Adăuga nou
.Câmpuri (0) = ComboAn.Value
A doua mea întrebare:
Putem, în folderele de destinație (folderul B sau folderul C) să facem ca la copiere să existe o sortare automată din coloana 1,
dar și faptul că copia este fie format de număr, fie format de text în mod automat, în funcție de formatul de pornire.
Vă mulțumesc pentru ajutor