Msflexgrid의 내용을 excel에 원하는 위치에 삽입하려할때?

기존파일에 넣는 방법이나 새파일 열어서 하는 방법이나 별로 차이점이 없으니까
엑셀의 새파일을 열어서 데이터를 넣는 소스를 만들어 봤습니다.
커멘드버튼 하나와 플렉스그리드 하나를 그리고 엑셀 오브젝트를 참조하시고
다음을 실행시켜보세요. 즐프하시고 다 주석달기가 모해서 모르는 것 있으시면 재질문 해주시길…

Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    With MSFlexGrid1
        .FixedRows = 0
        .FixedCols = 0
        .Rows = 0
        .Cols = 5
        .AddItem “aaa” & vbTab & “bbb” & vbTab & “ccc” & vbTab & “ddd” & vbTab & “eee”
        .AddItem “ggg” & vbTab & “hhh” & vbTab & “kkk” & vbTab & “eee” & vbTab & “www”
        .AddItem “ddd” & vbTab & “ooo” & vbTab & “www” & vbTab & “qqq” & vbTab & “ddd”
    End With
    Call GridToExcel
End Sub
Private Sub GridToExcel()
    Dim Xl As New Excel.Application
    Dim GridRow As Long
    Dim GridCol As Long
   
    With Xl
        .Workbooks.Add
        .Worksheets(“Sheet2”).Select
       
        For GridRow = 0 To MSFlexGrid1.Rows – 1
       
            For GridCol = 0 To MSFlexGrid1.Cols – 1
                .Cells(GridRow + 5, GridCol + 1) = MSFlexGrid1.TextMatrix(GridRow, GridCol)
            Next GridCol
           
        Next GridRow
       
        .Visible = True
    End With
   
End Sub

댓글

답글 남기기

이메일 주소를 발행하지 않을 것입니다. 필수 항목은 *(으)로 표시합니다