กระดานข่าว VB › เว็บบอร์ดถามตอบปัญหา › อยาก export data จาก spread8.0 โดย ที่มี header ออกมาด้วย

sonthaya โพสต์ 2018-6-7 12:16:39

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

สวัสดีครับ ผม อยากได้ เอาข้อมูลออกเป้น 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 โพสต์ 2018-6-8 12:05:25

    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

ดูในรูปแบบกติ: อยาก export data จาก spread8.0 โดย ที่มี header ออกมาด้วย