veri okumada ondalık sorunu

[astek28]

Arkadaşlar,
Dosyadan veri okuma işlemi için sizlerin vermiş olduğu örneklerden yararlanarak bir excel dosyası oluşturdum. Ancak text dosyasında text dosyasında ondalık bölücü olarak kullanılan karakter . (nokta), oysa excelde sizlerinde bildiği gibi standart ayar , (virgül). bu farklılıktan dolayı okunan sayılar olması gerektiğinden çok farklı olabilmekte. Bu problemi aşma konusunda sizlerden yardım bekliyorum.
Ekte yapmış olduğum dosyalarıda sizlerle paylaşıyorum.
Şimdiden herkese çok teşekkürler.

 

[emrexcel123]

sistem ayraçları her pc'de farklılık gösterir arkadaşım sen şimdi menüden >
araçlar > seçenekler > uluslararası > sistem ayraçları sekmesini kendine göre düzenleyip tekrar dener misin bende ki sistem ayraçları binlik için ".",kuruş için "," 'dür farklılık normaldir fakat excel'e aktarırken metin biçimli kabul edileceğinden hesaplanma yapılmaz ya da milyonlara çıkar asıl hanaler...

 

[astek28]

çok teşekkür ederim.
bu kadar basit olabileceği hiç aklıma gelmemişti doğrusu
bende makroda felan bir değişiklik yapılması gerektiğini düşünmeye başlamıştım.

 

[metinak]

bu problem ile bende baya uğraşmıştım. Çözümü şu şekilde buldum textbox değerlerini *1 ile okututum ve yazdırdım.

ondalik ayraç değerini değiştirmek çözümün bir parcası olabilir ancak farklı bilgisayarlarda çalıştırıldığında problem çözülmez.

 

[omerceri]

Txt Dosyasından verileri nası alıyorsunuz bilmiyorum.
Ama fark etmez, İster kopyala yapıştırdan sonra sütunlara bölün, ister dış veri al ile alın isterse Excelden direkt txt dosyasını açın hepsinde
"Metin Alma Sihirbazı-Adım 3/3" de Gelişmiş seçeneği var, Orada ondalık ayıracı "," veya "." olarak ayarlayabilirsiniz.

 

[omerceri]

Kodu aşağıdaki şekilde değiştirin
Sub TXTAL()
Worksheets("6").Range("a1:l750").Clear

ADRES = "TEXT;c:\veri\veri.txt"
With ActiveSheet.QueryTables.Add(Connection:=ADRES, Destination:=Range("A5"))
.Name = "veri"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 857
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub