อยาก export data จาก spread8.0 โดย ที่มี header ออกมาด้วย

sonthaya

สวัสดีครับ ผม อยากได้ เอาข้อมูลออกเป้น excel แล้ว มี header ออกมาด้วย ผมทำได้ แต่ มี ข้อมูลออกมา อย่างเดียวครับ

Dim x As Boolean
      ' Export Excel file and set result to x
      x = spd.ExportToExcel("C:\Samples\FILE.XLS", "Test Sheet 1", "C:\Samples\LOGFILE.TXT")
          ' Display result to user based on T/F value of x
      If x = True Then
          MsgBox "Export complete.", , "Result"
      Else
          MsgBox "Export did not succeed.", , "Result"
      End If

thongkorn

    Dim x As Boolean
    x = fp.SaveExcel2007File("D:\ExcelFile.xls", "", DataOnly, "D:\LogXLS.txt")
    If x Then
        MsgBox "Export complete.", , "Result"
    Else
        MsgBox "Export did not succeed.", , "Result"
    End If