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