รบกวนสอบถามเรื่องการ export ข้อมูลจาก Access ไป Excel ค่ะ จาก code
Private Sub cmdExport2Excel_Click()
Dim I As Integer, J As Integer, X As Integer
X = 3
For J = 1 To rst.RecordCount
For I = 1 To rst.Fields.Count
               If I = rst.Fields.Count Then
                    Sheet.Cells(X + J, I).Value = rst(I - 1)
               End If
               If I = 1 Then
                    Sheet.Cells(X + J, I).HorizontalAlignment = 3
               End If
               Sheet.Cells(X + J, I).Borders.LineStyle = 0
               Sheet.Cells(X + J, I).Borders.LineStyle = 0
            Next I
            rst.MoveNext
        Next J
.....
end sub

สามารถส่งข้อมูลไป excel ได้ แต่สิ่งที่ต้องการคือ อยากให้ข้อมูลที่ส่งไป Excel มีการเว้นบรรทัดค่ะ ณ ปัจจุบันผลที่ได้คือ จะต่อเป็นบรรทัดเลยไม่มีการเว้น รบกวนท่านอาจารย์แนะนำด้วยค่ะ