VB EXCEL 내보내기

1878 단어 작업objectExcelIntegervb
엑셀을 내보내는 등의 이야기를 많이 들었는데 이제 자기가 할 차례가 되었어요. 시작할 때 생각이 없었어요. 다 하면 작은 기능이지만 기뻤어요.나눠봐요.
기계실 요금 시스템에서 여러 개의 창은 모두 EXCEL로 내보내는 데 사용되었다. 모듈에 함수를 정의하기 편리하도록 그 창은 코드가 많고 복잡하지 않도록 호출해야 한다.
' 
'*************************************************************************
'**     ：toexcel
'**      ：Grid1(MSHFlexGrid) -
'**      ： 
'** ： Excel 
'**      ： 
'**      ：2012-09-17 19:54:27
'**     ：
'**      ：
'**      ：V1.0.0
'*************************************************************************
Public Sub toexcel(Grid1 As MSHFlexGrid)

    On Error GoTo aa:                                 ' 
    
    Dim i, j As Integer
    Dim ex As Object
    Dim exwbook As Object
    Dim exsheet As Object
    
    Set ex = CreateObject("Excel.Application")          ' excel 
    Set exwbook = ex.Workbooks.Add                      ' 
    ex.Visible = True                                   ' 
    Set exsheet = exwbook.Worksheets("sheet1")          ' 
                                                        
    For i = 1 To Grid1.Rows                              ' 
        For j = 1 To Grid1.Cols
            exsheet.Cells(i, j) = Grid1.TextMatrix(i - 1, j - 1)
        Next j
    Next i

aa:
    Exit Sub

End Sub

창에서 호출:
Private Sub cmdOutput_Click()  ' 
           
           ' 2， ， 2， excel 
            If Rechargeflexgrid.Rows < 2 Then
                   MsgBox " ！", vbOKOnly + vbExclamation, " "
                   Exit Sub
            Else
            
                Call toexcel(Rechargeflexgrid)         ' 
            End If
           
End Sub

결과는 다음과 같습니다.
노력하고, 견지하기만 한다면, 모든 어려움은 극복할 수 있다.
SpringBoot에서 Excel 파일을 다운로드하여 파일 손상 문제 해결
JavaExcel 주소

좋은 웹페이지 즐겨찾기

개발자 우수 사이트 수집

개발자가 알아야 할 필수 사이트 100선 추천 우리는 당신을 위해 100개의 자주 사용하는 개발자 학습 사이트를 정리했습니다
best100-homepage