Dim XlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error GoTo err
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = False
Set xlBook = XlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "i"
DoEvents
For i = 0 To msh_cx.Rows - 1
msh_cx.Row = i
For j = 0 To msh_cx.Cols - 1
msh_cx.Col = j
If IsNull(msh_cx.Text) = False Then
DoEvents
xlSheet.Cells(i + 3, j + 1) = msh_cx.Text
xlSheet.Columns.EntireColumn.AutoFit
End If
Next j
Next i
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error GoTo err
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = False
Set xlBook = XlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "i"
DoEvents
For i = 0 To msh_cx.Rows - 1
msh_cx.Row = i
For j = 0 To msh_cx.Cols - 1
msh_cx.Col = j
If IsNull(msh_cx.Text) = False Then
DoEvents
xlSheet.Cells(i + 3, j + 1) = msh_cx.Text
xlSheet.Columns.EntireColumn.AutoFit
End If
Next j
Next i
appexcel.Workbooks.Add
End If Set wsbook = appexcel.ActiveWorkbook
If wsbook.Sheets.Count = 0 Then
wsbook.Sheets.Add
End If
Set wsheet = wsbook.Sheets(1)
wsheet.Cells(2, 1).Value = "----¸ù¾ÝÖмÌ×éÃûͳ¼Æ"
wsheet.Cells(1, 3).Value = " Ô¤¸¶·Ñºô½Ð¼Ç¼ "
wsheet.Columns.ColumnWidth = 18.5
If MSFlexGrid1.Rows > 0 ThenFor row = 0 To MSFlexGrid1.Rows - 1
For col = 0 To MSFlexGrid1.Cols - 1
wsheet.Cells(row + 4, col + 1).Value = MSFlexGrid1.TextMatrix(row, col)
Next col
Next row
wsbook.SaveAs ComDlgOpen.FileName
wsbook.Close
Set appexcel = Nothing
MsgBox "ok!"
Exit Sub
End If
除了做循环以外有没有什么别的好办法???
我想找一个MSFLEXGRID与EXCEL间的一个专用接口!??