• Panduan VBA Excel Memasukkan File Text (Notepad) Kedalam Lembar Kerja Excel

    import file text ke excel Sebelum masuk pada pokok pembahasaan utama, terlebih dahulu ada baiknya kita mengetahui apa itu notepad dan bagaimana kita menggunakan dalam media kerja.

    Walaupun definisi notepad dan cara membuka notepad bagi sebagian orang sudah merasa tidak asing lagi, namun bagi sebagian orang lagi barangkali ada yang belum begitu memahami arti serta kegunaan dari notepad itu sendiri. Apalagi ketika ada tugas atau sebuah pekerjaan yang mengharuskan merubah format dengan menggunakan notepad.

    Notepad adalah aplikasi yang terdapat pada komputer berfungsi sebagai media untuk mengubah suatu file/kode sumber bebas serta mendukung berbagai bahasa pemrograman. Notepad biasanya berfungsi mengubah kode ke dalam format txt.

    Membuat file text (atau yang berbasis notepad) bisa dilakukan dengan beberapa cara, antara lain :
    • Membuka Aplikasi Notepad, kemudian menyimpannya
    • Klik kanan area kosong desktop atau Windows Explorer, kemudian pilih menu atau perintah "Text Document" untuk membuka aplikasi Notepad, kemudian menyimpannya

    • Atau bisa juga menggunakan aplikasi pengolah kata seperti Microsoft Word, kemudian menyimpan dokumen dengan format txt
    Intinya, file notepad memiliki .txt
    Jadi meskipun kita membuat sebuah dokumen di aplikasi pengolah kata kemudian kita menyimpannya dengan format text, maka secara default ia akan dapat dibuka menggunakan Aplikasi Notepad.

    Kembali ke pokok pembahasan Microsoft Excel.
    Saya berasumsi Anda sudah punya sebuah file Text Document (.txt) yang ingin Anda panggil dan meletakkannya ke dalam lembar kerja Microsoft Excel yang sedang aktif.
    Maka, salah satu solusinya adalah dengan menggunakan bantuan Macro VBA Excel, yang kira-kira hasilnya akan seperti berikut :


    Dari hasil di atas, pengguna mencari sebuah file yang berekstensi .txt dan kemudian meletakkannya ke dalam lembar kerja Microsoft Excel yang saat ini sedang aktif atau terbuka.

    Cara untuk membuka dan kemudian menampilkan isi dari file .txt ke dalam lembar kerja Microsoft Excel adalah :
    1. Aktifkan jendela Microsoft Visual Basic Editor dengan menekan tombol pintas Alt + F4
    2. Tambahkan sebuah module baru
    3. Di jendela kode untuk module yang sudah dibuat dilangkah sebelumnya, masukkan atau ketik kode berikut
      Sub Import_Txt()
      Dim fileToOpen As Variant
      Dim fileName As String
      Dim sheetName As String
      Dim a As String
      a = ThisWorkbook.Name
      
      Application.ScreenUpdating = False
      fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
      If fileToOpen <> False Then
                Workbooks.OpenText fileName:=fileToOpen, _
                DataType:=xlDelimited, Tab:=True
                Else
                Exit Sub
      End If
      
      fileName = Mid(fileToOpen, InStrRev(fileToOpen, "\") + 1)
      sheetName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
      
      Windows(fileName).Activate
      ActiveWorkbook.Sheets(sheetName).Range("A1:A50").Copy
      
      ActiveWorkbook.Close
      Windows(a).Activate
      Range("A1").PasteSpecial
      Application.ScreenUpdating = True
      End Sub
    4. Langkah terakhir adalah, mencoba menjalankannya dengan menekan tombol F5 yang terdapat di papan keyboard Anda atau atau bisa juga menjalankannya dengan menekan tombol yang terdapat di menubar
    Jika berhasil, maka Lembar kerja Microsoft Excel Anda akan secara otomatis terisi dengan data-data yang sesuai dengan apa yang ada di file notepad (.txt) yang sebelumnya Anda pilih. Jika belum berhasil, silahkan ulang lagi dari langkah pertama hingga akhir Jika masih juga belum berhasil, Silahkan kontak kami atau langsung aja klik tautan berikut download

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger