txt dosyasını excele çekme

[sirkülasyon]

Değerli uzmanlarım, değerli excel ehli ustalarım
Halit ağabeyim muhasebat kökenli olduğu için ricada bulundum. Özür dilerim.
KBS sisteminde Emekli sandığı verilerini SGK sistemine yüklerken KBS txt dosyası olarak bizlere sunuyor. SGK sistemine de txt olarak yüklüyoruz. SGK sisteminde excele alıyor.
Bu sistemi
KBS sisteminde indirip masaüstüne aldığım txt dosyasını yine masaüstünde oluşturduğumuz excele alabilir miyiz?
(txt dosyasında emsan verileri mevcut.)

 

[halit3]

Sorunuzun başlığını değiştirin zira kullanıcı adı ile böyle soru sorulmaz.
bu kodu birdene bakalım ne sonuç alacaksınız.

not :txt dosyası bir klasörün içinde olmalı

Dim msg1

Sub txtdosyasınıcevir()

Sayfa_adı = ActiveSheet.Name
Set Klasor = CreateObject("shell.application").browseforfolder(0, "Lütfen bir klasör seçiniz", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo atla
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 msg1 = MsgBox("Csv Dosyalarını" & Chr(10) & Chr(10) & _
 "silmek için  EVET tıklayınız. " & Chr(10) & Chr(10) & _
"silmemek için HAYIR tıklayınız.", vbYesNo + vbInformation, "u y a r ı !")

Liste (Klasor.Items.Item.Path)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "işlem tamam"
Else
atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
Set Klasor = Nothing

End Sub


Private Sub Liste(yol As String)
Dim fs As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")

uzanti = fs.GetExtensionName(ThisWorkbook.Name)

Dim wb As Workbook

For Each dosya In fs.GetFolder(yol).Files
If ThisWorkbook.Name <> dosya.Name Then
If LCase(fs.GetExtensionName(dosya)) = "txt" Then

ad = yol & "\" & "Excel Dosyaları"

If CreateObject("Scripting.FileSystemObject").FolderExists(ad) = False Then
MkDir ad
End If

If uzanti = "xls" Then
FileFormatNum = -4143
uzanti2 = "xls"
ElseIf uzanti = "xlsm" Then
FileFormatNum = 51
uzanti2 = "xlsx"
ElseIf uzanti = "xlsx" Then
FileFormatNum = 51
uzanti2 = "xlsx"
End If

Workbooks.OpenText Filename:=dosya, DataType:=xlDelimited, Tab:=True
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs ad & "\" & fs.GetBaseName(dosya) & "." & uzanti2, FileFormat:=FileFormatNum
ActiveWindow.Close

If msg1 = vbYes Then
fs.DeleteFile dosya
End If

End If
End If
Next

On Error GoTo sonraki
For Each f In fs.GetFolder(yol).subfolders
Liste2 (f.Path)
sonraki:
Next

Set fL = Nothing
End Sub

 

[sirkülasyon]

Halit Abi
Klasör yolu açılıyor.Ancak "1_emsan_2017_7_00000_13_1_0_62_000" gibi görünen txt emsan verisi görünmüyor. Excele aktaramadım.
Soru Başlığındaki kullanıcı isminizi sildim
Özür dilerim.

 

[halit3]

örnek dosya ekleyin yani sistemden aldığınız dosyayı bire bir ekleyin eğer veriler özelse txt olarak açın özel bilgileri silin sonrada kayıt yapın ve buraya ekleyin

 

[sirkülasyon]

Halit abi
iki kişi bıraktım diğerlerini sildim.
İsimlerini, TC ve emekli sicillerini 0 yaptım.
Birde halit abi tutar kısımları örneğin 235.65 olarak geliyor. bu tutar kısmını 235,65 olarak alıpta en son satıra toplamlarını ekleyebilir miyiz?

 

[halit3]

Bu dosyanın içinde

10000000000;00000000;excel;EXCEL; ;0000;2;2;1600;2;2;1600;231000;396.82;0;496.03;0;297.62;0;0;0
00000000000;00000000;excel1;excel1; ;0000;2;3;1600;2;3;1600;210800;397.07;0;496.34;0;297.8;0;0

böyle veri var

excele dönüştürdüğümüzde

10000000000;00000000;excel;EXCEL; ;0000;2;2;1600;2;2;1600;231000;396.82;0;496.03;0;297.62;0;0;0

00000000000;00000000;excel1;excel1; ;0000;2;3;1600;2;3;1600;210800;397.07;0;496.34;0;297.8;0;0

böyle oluyor

 

[sirkülasyon]

Halit abi
Özel mesaj olarak txt dosyasını orjinal hali ile gönderdim.

 

[halit3]

böyle anlaşılmıyor bu verileri ne yapmak istiyorsunuz benim bu şekilde yardımım olmaz

dosyanın kendisini ve olması gerekeni de ayrı bir excelde yapın buraya ekleyin veya farklı bir siteye ekleyin özelden eklediğiniz sitenin adresini gönderin bir bakalım

 

[sirkülasyon]

Halit abi linki gönderdim. bakabilir misiniz?

 

[sirkülasyon]

Halit abi bu da excele aktarılmış hali

 

[halit3]

bu dosyayı bir dene

 

[sirkülasyon]

Halit abi Ellerine sağlık. Allah senden razı olsun.
çok çok teşekkür ederim.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[Sahin89]

Merhaba cezaevi mutemetliğinde görevliyim, yeni başladım, işi yeni öğreniyorum fakat kurumdaki pclerin yazılımları güncel değil, aynı sorun bende de var KBS emsan veri indirdiğimde metin txt olarak indiriyor, excele çeviriyorum yine aynı şekilde kalıyor, kesenek yüklemek istediğim zaman hata veriyor. yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Bunca yıldır kesenek bilgi sistemi kullandım, hiç txt’yi Excel dosyasına çevirmem gerekmedi. Neden böyle bir ihtiyaç hissettiniz anlamadım.

 

[Sahin89]

Bunca yıldır kesenek bilgi sistemi kullandım, hiç txt’yi Excel dosyasına çevirmem gerekmedi. Neden böyle bir ihtiyaç hissettiniz anlamadım.

Yusuf bey özele bakar mısınız ?

 

[htsumer]

bu dosyayı bir dene

Hocam, bu dosya işime yaradı. Şimdi txt dosyalarını excele aldık diyelim. Ben bir sütunun yanına bir sütun daha ekledim. Kaydettim ve tekrar txt çevirmek istiyorum.

Yani excelde sütun ekledim txt aktarırken o sütuna göre ; ; ile ayrılacak

Şöyle sütun ekledim




TXT oluştur dediğimde şöyle gelecekler

 

[Haluk]

@htsumer;

CSV olarak kaydedip, uzantısını "txt" yaptıktan sonra dosyayı açıp bir bakın bence...

.

 

[htsumer]

@htsumer;

CSV olarak kaydedip, uzantısını "txt" yaptıktan sonra dosyayı açıp bir bakın bence...

.

Sağolun Haluk hocam,
oldu olmasına da



bu şekilde kaydettim..ve şu kısım



şu şekilde geldi..

 

[htsumer]

Böyle olması lazım