kalau wadah sheet nya sih ngga masalah pak, berapapun kolomnya yang masalah adalah jumlah kolom yang ada di text filenya terkait dengan TextFileColumnDataTypes
kalau 8 kolom seperti ini Array(1,1,1,1,1,1,1,1) kalau 10 kolom seperti ini Array(1,1,1,1,1,1,1,1,1,1) kalau 15 kolom seperti ini Array(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1) jadi gimana mencuat array nya menjadi dinamis sesuai dengan jumlah kolom yang ada di text filenya terima kasih Pada 20 April 2017 10.23, 'Mr. Kid' [email protected] [belajar-excel] < [email protected]> menulis: > > > 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 >>>>> >>>>> >>>>> >>>> >>> > >
