Excel导出问题请教
游子 2010-06-27 07:16:21 下面是我导出的代码:
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Columns.AutoFit
Me.MousePointer = 11
For k = 0 To DataGrid1.Columns.Count - 1
xlApp.Selection.NumberFormatLocal = "$"
xlSheet.Cells(1, k + 1) = DataGrid1.Columns(k).Caption
xlSheet.Cells.HorizontalAlignment = 3 'sheet1为sheet对象
xlSheet.Cells.VerticalAlignment = 3
xlSheet.Range("A1", "M1").Merge
xlSheet.Range("A1", "M1") = "申请表"
xlSheet.Range("A2", "M2").Merge
xlSheet.Range("A2", "M2") = "分配办法"
Next
DataGrid1.Scroll 0, -DataGrid1.FirstRow
DataGrid1.Row = 0
For i = 0 To DataGrid1.ApproxCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
xlSheet.Cells(i + 3, j + 1) = DataGrid1.Text
Next
If i < DataGrid1.ApproxCount - 1 Then
DataGrid1.Row = DataGrid1.Row + 1
End If
Next
Me.MousePointer = 0
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="6666"
xlApp.Visible = True
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
第一次导出是正常的,但是当第二次点导出按钮的时候出现“对象‘CELLS’的方法‘_Global’失败”,而且第一次导出的时候有密码保护,但当第二次导出的时候就没有密码保护了。请指教,谢谢