[VB6]Excel to Grid

[VB6]Excel toGrid
Import Excel
เอาำำไฟล์ Ecxel มาใส่ใน Grid
ตอนที่ผมเข้ามาทำงานใหม่ ๆ ได้รับ Project เล็ก ๆ ตัวหนึ่ง ก็คือ ต้องการเอาไฟล์ Excel มาใส่ใน Grid หลังจากนั้นก็เอาข้อมูลมาใส่ใน Data Base หรือเรียกง่ายๆ ว่า โปรแกรม Import Excel นั่นแหละครับ นั่งนิ่งไปเป็นเดือน เครียดมากตามประสา เด็กจบใหม่ โชคยังเข้าข้างที่ไปเจอโค้ดนี้เข้า ก็ไหน ๆ แล้วเดียวยาว เริ่มกันเลย

เตรียมความพร้อมเพิ่ม Components มาก่อนนะ

วิธีการเพิ่ม  Components ที่ใช้

 คลิกขวาตรงที่ว่างใน Tool Box จะขึ้นข้อความมาให้เลือก Conponensts... ตามรูปเลย

เลือก Conponensts สองตัวนี้
- Micorsoft Common Dialog Control 6.0
- Micorsoft FlexGrid Control 6.0

แล้วทำเครื่องหมายถูก ครับ
ออกแรงหน่อย หาเอานะึครับเพราะความจริงแล้วจะแสดง Conponensts เยอะกว่านี้


หน้าจอที่ไว้สำหรับการทดลอง นะจ๊ะ

 กำหนดคุณสมบัติของ MSFlexGrid1 ดังนี้ครับ

 ก็คือเลือก ข้อมูลที่ได้มาจาก ตัว Control Data นั่นแหละครับ

Code

Private Sub Command1_Click()

Dim PFileName As String


PFileName = ""
 CommonDialog1.Flags = cdlOFNHideReadOnly
 CommonDialog1.Filter = "Excel(*.xls)|*.xls"
 CommonDialog1.FilterIndex = 2
 CommonDialog1.ShowOpen
 PFileName = CommonDialog1.FileName
 Data1.Connect = "Excel 5.0;"
 Data1.DatabaseName = Trim(PFileName)
 Data1.RecordSource = "Sheet1$"                 'ชื่อไฟล์ Excel ผมตั้งไว้จะเปิดที่ชื่อ Sheet1   เลข1เขียนติดกันนะครับอยากให้เปิด SheetName ชื่ออะไร ก็เปลี่ยนเอานะ
 Data1.Refresh
 Text1.Text = PFileName               'เอาไว้สำหรับแสดงที่อยู่ของไฟล์ที่เราเลือกนะครับ
 Label1.Caption = MSFlexGrid1.Rows - 1 'เอาไว้นับข้อมูลของ Excel ไม่รวมกัน (Header) หัวตารางนะครับ ลองดู
End Sub

 การทำงานนะครับ

กดปุ่ม  Command1 ปุ่มที่ผมทำไว้ก็คือ ปุ่ม ..... นั่นแหละ

แล้วก็ไปเลือกไฟล์ Excel ที่ต้องการครับ

ไฟล์ Excel ก็จะถูกนำมาใส่ใน Grid แล้ว  ไม่ยากใช่ไหม ? แต่ผมเขียนให้มันยาวไปเอง  555+

 ปล.อยากให้สวยก็ต้องจัดระเบียน Grid เอานะ

[VB6] สร้างไฟล์ Text

[VB6] สร้างไฟล์ Text

ก่อนอื่นเลย ออกแบบหน้าจอ ตามนี้ก่อน

 รูปหน้าจอ

กำหนดค่าพร็อพเพอร์ตี้ของคอนโทรลดต่ละตัว
ออบเจ็กต์/คอนโทรล	พร็อพเพอร์ตี้	ค่าที่กำหนด
Form1	Caption	สร้าง Text File
Text	Name	Text1
	Caption	Text
Button	Name	Command1

Code

Private Sub Command1_Click()
 Open "C:\Text_file.txt" For Output As #1   'สร้าง ไฟล์ ขึ้นมาตามที่อยู่ แล้วแต่จะเปลี่ยนดูก็ได้นะ
 Print #1, Text1.Text                       'ข้อมความที่ ต้องการจะให้เขียนลงในไฟล์
 Close #1
End Sub

ผลการทดลอง

เมื่อลองกด ปุ่ม สร้างไฟล์ ไฟล์ จะถูกสร้างขี้นที่ ไดร์ C:\ ชื่อ Text_file.txt 

แล้วเปิดดูจากโปรแกรม Notepad ข้างในจะถูกเขียนว่า text1   ที่เหลือก็ลองเอาไปประยุทธ์ดูเอานะ

เพิ่มเติมนะครับ 

For Append As #1   คือการเขียนไฟล์แบบเพิ่มเติ่ม          เมื่อกดปุ่มอีกครัง ไฟล์จะถูกเขียน ต่อๆ กันไปเรื่อย ๆ ครับ

For Output As #1    คือการเขียนทับใหม่ลงไปทั้งหมด      เมื่อกดปุ่มอีกครัง ไฟล์จะถูกเขียนเขียนทับทั้งหมดครับ