Доброго времени суток.
Сюда будут приложены две формы Access. Одной из них я "вдохновлялся", другая моя (по названию несложно будет понять какая из них какая).
Однако, не идентичны. Мне нужно предоставить пользователю возможность предварительно выбрать нужные таблицы для экспорта, а не просто отправлять все разом. Колличество нужных таблиц может варьироваться. Имеется два списка. В первый нажатием кнопки выводятся имена всех таблиц. Во второй список кликом отправляются нужные. Соответственно, процедура экспорта обращается ко второму списку.
Проблема: Изначально я забыл присвоить значение переменной cnt. Процедура проходила, но экспортируя только одну таблицу, чьё имя первое в списке. После того как присвоил, при попытке экспорта более одной таблицы выдаёт "ошибка 1004: Нельзя присвоить листу имя, совпадающее с именем другого листа, библиотеки объектов или книги, на которую ссылается Visual Basic" в строке:
| Код |
wrk.Sheets(i + 1).Name = t
|
При первых попытках пару раз вместо этой выдавало другую ошибку. Номер не запомнил, но ругалась на FROM в:
| Код |
Set rst = db.OpenRecordset("SELECT * FROM [" & t & "]")
|
Позже пропала. Не смог понять её причину, т.к. если она пропала благодаря каким-то изменениям в коде, то изменения были крайне несущественными (во всяком случае на мой взгляд). Ошибка же приведённая выше актуальна до сих пор.
Прошу помощи.
Код процедуры экспорта:
| Код |
Public Sub MultiExp(tblName)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim app As Object
Dim wrk As Object
Dim i As Integer
Dim t
Dim j As Integer
' tblName = Me![Поле0]
t = tblName(i)
Set db = CurrentDb
Set app = CreateObject("Excel.Application")
Set wrk = app.Workbooks.Add
Set rst = db.OpenRecordset("SELECT * FROM [" & t & "]")
For i = 0 To UBound(tblName)
If i <= wrk.Sheets.Count - 1 Then
wrk.Sheets(i + 1).Name = t
Else
wrk.Sheets.Add(, wrk.Sheets(i)).Name = t
End If
app.Sheets(t).Activate
app.Range("A2").CopyFromRecordset rst
For j = 1 To rst.Fields.Count
wrk.Sheets(t).Cells(1, j) = rst(j - 1).Name
Next j
Next i
app.Visible = True
rst.Close: Set rst = Nothing
End Sub
|
Код кнопки на форме:
| Код |
Private Sub Кнопка8_Click()
Dim tblName()
Dim cnt As Integer
Dim i As Integer
cnt = Me!Список2.ListCount - 1
If Me!Список2.ListCount = 0 Then
MsgBox "blablabla"
Exit Sub
End If
ReDim tblName(0 To cnt)
For i = 0 To cnt
tblName(i) = Me.Список2.ItemData(i)
Next i
MultiExp tblName
End Sub
|
P.S. Заранее извиняюсь за возможное несоответствие разделу форума. |
)