[Ask] Excel Macro Script VBA

Beranda
Komunitas
Tech
Programmer Forum
[Ask] Excel Macro Script VBA

ProtoMan

21-11-2013 15:13

Edit : Ganti pertanyaan emoticon-Malu (S)

Gan, lg bingung buat looping untuk baca semua text file dalam folder nih emoticon-Cape d... (S)

Spoiler for Coding:

Dim FilePath As String

Sheet = ActiveSheet.Name

FilePath = "C:\Users\User\Desktop\excel\data\" & Sheet & "\130916001.txt"

Open FilePath For Input As #1

row_number = 0

Do Until EOF(1)
Line Input #1, LineFromFile
LineItems = Split(LineFromFile, ",")

ActiveCell.Offset(row_number, 0).Value = LineItems(1)

ActiveCell.Offset(row_number, 1).Value = LineItems(2)

row_number = row_number + 1
Loop

Close #1

Ane perlu looping buat ganti2 yg di bold gan gan emoticon-Matabelo

Spoiler for Path:

FilePath = "C:\Users\User\Desktop\excel\data\" & Sheet& "\130916001.txt"

Ket :
Sheet = nama folder tempat txtnya disimpan

Struktur foldernya seperti :

Folder 160913-01 (Sheet) isinya :
130916001.txt
130916002.txt
130916003.txt
dst

Ane bingung bagaimana cara loopingnya biar isinya bisa dimasukin ke variabel gan biar jadi :

Spoiler for Result:

FilePath = "C:\Users\User\Desktop\excel\data\" & Sheet & "\" & x

Diubah oleh ProtoMan 21-11-2013 18:12

942

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan