VBA [VB EXCEL]

SALAM SUMER...
NK TYE LA MCM MANE NK EXPORT FILE .txt KE .xls BILA TEKAN CMD BUTTON????
Spe ley bntu??

format dlm text file tu cmne?

johnburn wrote:format dlm text file tu cmne?

format .txt la...

putri wrote:SALAM SUMER...
NK TYE LA MCM MANE NK EXPORT FILE .txt KE .xls BILA TEKAN CMD BUTTON????
Spe ley bntu??

xde sape ke nk tolong putri??
cmne ni??

kna wat link la.

chaer89 wrote:kna wat link la.

cmne ekh nk wt link??

klo xslap la..
pkai ADODC ada tool bar 2..
lpa dah

ada cara senang.content utk txt file tu apa.cuba kasi sample sikit.senang orang nak tolong
kalau guna .net kita leh export terus text file tu ker excel

ok

chaer89 wrote:klo xslap la..
pkai ADODC ada tool bar 2..
lpa dah

dalam vb excel ade ADODC Kew??
xsure la..

What they mean is, the txt content, is it in CSV or other format.

iluvkarim.selamat wrote:What they mean is, the txt content, is it in CSV or other format.

the txt content is it in DAT format...

DevGuy wrote:ada cara senang.content utk txt file tu apa.cuba kasi sample sikit.senang orang nak tolong
kalau guna .net kita leh export terus text file tu ker excel

ok

txt file ni format DAT...
??

erm.. cmne ni??

Can you attach a sample of the .dat file.
That might clear things up.

iluvkarim.selamat wrote:Can you attach a sample of the .dat file.
That might clear things up.

sory..
i think cant' because that is private file..
have another way?

kasi aaa sample sikit biar orang senang nak tolong. hadus. kalau tak derr tak dapat aa den nak tolong yekkk

adeh. sample la, not the actual file.

johnburn wrote:format dlm text file tu cmne?

DevGuy wrote:ada cara senang.content utk txt file tu apa.cuba kasi sample sikit.senang orang nak tolong
kalau guna .net kita leh export terus text file tu ker excel

ok

iluvkarim.selamat wrote:Can you attach a sample of the .dat file.
That might clear things up.

DevGuy wrote:kasi aaa sample sikit biar orang senang nak tolong. hadus. kalau tak derr tak dapat aa den nak tolong yekkk

iluvkarim.selamat wrote:adeh. sample la, not the actual file.

Hehe, tujuan ktorng mntk ni sbb nk tgk frmt data dlm text file tu untk memudahkn pengmbilan data.

Code:


Public Sub ImportText(namaFile As String, pemisah As String)

Dim baris As Long
Dim lajur As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim Savelajur As Integer

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

Savelajur = ActiveCell.Column
baris = ActiveCell.Row

Open namaFile For Input Access Read As #1

While Not EOF(1)
    Line Input #1, WholeLine
    If Right(WholeLine, 1) <> pemisah Then
        WholeLine = WholeLine & pemisah
    End If
    lajur = Savelajur
    Pos = 1
    NextPos = InStr(Pos, WholeLine, pemisah)
    While NextPos >= 1
        TempVal = Mid(WholeLine, Pos, NextPos - Pos)
        Cells(baris, lajur).Value = TempVal
        Pos = NextPos + 1
        lajur = lajur + 1
        NextPos = InStr(Pos, WholeLine, pemisah)
    Wend
    baris = baris + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub


Dalam contoh kod diatas, namaFile tu merupakan nama text file yg nk di import ke dlm excel. ko bleh spesifikkn data dlm text file tu dipisahkan oleh apa, sebagai cnth, kl dlm text file tu data die cmni:
data1, data2, data3

So ko bleh nmpk data dlm file text tu dipisahkan oleh koma. untuk memudahkn ko pilih file dan spesifikkan pemisah untuk data, bleh pkai ni:

Code:


