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.
- Sub BacaTulis()
- ‘deklarasikan variabels
- Dim NewSheet As Worksheet
- Dim tmpStr As String
- Dim no As Integer
- Dim x As Integer
- ‘Write to txt file
- Open “c:\data.txt” For Output As 1
- Print #1, “Data”
- Print #1, “1″
- Print #1, “2″
- Print #1, “3″
- Print #1, “4″
- Print #1, “5″
- Print #1, “6″
- Close
- ‘Membaca dari file txt
- x = 1
- Set NewSheet = ThisWorkbook.Sheets.Add(Type:=xlWorksheet)
- NewSheet.Select
- Open “c:\data.txt” For Input As #1
- Do While Not EOF(1)
- Line Input #1, tmpStr
- NewSheet.[A1].Offset(x, 0).Value = tmpStr
- x = x + 1
- Loop
- Close #1
- NewSheet.Name = “datatxt“
- End Sub
kunjungan balasan :)
BalasHapussalam kenaal
tq masbro riyu,banyak ilmu yg sy ambil dari sana :)
BalasHapusKomentar ini telah dihapus oleh administrator blog.
BalasHapus