[求助]导出至EXCEL不能用了

cgl_13579

以前用导出特定格式EXCEL的方法都没问题，隔一段时间再用时却告诉我“lvlcolumn”变量未定义,可是我这段时间都没动过这一部分，不知问题出在哪？请高手赐教

wanshan

不知道你用的什么方法导出至Excel，很可能是引用丢失，检查一下！

cgl_13579

这就是我用的导出方法：Private Sub cmdExport_Click()Dim xlApp As Excel.Application

Dim xlSheet As Excel.Worksheet

Dim xlWorkbook As Excel.Workbook

Dim acQuery As QueryDef

Dim objRST As Recordset

Dim strQueryName As StringstrQueryName = Me.lstQuerySet xlApp = CreateObject("Excel.Application")

xlApp.Visible = TrueSet xlWorkbook = xlApp.Workbooks.AddSet objRST = Application.CurrentDb.OpenRecordset(strQueryName)

   

Set xlSheet = xlWorkbook.Sheets(1)    For lvlColumn = 0 To objRST.Fields.Count - 1

      xlSheet.Cells(1, lvlColumn + 1).Value = _

      objRST.Fields(lvlColumn).Name

    Next    'Change the font to bold for the header row

    xlSheet.Range(xlSheet.Cells(1, 1), _

    xlSheet.Cells(1, objRST.Fields.Count)).Font.Bold = True    'Add a border to header row cells

    With xlSheet.Range(xlSheet.Cells(1, 1), _

    xlSheet.Cells(1, objRST.Fields.Count)).Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With    With xlSheet.Range(xlSheet.Cells(1, 1), _

    xlSheet.Cells(1, objRST.Fields.Count)).Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With    With xlSheet.Range(xlSheet.Cells(1, 1), _

    xlSheet.Cells(1, objRST.Fields.Count)).Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With    With xlSheet.Range(xlSheet.Cells(1, 1), _

    xlSheet.Cells(1, objRST.Fields.Count)).Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

With xlSheet

    .Range("A2").CopyFromRecordset objRST

    .Name = Left(strQueryName, 31)

End WithSet xlSheet = Nothing

Set xlWorkbook = Nothing

Set xlApp = Nothing

End Sub引用的勾也勾着，我至少在三台机器上运行过，都是同一个错误