Mencetak dan Mengambil Data Dari Excel

Bagaimana cara menceta dan mengambil data dari Excel…?
Dengan excel kita dapat mengelola berbagai macam database, kita dapat membaca data dari file
teks,
mdb,
dBASE
dan database lain,
Dalam pelajaran ini saya ingin menulis database ke file teks di data.txt, setelah itu saya membaca data.txt dan menunjukkan dalam sel lembar kerja di Excel.

1. Sub BacaTulis()   
2. ‘deklarasikan variabels   
3. Dim NewSheet As Worksheet   
4. Dim tmpStr As String   
5. Dim no As Integer   
6. Dim x As Integer   
7. ‘Write to txt file  
8. Open “c:\data.txt” For Output As 1   
9. Print #1, “Data”   
10. Print #1, “1″   
11. Print #1, “2″   
12. Print #1, “3″   
13. Print #1, “4″   
14. Print #1, “5″   
15. Print #1, “6″   
16. Close  
17. ‘Membaca dari file txt   
18. x = 1   
19. Set NewSheet = ThisWorkbook.Sheets.Add(Type:=xlWorksheet)   
20. NewSheet.Select   
21. Open “c:\data.txt” For Input As #1   
22. Do While Not EOF(1)   
23. Line Input #1, tmpStr   
24. NewSheet.[A1].Offset(x, 0).Value = tmpStr   
25. x = x + 1   
26. Loop   
27. Close #1   
28. NewSheet.Name = “datatxt“  
29. End Sub  

---

Share