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' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> 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 himmah....@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nm...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> 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 himmah....@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com> 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
>>>
>>>
>>>
>>
>
>
