CSV dosyasını Excel de Açmak

[selo1234]

Merhaba,
CSV dosyasını excel VBA de Application.GetOpenFilename(filefilter:="Excel Files, *.csv") ile açıyorum.
İçerik, Excel de kolonlara bölünüp yerleşiyor fakat karakter problemi çıkıyor.
Excel VBA de, UTF-8 ile nasıl açabilirim veya save edebilirim.? Çözüm nedir?

Destekleriniz için şimdiden teşekkürler.

 

[hmtstc]

google sheetten mi veri alıyorsunuz hocam ?

 

[selo1234]

Merhaba,
Hayır google sheet den değil.
Bir web sitesinden ( formidable pro çıktısı), indiriyorum.
Csv dosyasını direkt tıklarsam, tek kolon olarak ve bozuk karakter ile açıyor.
Benim amacım VBA macro ile açmak , yazdığım macro da Application.GetOpenFilename(filefilter:="Excel Files, *.csv") kullanıyorum, bu durumda excel de kolonlara otomatik bölünmüş olarak yerleşiyor ama karakter bozukluğu var.
İlginize teşekkürler

 

[Haluk]

URL'i verirseniz, bakalım...

.

 

[selo1234]

Maalesef, veremiyorum.
URL, admin harici dışarıya kapalı.

 

[Haluk]

CSV dosyasını manuel olarak indirip, açtığınızda karakterler düzgün çıkıyor mu?

.

 

[selo1234]

Merhaba,
CSV dosyasını hep manual indiriyorum zaten.
CSV dosyasını notepad ile açarsam, sorun yok düzgün gözüküyor. Yani CSV utf-8.
Eğer CSV i, Excel içinde macro açarsam karakterler bozuluyor.
İyi geceler

 

[Haluk]

O zaman şu şekilde deneyin;

Sub Test()
    Workbooks.OpenText Filename:="C:\TestFolder\Vardiya.csv"
End Sub

.

 

[selo1234]

Merhaba,
Aşağıdaki kodu kullanıyorum ,ama sonuç vermiyor.

fileName = Application.GetOpenFilename(filefilter:="text Files, *.csv")
Workbooks.OpenText fileName:=fileName, _
Origin:=65001, DataType:=xlDelimited, Comma:=True
If fileName = False Then Exit Sub

 

[Haluk]

Söz konusu CSV dosyasını buraya eklerseniz, duruma bakabiliriz ...

.

 

[selo1234]

Dosya eklemeyi bulamıyorum, medya veya resim ekleme var.

 

[Haluk]

Google Drive falan gibi bir dış server'a yükleyin...

.

 

[selo1234]

200415184948_iş-istasyonları.csv

drive.google.com

 

[Haluk]

"Makro Kaydet" yöntemiyle elde edilen kodlar bende düzgün sonuç verdi;

Sub Macro1()
'
' Macro1 Macro
'

'
    myFile = Application.GetOpenFilename("CSV Dosyaları, *.csv")
    
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("$A$1"))
        .Name = "Excel Vadisi"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

.

 

[selo1234]

Merhaba,
Evet bu çalıştı, çok çok teşekkürler.
İyi günler, iyi çalışmalar