VB EXCEL 테이블 내보내기

프로젝트 메뉴에서 참조 막대를 선택합니다.icrosoft Excel 14 를 선택합니다.0 Object Library를 선택하고 확인을 선택합니다.프로젝트에서 EXCEL 유형 라이브러리를 참조해야 함을 나타냅니다.
그 다음은 MSHFlexGrid 컨트롤에서 데이터를 EXCEL 테이블로 내보내는 것입니다(주의: MSHFlexGrid 컨트롤은 0행, 0열에서 시작되고 EXCEL은 1행, 1열에서 시작됩니다).코드는 다음과 같습니다.

Dim i As Long    Dim j As Long
    If myFlexGrid.TextMatrix(1, 0) = "" Then
        MsgBox " ", vbInformation, " "
        Exit Sub
    End If
' Application 
    Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application
' 
    Set excelApp = CreateObject("Excel.Application")
' Excel 
    Dim exbook  As Excel.Workbook
    Dim exsheet  As Excel.Worksheet
    Set exbook = excelApp.Workbooks.Add
    excelApp.SheetsInNewWorkbook = 1
' 
    excelApp.Visible = True
' MSHFlexGrid Excel 
    With excelApp.ActiveSheet
        For i = 1 To myFlexGrid.Rows
            For j = 1 To myFlexGrid.Cols
                .Cells(i, j).Value = "" & Format$(myFlexGrid.TextMatrix(i - 1, j - 1))
            Next j
        Next i
    End With
    ' 
    Set exsheet = Nothing
    Set exbook = Nothing
    Set excelApp = Nothing

EXCEL과 VB의 상호 작용을 위한 가장 기본적인 내용은 다음과 같습니다.
먼저 Excel 객체를 작성하고 ComObj:
DimexcelApp as Excel.Application
SetexcelApp as new Excel.Application
1) 현재 창을 표시합니다.
excelApp.Visible= True
2) Excel 제목 표시줄을 변경하려면:
excelApp.Caption='학생 탑승기록';
3) 새 워크북을 추가합니다.
excelApp.WorkBooks.Add;
4) 이미 존재하는 워크북을 엽니다.
EexcelApp.WorkBooks.Open('CExcelDemo.xls' );
5) 두 번째 워크시트를 활성 워크시트로 설정합니다.
excelApp.WorkSheets(2).Activate;
또는 excelApp.WorkSheets( 'Sheet2').Activate;
6) 셀에 값을 지정합니다.
excelApp.Cells(1,4).Value ='첫 줄, 네 번째 열'.
12) 첫 번째 행 네 번째 열 셀 공식을 지웁니다.
excelApp.ActiveSheet.Cells(1,4).ClearContents;
13) 첫 번째 줄 글꼴 속성을 설정합니다.
excelApp.ActiveSheet.Rows(1).Font.Name ='예서';
excelApp.ActiveSheet.Rows(1).Font.Color= clBlue;
excelApp.ActiveSheet.Rows(1).Font.Bold= True;
excelApp.ActiveSheet.Rows(1).Font.UnderLine= True;
k. 셀 네트워킹 인쇄:
excelApp.ActiveSheet.PageSetup.PrintGridLines= True;
15) 복제 작업:
a. 전체 워크시트 복사:
excelApp.ActiveSheet.Used.Range.Copy;
b. 지정된 영역을 복사합니다.
excelApp.ActiveSheet.Range('A1E2' ).Copy;
c. A1 위치부터 붙여넣기:
excelApp.ActiveSheet.Range.('A1' ).PasteSpecial;
d. 파일 끝 부분부터 붙여넣기:
excelApp.ActiveSheet.Range.PasteSpecial;
16) 행 또는 열을 삽입합니다.
a.excelApp.ActiveSheet.Rows(2).Insert;
b.excelApp.ActiveSheet.Columns(1).Insert;
17) 행 또는 열을 삭제합니다.
a.excelApp.ActiveSheet.Rows(2).Delete;
b.excelApp.ActiveSheet.Columns(1).Delete;
18) 미리 보기 워크시트 인쇄:
excelApp.ActiveSheet.PrintPreview;
19) 출력 워크시트 인쇄:
excelApp.ActiveSheet.PrintOut;
20) 워크시트 저장:
If notexcelApp.ActiveWorkBook.Saved then
excelApp.ActiveSheet.PrintPreview
End if
21) 다른 이름으로 워크시트 저장:
excelApp.SaveAs('CExcelDemo1.xls' );
22) 디스크 폐기:
excelApp.ActiveWorkBook.Saved= True;
23) 워크북 닫기:
excelApp.WorkBooks.Close;
24) Excel을 종료하려면 다음과 같이 하십시오.
excelApp.Quit;
25) 워크시트 암호 설정
excelApp.ActiveSheet.Protect"123", DrawingObjects=True, Contents=True, Scenarios=True
26) EXCEL의 표시 방식 극대화
excelApp.Application.WindowState= xlMaximized
27) 워크시트 디스플레이 최대화
excelApp.ActiveWindow.WindowState= xlMaximized
28) 기본 워크시트 열기 수량 설정
excelApp.SheetsInNewWorkbook= 3
29)'닫을 때 저장을 알릴지 여부(true 저장;false 저장하지 않음)
excelApp.DisplayAlerts= False