Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : 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

Tagg :

3 Reply :

  1. kunjungan balasan :)
    salam kenaal

    BalasHapus
  2. tq masbro riyu,banyak ilmu yg sy ambil dari sana :)

    BalasHapus
  3. Komentar ini telah dihapus oleh administrator blog.

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.