При открытом отчете, этот код передает данные в excel. Но проблема, что в отчете могут использоваться к примеру 2 поля из 5, а в excel отображаются все 5. Как избавиться от лишнего?


Public Sub PerVExl()
Dim rs As Recordset
Dim Exl As Excel.Application
Dim ExlWork As Excel.Workbook
Dim ExlList As Excel.Worksheet
Dim vColNum, vRowNum As Long
Dim vTypeSql As Integer

Set rs = CurrentDb.OpenRecordset(Application.Reports.Item(0).RecordSource)


Set Exl = CreateObject("Excel.Application")
Set ExlWork = Exl.Workbooks.Add
Set ExlList = ExlWork.Worksheets.Item(1)
ExlList.Name = "Данные"

For vColNum = 0 To rs.Fields.count - 1
ExlList.Cells(1, vColNum + 1).Value = rs.Fields(vColNum).Name
Next vColNum

ExlList.Range("A2").CopyFromRecordset rs

Exl.Visible = True
Set ExlList = Nothing
Set ExlWork = Nothing
Set Exl = Nothing
End Sub

Помогите пожалуйста, не знаю что делать

Запись макросов в Excel предлагает слудующие варианты:

IgorPR, зачем две одинаковые темы? Я уже думал, что меня глючит.

Это сообщение отредактировал(а) bopoha - 9.9.2008, 14:21