Soru Çap işareti sorunu

[k0081]

Merhaba arkadaşlar

*.txt dosyasından veri alıyorum excel saydasına fakat çap işareti farklı geliyor..

Bu şekilde olması gerekirken : ø , böyle geliyor.. : ø

Hata indir

Hata

www.dosyaupload.com

 

[Bagcivan]

Merhabalar,
Sorununuz karakter dizilerinden kaynaklanıyor. Dosyadaki kod 1254 : Türkçe(Windows) ile çalışıyor. 65001: Unicode (UTF-8) olarak alındığında bir sorun olmayacaktır. Kod içerisinde nasıl yapılacağını bilmiyorum ancak yardımcı olacak arkadaşa kolaylık olsun diye paylaşıyorum.

 

[k0081]

Bagcivan

ok. Teşekkürler Hocam.

 

[Haluk]

Sub Test()
    'Haluk - 11/03/2021
    'sa4truss@gmail.com
    
    Dim myFile As Variant, i As Integer
    
    If ThisWorkbook.Connections.Count > 0 Then
        For i = ThisWorkbook.Connections.Count To 1 Step -1
            ThisWorkbook.Connections(i).Delete
        Next
    End If
    
    If ActiveSheet.QueryTables.Count > 0 Then
        For i = ActiveSheet.QueryTables.Count To 1 Step -1
            ActiveSheet.QueryTables(i).Delete
        Next
    End If
    
    myFile = Application.GetOpenFilename("Text Files, *.txt", , "Dosya seçin...")
    If myFile = False Then Exit Sub
    
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("$A$1"))
        .Name = "pipe"
        .TextFilePlatform = 65001
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileConsecutiveDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileDecimalSeparator = ","
        .TextFileThousandsSeparator = "."
        .Refresh BackgroundQuery:=False
    End With
End Sub

.

 

[k0081]

Dosya biçimi ASCII olduğunda sorun çözülüyor.



********************************** BU KONU ÇÖZÜLMÜŞTÜR ******************************

 

[k0081]

@Haluk

Hocam çok Teşekkür ediyorum, Tamamdır... Hatta bir Tık Ötesi...


Hocam ; Siz kodu hazırlarken bende sorunu çözmüştüm. Fakat tabloda da fark ettiğiniz gibi, txt dosya içindeki boşluk ile ayırma veya tab ile veya virgül ile kısmı beni uğraştırıyordu açıkcası. Sizin şu an göndermiş olduğunuz kod ile bi kaç deneme yaptım ve başarılı sonuçlar aldım.

kodda sadece ø işareti kısmını yok sayıp ( Bu çözüldü tarafımdan..) nasıl düzenleyebiliriz ? nereyi değiştirmeliyim ?

*******************************************************************

Tamamdır buldum. Çok Teşekkür ediyorum Hocam...

*******************************************************************

 

[k0081]

@Haluk

Hocam kod satır ve sütunları içeriğe göre daraltıyor. Satı ve Sütunların boyutlarını hiç değiştirmeden kodu revize edebilirmiyiz ?

 

[Haluk]

@Haluk

Hocam kod satır ve sütunları içeriğe göre daraltıyor. Satı ve Sütunların boyutlarını hiç değiştirmeden kodu revize edebilirmiyiz ?

Aşağıdaki kırmızı renkli satır, işinizi görecektir...

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("$A$1"))
        .Name = "pipe"
        .TextFilePlatform = 65001
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileConsecutiveDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileDecimalSeparator = ","
        .TextFileThousandsSeparator = "."
        .AdjustColumnWidth = False
        .Refresh BackgroundQuery:=False
    End With

.

 

[k0081]

@Haluk

Hocam Çok Teşekkür ederim. Tamamdır...
Allah işinizi-gücünüzü rastgetirsin.