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 >> >> >> > >
