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