Подобрете копирането в ADO затворена работна книга (решено) Excel-Downloads

hemardjean

XLDnaute Понякога

Здравейте форум

затворена

Бихте ли ми помогнали да ми помогнете да подобря файла, намерен във форума, но който трансформирах, за да отговаря на това, което искам да получа.

Първият ми въпрос:
Опитвам се да изтрия във формулярите с име "tabB1, tabB2, tabC1, tabC2", комбобоксът "comboAN" този не ми служи за нищо.

Опитах се да го премахна в следната програма:

Private Sub UserForm_Initialize ()
Dim i As Integer
i = 2
Правете докато не е празно (Листове ("T_AN"). Клетки (i, 1))
i = i + 1
Примка
Me.ComboAn.RowSource = "T_AN! A2: A" & i - 1

но всеки път имам грешка в следващата част на програмата

Private Sub CommandButton2_Click ()

С Rst
.Добави нов
.Полета (0) = ComboAn.Value

Вторият ми въпрос:
Можем ли в целевите папки (папка B или папка C) да направим така, че в копието да има автоматично сортиране от колона 1,
но също така, че копието е или числов формат, или текстов формат автоматично в зависимост от началния формат.
Благодаря ти за помощта

Прикачени файлове