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