在網路上查了很多資料 但偏偏都少了這一句
請先 引用 Micorsoft Excel 11.0 Object Libary
讓我 try 了好久 >_< 後面再加上 把 Northwind.sdf檔讀入 MSHFledGrid 中 在Form 中要建立 button MSHFlefGrid1 ADODC1 Textbox1 and Progress1 Private Sub btntra_Click() '******** '*匯出到 Excel '****************** Call PrintTableToExcel(Me.MSH, "", "", App.Path & "\" & txtOut.Text & ".xls", Me.ProgressBar1) End Sub Public Sub PrintTableToExcel(ByRef myGrid As MSHFlexGrid, ByVal strHeader As String, _ ByVal strInfo As String, ByVal strFileName As String, _ ByRef proBar As ProgressBar) '************* '*執行 匯出的動作 '********************* If myGrid.Rows <= 1 Then Exit Sub Dim ExcelApp As Excel.Application Dim r As Long, c As Long On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err.Number <> 0 Then
Err.Clear
請先 引用 Micorsoft Excel 11.0 Object Libary
讓我 try 了好久 >_< 後面再加上 把 Northwind.sdf檔讀入 MSHFledGrid 中 在Form 中要建立 button MSHFlefGrid1 ADODC1 Textbox1 and Progress1 Private Sub btntra_Click() '******** '*匯出到 Excel '****************** Call PrintTableToExcel(Me.MSH, "", "", App.Path & "\" & txtOut.Text & ".xls", Me.ProgressBar1) End Sub Public Sub PrintTableToExcel(ByRef myGrid As MSHFlexGrid, ByVal strHeader As String, _ ByVal strInfo As String, ByVal strFileName As String, _ ByRef proBar As ProgressBar) '************* '*執行 匯出的動作 '********************* If myGrid.Rows <= 1 Then Exit Sub Dim ExcelApp As Excel.Application Dim r As Long, c As Long On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err.Number <> 0 Then
Err.Clear
