Dim i As Integer Dim ExcelApp As New Excel.Application Me.MousePointer = 11 Set ExcelApp = CreateObject("Excel.application") 'ไม่ต้องก็ได้ With ExcelApp .Workbooks.Add .ActiveWorkbook.Sheets("Sheet1").Activate For i = 0 To 255 'Fg.Rows - 1 .Range("A" & i + 1).Value = "+1/-0.5" ' i '"'" & "Fg.TextMatrix(i, 1)" '.Range("B" & i + 1).Value = "Fg.TextMatrix(i, 2)" '.Range("C" & i + 1).Value = "Fg.TextMatrix(i, 3)" Next i
End With Me.MousePointer = 0 ExcelApp.Visible = True Set ExcelApp = Nothing