[VB6] การนำเข้าข้อมูลจากไฟล์ Excel เข้าสู่ตาราง FarPoint Spread ActiveX (COM)

thongkorn

สำหรับ FarPoint Spread ActiveX (COM) ก็ตามชื่อมันเลยคือ Spread วัตถุประสงค์หลักของ Component ตัวนี้ ก็คือการใช้งานในลักษณะแบบตารางอิเล็กทรอนิกส์ หรือ SpreadSheet นั่นคืออยู่ในรูปแบบฟอร์แมตไฟล์ Excel ดีๆนั่นเอง จุดเด่นของ FarPoint คือสามารถทำงานเป็นตารางแบบ Excel มีแถวมีหลัก มีสูตรที่ใช้คำนวณหาค่าต่างๆได้เหมือนกับ Excel นอกจากนี้มันยังทำตัวเป็นตารางกริด (Data Grid) เพื่อจัดเก็บข้อมูลทั้งแบบอ่านและเขียนข้อมูลลงเซลล์ได้อย่างง่ายดาย แต่มันมีข้อด้อยคือ การจัดกลุ่มในแบบของตารางกริดจะทำได้ยาก ดังนั้นการจะฝึกใช้งาน FarPoint เราต้องมองตัวมันเป็นเหมือนกับ Excel นะครับ โค้ดนี้จึงนำเสนอการโหลด (หรือ Import) Worksheet จาก Excel มาแสดงผลบนตัว FarPoint เอาไว้ให้ได้ศึกษากันครับ ...

ดาวน์โหลดชุดติดตั้ง FarPoint Spread ActiveX และ Update 8.0.21 ล่าสุดจากผู้ผลิต (เฉพาะสมาชิกเท่านั้น)


หน้าตาการออกแบบ และเรียกใช้งาน Component ...

Project --> Components ... ให้เลือก FarPoint แบบ Unicode มาเพื่อให้แสดงผลภาษาไทยได้ถูกต้อง และ Common Dialog เพื่อการเรียกเปิดไฟล์ Excel ...


โค้ดในส่วนของการ Browse ไฟล์ Excel และทำการตรวจสอบฟอร์แมต ก่อนที่จะทำการโหลดเข้าสู่ FarPoint Spread

1. Private Sub cmdOpenXLS_Click()
   
2.     On Error GoTo ErrorHandler   ' Enable error-handling routine.
   
3.    
   
4.     Dim List() As String
   
5.     Dim ListCount As Integer
   
6.     Dim blnXLS As Boolean
   
7.    
   
8.     ReDim List(1)
   
9.    
   
10.     With dlgOpenFile
    
11.         .FileName = "*.xls"
    
12.         .DialogTitle = "Select Excel file to open"
    
13.         .Filter = "Excel 97-2003 files (*.xls)|*.xls"
    
14.         .FilterIndex = 0
    
15.         .InitDir = App.Path
    
16.         .Flags = cdlOFNHideReadOnly
    
17.         .ShowOpen
    
18.         
    
19.         If .FileName = "*.xls" Then Exit Sub
    
20.         
    
21.         txtFileXLS.Text = .FileName
    
22.         '/ GetExcelSheetList is a method and return boolean value.
    
23.         blnXLS = fp.GetExcelSheetList(.FileName, List, ListCount, "", fpHandle, True)
    
24.     End With
    
25.    
    
26.     cmbWorkSheet.Clear
    
27.     '/ Clear Rows
    
28.     fp.MaxRows = 0
    
29.     '/
    
30.     If blnXLS Then
    
31.         '/ Open XLS File
    
32.         fp.OpenExcel2007File txtFileXLS.Text, "", -1, -1, ""
    
33.         '/
    
34.         Me.cmbWorkSheet.AddItem ("")
    
35.         Dim i As Integer
    
36.         For i = 0 To ListCount - 1
    
37.             Me.cmbWorkSheet.AddItem (List(i))
    
38.         Next
    
39.     End If
    
40.    
    
41. ExitProc:
    
42.     Exit Sub
    
43.    
    
44. ErrorHandler:   ' Error-handling routine.
    
45.     MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    
46.     Resume ExitProc
    
47. End Sub

คัดลอกไปที่คลิปบอร์ด

โค้ดในการเลือก WorkSheet แล้วโหลดข้อมูลลงใน FarPoint Spread ...

1. Private Sub cmbWorkSheet_Click()
   
2.     Dim lRet As Long
   
3.     If Not cmbWorkSheet.ListIndex = 0 Then
   
4.         lRet = fp.ImportExcelSheet(fpHandle, cmbWorkSheet.ListIndex - 1)
   
