[belajar-excel] Digest Number 4159

Milis Belajar Microsoft Excel Group

5 Messages

Digest #4159

1a

Impor Data Dari text File ke Excel terkait dengan TextFileColumnData by "him mah"

1b

Re: Impor Data Dari text File ke Excel terkait dengan TextFileColumn by "Mr. Kid" nmkid.family@ymail.com

1c

Re: Impor Data Dari text File ke Excel terkait dengan TextFileColumn by "him mah"

2a

Re: Melanjutkan Looping by "Heru Safrudin" heru.safrudin

2b

Re: Melanjutkan Looping by "hery wahyudi" hery_male

Messages

1a

Impor Data Dari text File ke Excel terkait dengan TextFileColumnData

Sun Apr 16, 2017 11:10 pm (PDT) . Posted by:

"him mah"

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

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

1b

Re: Impor Data Dari text File ke Excel terkait dengan TextFileColumn

Mon Apr 17, 2017 5:42 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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.mlg@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
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

1c

Re: Impor Data Dari text File ke Excel terkait dengan TextFileColumn

Mon Apr 17, 2017 5:19 pm (PDT) . Posted by:

"him mah"

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.nmkid@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.mlg@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
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2a

Re: Melanjutkan Looping

Mon Apr 17, 2017 12:04 am (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

For x=1 to 10

If x<5 then

Harus melewati Next <----- Bagaimana biar bisa melewati "Next"

Else

NILAI = x

End If

Cek=True <----- Katakanlah semua harus melewati 'Cek'

Next

Terima kasih

Heru Safarudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 13 April 2017 14:19
To: BeExcel
Subject: Re: [belajar-excel] Melanjutkan Looping

Hai Heru,

Bisa lebih diperjelas ?

Dari x=1 sampai 10 itu, pengennya di x=1 proses apa, x=2 proses apa dst gitu..

2017-04-13 8:18 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Yth. B-Exceller,

Bagaimanakah caranya melewati/melanjutkan loop jika melewati kondisi tertentu ?

Misal:

For x=1 to 10

If x<5 then

Harus melewati Next <----- Bagaimana biar bisa melewati "Next"

Else

NILAI = x

End If

Next

Mohon bimbingannya

Terima kasih

Heru Safrudin

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

2b

Re: Melanjutkan Looping

Mon Apr 17, 2017 6:04 am (PDT) . Posted by:

"hery wahyudi" hery_male

Tidak disarankan,
tapi bisa pakai fungsi goto
____________________________

For x=1 to 10

def:

If x<5 then goto abc

Next

abc:
Bla...bla...bla

x = x + 1
If x<10 then goto def
_____________________________

Cmiiw
On Apr 17, 2017 2:04 PM, "'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

>
>
> For x=1 to 10
>
> If x<5 then
>
> Harus melewati Next <----- Bagaimana biar bisa melewati "Next"
>
> Else
>
> NILAI = x
>
> End If
>
> Cek=True <----- Katakanlah semua harus melewati 'Cek'
>
> Next
>
>
>
> Terima kasih
>
> Heru Safarudin
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 13 April 2017 14:19
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Melanjutkan Looping
>
>
>
>
>
> Hai Heru,
>
> Bisa lebih diperjelas ?
>
> Dari x=1 sampai 10 itu, pengennya di x=1 proses apa, x=2 proses apa dst
> gitu..
>
>
>
>
>
>
> 2017-04-13 8:18 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Yth. B-Exceller,
>
>
>
> Bagaimanakah caranya melewati/melanjutkan loop jika melewati kondisi
> tertentu ?
>
> Misal:
>
>
>
> For x=1 to 10
>
> If x<5 then
>
> Harus melewati Next <----- Bagaimana biar bisa melewati "Next"
>
> Else
>
> NILAI = x
>
> End If
>
> Next
>
>
>
> Mohon bimbingannya
>
>
>
> Terima kasih
>
>
>
> Heru Safrudin
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• New Members 3

• Privacy • Unsubscribe • Terms of Use