hmmm.... 1. Berarti a.txt yang berisi 8 kolom (misalnya) dengan b.txt yang berisi 17 kolom (misalnya) memiliki 8 kolom pertama yang sama ? 2. Sedang c.txt yang berisi 23 kolom (misalnya) akan memiliki 8 kolom pertama yang sama dengan a.txt dan b.txt, dan 17 kolom pertama yang sama dengan b.txt ? 3. Wadah data (sebuah sheet tempat menyimpan data dari kedua .txt file tersebut) berisi banyak kolom mengikuti jumlah kolom terbanyak yang sudah diketahui ? (misal 49 kolom, karena terkadang atau pernah ada z.txt yang berisi 49 kolom)
Demikiankah ? Regards, Kid 2017-04-18 14:25 GMT+07:00 him mah [email protected] [belajar-excel] < [email protected]>: > > > Seperti itu pak kid. Cuma sheet hasilnya cuma satu. Data akan ditambahkan > dibaris selanjutnya. > > Yang jadi masalah adalah jumlah kolom yang ada di text file > > Pada tanggal 18 Apr 2017 12:54, "'Mr. Kid' [email protected] > [belajar-excel]" <[email protected]> menulis: > >> >> >> hmmm.... >> Setiap file txt yang dibaca akan di copy menambahkan di sheet tertentu >> yang sesuai ya. >> Jadi ada 3 txt file : >> a.txt akan di-copy menambahkan data di sheet dtA, >> b.txt akan di-copy menambahkan data di sheet dtB, >> c.txt akan di-copy menambahkan data di sheet dtC. >> >> Tapi nama txt filenya tidak tetap, seperti bulan ini namanya a-Apr17.txt, >> b-Apr17.txt, c-Apr17.txt >> Jumlah kolom di a.txt berbeda dengan di b.txt dan berbeda dengan c.txt. >> >> Begitu ya ? >> >> >> 2017-04-18 7:18 GMT+07:00 him mah [email protected] [belajar-excel] < >> [email protected]>: >> >>> >>> >>> sebenarnya tujuannya akan dibuat database excel dari beberapa file txt >>> jadi untuk file D:\aku.txt >>> akan dibuat dinamis sesuai dengan lsit file yang ada di sheet >>> >>> mungkin ada cara lain pak kid >>> >>> Pada 17 April 2017 19.35, 'Mr. Kid' [email protected] [belajar-excel] < >>> [email protected]> menulis: >>> >>>> >>>> >>>> Boleh tahu kenapa pakai VBA? >>>> Bagaimana kalau pakai data connection saja yang tanpa VBA? >>>> >>>> Regards, >>>> Kid >>>> Sent from my smart enough phone >>>> >>>> On Apr 17, 2017, at 13:10, him mah [email protected] >>>> [belajar-excel] <[email protected]> wrote: >>>> >>>> >>>> >>>> dear all >>>> >>>> maaf mau tanya lagi terkait dengan >>>> impor data dari text file ke excel >>>> >>>> kalau dari menu record macro >>>> terbentuk kode seperti ini >>>> >>>> >>>> With ActiveSheet.QueryTables.Add(Connection:= _ >>>> "TEXT;" & D:\aku.txt" _ >>>> , Destination:=Worksheets("Sheet 1").Range("$A$1")) >>>> .Name = "ImportingFileName" >>>> .FieldNames = False >>>> .RowNumbers = False >>>> .FillAdjacentFormulas = False >>>> .PreserveFormatting = True >>>> .RefreshOnFileOpen = False >>>> .RefreshStyle = xlInsertDeleteCells >>>> .SavePassword = False >>>> .SaveData = True >>>> .AdjustColumnWidth = True >>>> .RefreshPeriod = 0 >>>> .TextFilePromptOnRefresh = False >>>> .TextFilePlatform = 437 >>>> .TextFileStartRow = 2 >>>> .TextFileParseType = xlDelimited >>>> .TextFileTextQualifier = xlTextQualifierDoubleQuote >>>> .TextFileConsecutiveDelimiter = False >>>> .TextFileTabDelimiter = False >>>> .TextFileSemicolonDelimiter = False >>>> .TextFileCommaDelimiter = True >>>> .TextFileSpaceDelimiter = False >>>> .TextFileColumnDataTypes = Array(1,1,1,1,1,1,1,1) >>>> .TextFileTrailingMinusNumbers = True >>>> .Refresh BackgroundQuery:=False >>>> End With >>>> >>>> >>>> yang masih menjadi kendala adalah di baris >>>> >>>> .TextFileColumnDataTypes = Array(2,2,2,2,2,2,2,2) >>>> >>>> kalau seperti yang diatas kan jumlah kolomnya ada 8 >>>> misal kita tidak tahu jumlah kolomnya ada berapa >>>> bisa 8 bisa lebih kecil atau bisa lebih besar >>>> >>>> kira-kira untuk >>>> >>>> baris tersebut modifikasi seperti apa ya >>>> >>>> >>>> terima kasih >>>> >>>> >>>> >>> >> >