5.     End If
   
6. End Sub

คัดลอกไปที่คลิปบอร์ด

โค้ดโปรแกรมทั้งหมด ...

1. Option Explicit
   
2. Dim fpHandle As Integer
   
3. 
   
4. Private Sub cmbWorkSheet_Click()
   
5.     Dim lRet As Long
   
6.     If Not cmbWorkSheet.ListIndex = 0 Then
   
7.         lRet = fp.ImportExcelSheet(fpHandle, cmbWorkSheet.ListIndex - 1)
   
8.     End If
   
9. End Sub
   
10. 
    
11. Private Sub cmdExit_Click()
    
12.     Unload Me
    
13. End Sub
    
14. 
    
15. Private Sub cmdOpenXLS_Click()
    
16.     On Error GoTo ErrorHandler   ' Enable error-handling routine.
    
17.    
    
18.     Dim List() As String
    
19.     Dim ListCount As Integer
    
20.     Dim blnXLS As Boolean
    
21.    
    
22.     ReDim List(1)
    
23.    
    
24.     With dlgOpenFile
    
25.         .FileName = "*.xls"
    
26.         .DialogTitle = "Select Excel file to open"
    
27.         .Filter = "Excel 97-2003 files (*.xls)|*.xls"
    
28.         .FilterIndex = 0
    
29.         .InitDir = App.Path
    
30.         .Flags = cdlOFNHideReadOnly
    
31.         .ShowOpen
    
32.         
    
33.         If .FileName = "*.xls" Then Exit Sub
    
34.         
    
35.         txtFileXLS.Text = .FileName
    
36.         '/ GetExcelSheetList is a method and return boolean value.
    
37.         blnXLS = fp.GetExcelSheetList(.FileName, List, ListCount, "", fpHandle, True)
    
38.     End With
    
39.    
    
40.     cmbWorkSheet.Clear
    
41.     '/ Clear Rows
    
42.     fp.MaxRows = 0
    
43.     '/
    
44.     If blnXLS Then
    
45.         '/ Open XLS File
    
46.         fp.OpenExcel2007File txtFileXLS.Text, "", -1, -1, ""
    
47.         '/
    
48.         Me.cmbWorkSheet.AddItem ("")
    
49.         Dim i As Integer
    
50.         For i = 0 To ListCount - 1
    
51.             Me.cmbWorkSheet.AddItem (List(i))
    
52.         Next
    
53.     End If
    
54.    
    
55. ExitProc:
    
56.     Exit Sub
    
57.    
    
58. ErrorHandler:   ' Error-handling routine.
    
59.     MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    
60.     Resume ExitProc
    
61. End Sub
    
62. 
    
63. Private Sub Form_Load()
    
64.     txtFileXLS.Text = ""
    
65.     fp.MaxRows = 0
    
66. End Sub
    
67. 
    
68. Private Sub mnuExit_Click()
    
69.     Unload Me
    
70. End Sub
    
71. 
    
72. Private Sub Form_Resize()
    
73.     On Error Resume Next    '/ <-- Form_Resize must have this for ignore any error.
    
74.     '//
    
75.     fraOpenExcel.Width = Me.ScaleWidth - 30
    
76.     fraFP.Width = fraOpenExcel.Width
    
77.     fraFP.Height = Me.ScaleHeight - fraFP.Top
    
78.     fp.Move 30, 240, Me.fraFP.Width - 90, fraFP.Height - 290
    
79.     cmdExit.Left = fraOpenExcel.Width - cmdExit.Width - 75
    
80. End Sub
    
81. 
    
82. Private Sub Form_Unload(Cancel As Integer)
    
83.     Set frmExcelImportFP = Nothing
    
84.     End
    
85. End Sub

คัดลอกไปที่คลิปบอร์ด

Conclusion: จะเห็นว่าการนำเข้าข้อมูลจาก Excel เพื่อนำมาแสดงผลในตัว FarPoint Spread ไม่ได้ยากเย็นเลยแม้แต่น้อย และหลังจากที่รันโปรแกรม ผู้ใช้ก็จะเสมือนทำงานอยู่บน Excel ดีๆนี่เอง นั่นก็จะทำให้เกิด Friendly Use หรือเป็นมิตรต่อผู้ใช้ตามไปด้วย ทำให้แทบไม่ต้องฝึกฝนอบรมผู้ใช้งานเพิ่มเติมใดๆเลย แต่มันก็ขึ้นอยู่กับเราจะออกแบบให้โปรแกรมมันเดินไปทิศทางไหนด้วยล่ะครับ ... สวัสดี


ดาวน์โหลดโค้ดโปรแกรมฉบับเต็มได้ที่นี่ ...

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

ใช้การ Save ออก Excel แทนครับผม
x = fp.SaveExcel2007File("C:\SampleExcelFile.xls", "", DataOnly, "C:\LogXLS.txt")

sonthaya

thongkorn ตอบกลับเมื่อ 2018-6-7 16:12
ใช้การ Save ออก Excel แทนครับผม
x = fp.SaveExcel2007File("C:\SampleExcelFile.xls", ...

มี error นี้ครับ  object doesn't support this property or method

thongkorn

ผมก็ทดสอบจากในโปรเจคนี้แหละครับ ... โดยใช้ FarPoint Spread เป็นตัวรับค่าจากอินพุท ซึ่งผมจำลองเอาด้วยการโหลดข้อมูลจาก Excel เข้ามาก่อน แล้วทำการส่งออก Export กลับไป Excel อีกรอบครับ (fp คือ FarPoint Spread ครับ)

Dim x As Boolean
x = fp.SaveExcel2007File("D:\ExcelFile.xls", "", DataOnly, "D:\LogXLS.txt")
' Export Excel file and set result to x
' Display result to user based on T/F value of x
If x Then
    MsgBox "Export complete.", , "Result"
Else
    MsgBox "Export did not succeed.", , "Result"
End If

sonthaya

thongkorn ตอบกลับเมื่อ 2018-6-7 22:33
ผมก็ทดสอบจากในโปรเจคนี้แหละครับ ... โดยใช้ FarPoint Spread เป ...

ได้ล่ะครับ ของผม farPoint Spread ไม่ update ผมโหลดของ อาจารย์ มา ดาวน์โหลดชุด Upgrade 8.0.21 จากผู้ผลิต  ใช้ได้แล้ว ขอบคุณครับ

thongkorn

แหม ... กำลังจะโพสต์บอกอยู่แล้วเชียวครับว่าต้องปรับเวอร์ชั่นใหม่ 5555+

sontha2499

thongkorn ตอบกลับเมื่อ 2018-6-8 11:54
แหม ... กำลังจะโพสต์บอกอยู่แล้วเชียวครับว่าต้องปรับเวอร์ชั่นใหม่ 5555+

มีติดอีกนิดนึงครับ เวลาexport header มัน ไม่มา มาแต่ data ครับ

thongkorn

ผมลองหาก็แล้ว ทดสอบก็แล้ว สรุปได้ว่าสำหรับ FarPoint Spread COM มันไม่น่าจะสามารถส่งค่า Header มาให้ได้ครับ แต่สำหรับเวอร์ชั่น .NET มันทำได้ ... หากต้องการจะใช้จริงๆก็ต้อง Loop เอาหลัก 0 เองครับ ตามโค้ดด้านล่างนี้ แต่มันจะช้า ไม่เหมาะกับจำนวนข้อมูลมากๆ ...

1.     '// References อ้างอิงถึง Microsoft Excel 14.0 Object Library (MS Office 2010)
   
2.     Dim ExcelApp As New Excel.Application
   
3.     Dim ExcelBook As New Excel.Workbook
   
4.    
   
5.     Dim iRow As Long
   
6.     Dim iCol As Integer
   
7.     '// สร้าง Object ในการเชื่อมต่อกับ Application
   
8.     Set ExcelApp = CreateObject("Excel.Application")
   
9.     '// เพิ่ม WorkBooks เข้าไปใหม่
   
10.     Set ExcelBook = ExcelApp.Workbooks.Add
    
11.     '// นับจากแถว 0 เพื่อเอา Header ของ FarPoint (หรือตารางกริดอื่นๆ)
    
12.     For iRow = 0 To fp.DataRowCnt - 1
    
13.         '// ระบุแถว
    
14.         fp.Row = iRow
    
15.         For iCol = 1 To fp.DataColCnt
    
16.             '// ระบุหลัก
    
17.             fp.Col = iCol
    
18.             '// ให้ FarPoint ชี้อยู่ (แถว, หลัก) นำค่าออกมา
    
19.             ExcelApp.Cells(iRow + 1, iCol) = fp.Value
    
20.         Next
    
21.    
    
22.     Next
    
23.    
    
24.     ' แสดงผลที่ได้ใน MS Excel
    
25.     ExcelApp.Visible = True
    
26.    
    
27.     ' ปิดการใช้งานวัตถุ
    
28.     Set ExcelApp = Nothing:    Set ExcelBook = Nothing
    

คัดลอกไปที่คลิปบอร์ด