csv dosyası açma sorunu

[dumanibo]

Merhaba arkadaşlar,

Başka bir PC'nin veritabanından her saat aldığımız verileri csv şeklinde kullandığımız PC'ye kopyalıyoruz.

csv dosyasını excelde açıp biçimlendirdim. Artık açarken biçimlendirdiğim şekilde açılıyor. Ancak bu dosyayı makro ile açıp değerleri yeni dosyaya kopyalamak istediğimde yine veriler tek hücrede ; ile ayrılmış olarak çıkıyor.

Önceden windows98 ve excel2000'de böyle bir sorun olmuyordu. şimdi xp ve excel2003 kurduktan sonra böyle bir durumla karşılaştım.

Bu sorunu nasıl giderebilirim?

 

[Levent Menteşoğlu]

Bence verileri csv dosyasından dış veri al özelliği ile alın.

 

[dumanibo]

Dış veri alma işlemini makro yoluyla nasıl alabilirim peki?

 

[Levent Menteşoğlu]

Dış veri al işlemini yaparken aynı zamanda makro kaydet işleminide çalıştırırsanız, gerekli kodları elde edebilirsiniz.

 

[dumanibo]

teşekkürler Sn. leventm. Bi deneyeyim bakayım bu şekilde sorunu halledebilecek miyim.

 

[dumanibo]

Bu

Sn. leventm,
Bu şekilde bir makro yazdım. Verileri istediğim gibi ayrılmış olarak alıyorum. Fakat bir saat sonra tekrar veri aldığımda önceki aldığı verileri sağdaki hücrelere kaydırıp o şekilde alıyor. Bense aynı verilerin üzerine yazılmasını istiyorum. Bunu nasıl ayarlayabiliriz acaba?

Sub Makro2()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\admin\Belgelerim\TABLOLAR\Veri.csv", _
Destination:=Range("A1"))
.Name = "Veri"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 857
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Levent Menteşoğlu]

Kodunuzun başına önce sayfadaki verileri silen bir satır ilave edin. Örneğin;

columns("a:z").clearcontents

 

[dumanibo]

ilginize teşekkür ederim sn. leventm

 

[dumanibo]

Yukarıdaki kodlar işe yaradı. Ancak bu arada bendeki sorunu da çözdüm. Olayın makrolarla ve excelle ilgisi yokmuş. Verileri aldığım PCdeki liste ayracı "," ile verileri işlediğimiz PCdeki liste ayracı ";" farklı olduğu için sorun çıkıyormuş. Bölgesel ayarlardan her ikisini de "," olarak değiştirince hiçbir sorun kalmadı. Hayret bişey

Neyse benzer sorunlarla karşılaşabilecek arkadaşlara da ışık tutabilmek için bu açıklamayı da yapmak istedim.