Sub ImportFileSetPemisah()
    Dim FileName As Variant
    Dim pemisah As String
    FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
    If FileName = False Then

        Exit Sub
    End If
    pemisah = Application.InputBox("Masukkan aksara pemisah.", Type:=2)
    If pemisah = vbNullString Then

        Exit Sub
    End If
    Debug.Print "Nama Fail: " & FileName, "Pemisah: " & pemisah
    ImportText namaFile:=CStr(FileName), pemisah:=CStr(pemisah)
End Sub


DevGuy wrote:kasi aaa sample sikit biar orang senang nak tolong. hadus. kalau tak derr tak dapat aa den nak tolong yekkk

Guest wrote:adeh. sample la, not the actual file.

huhuhu...
sory guys...
nk sample cmne 2???
xphm deh...
hehehe....

johnburn wrote:

johnburn wrote:format dlm text file tu cmne?

DevGuy wrote:ada cara senang.content utk txt file tu apa.cuba kasi sample sikit.senang orang nak tolong
kalau guna .net kita leh export terus text file tu ker excel

ok

iluvkarim.selamat wrote:Can you attach a sample of the .dat file.
That might clear things up.

DevGuy wrote:kasi aaa sample sikit biar orang senang nak tolong. hadus. kalau tak derr tak dapat aa den nak tolong yekkk

iluvkarim.selamat wrote:adeh. sample la, not the actual file.

Hehe, tujuan ktorng mntk ni sbb nk tgk frmt data dlm text file tu untk memudahkn pengmbilan data.

Code:


Public Sub ImportText(namaFile As String, pemisah As String)

Dim baris As Long
Dim lajur As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim Savelajur As Integer

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

Savelajur = ActiveCell.Column
baris = ActiveCell.Row

Open namaFile For Input Access Read As #1

While Not EOF(1)
    Line Input #1, WholeLine
    If Right(WholeLine, 1) <> pemisah Then
        WholeLine = WholeLine & pemisah
    End If
    lajur = Savelajur
    Pos = 1
    NextPos = InStr(Pos, WholeLine, pemisah)
    While NextPos >= 1
        TempVal = Mid(WholeLine, Pos, NextPos - Pos)
        Cells(baris, lajur).Value = TempVal
        Pos = NextPos + 1
        lajur = lajur + 1
        NextPos = InStr(Pos, WholeLine, pemisah)
    Wend
    baris = baris + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub


Dalam contoh kod diatas, namaFile tu merupakan nama text file yg nk di import ke dlm excel. ko bleh spesifikkn data dlm text file tu dipisahkan oleh apa, sebagai cnth, kl dlm text file tu data die cmni:
data1, data2, data3

So ko bleh nmpk data dlm file text tu dipisahkan oleh koma. untuk memudahkn ko pilih file dan spesifikkan pemisah untuk data, bleh pkai ni:

Code:


Sub ImportFileSetPemisah()
    Dim FileName As Variant
    Dim pemisah As String
    FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
    If FileName = False Then

        Exit Sub
    End If
    pemisah = Application.InputBox("Masukkan aksara pemisah.", Type:=2)
    If pemisah = vbNullString Then

        Exit Sub
    End If
    Debug.Print "Nama Fail: " & FileName, "Pemisah: " & pemisah
    ImportText namaFile:=CStr(FileName), pemisah:=CStr(pemisah)
End Sub


thx arr..
da try da cdg ni...
tp xtw jd x??
huhuhu
sory la xbg sample...
xtw nk bg sample cmne..
pape pon thx..

Ok, contoh data yang diminta tu adalah untuk melihat samada data dalam file tu merupakan delimited data (setiap nilai dipisahkan oleh satu aksara). Contohnya katakan saya ada satu text file yang bernama data.txt, dan kandungan dalamnya adalh seperti berikut:

Code:


LastName,FirstName,MiddleInitial
Myer,Ken,W
Poe, Deborah,L


Dari sini sy dpt tau data dlm text file tu merupakkan comma delimited data, dan ini akn memudahkan sy untuk mengimport data tersebut kedlm excel.

ala senang actual file tu ko edit sikit.taruk aa ali ker abu ker apa22 ker nama kereta ker sukati aa nak taruk apa. ko amik la dlam 5 data kerr lepas tu copy and paste kat sini tu jerrr

thx sumer....
t aq try....