TXT dosyasını Excel' e alma hk.

[tamer42]

Merhabalar,

Ekli TXT dosyasını Excel ortamına almak istediğimde;
9.08 10.98 6.11 0.82

bu veriler arasındaki . işaretinden dolayı Excel hücrelerinde tarih formatında geliyor.

09.Ağu Eki.98 06.Kas 0.82

Excel' in TXT verilerindeki "." işaretini "," olarak algılaması sağlanamz mı?

Teşekkürler,
iyi çalışmalar.

 

[halit3]

Merhabalar,

Ekli TXT dosyasını Excel ortamına almak istediğimde;
9.08 10.98 6.11 0.82

bu veriler arasındaki . işaretinden dolayı Excel hücrelerinde tarih formatında geliyor.

09.Ağu Eki.98 06.Kas 0.82

Excel' in TXT verilerindeki "." işaretini "," olarak algılaması sağlanamz mı?

Teşekkürler,
iyi çalışmalar.

Birde bu kod ile veri almayı deneyiniz.

Sub veri_al()
Dim j As Long, i As Long, deg As String, sat As Long, deg2, k As Byte
Dim dosya, yol

yol = ThisWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialFileName = yol
.Show

For j = 1 To .SelectedItems.Count
dosya = .SelectedItems(j)

Range("A1:aa65536").Clear

Application.ScreenUpdating = False
Open (dosya) For Input As #1
Do While Not EOF(1)
    Line Input #1, deg
    sat = sat + 1
    deg2 = Split(deg, vbTab)
    k = 0
    For i = 0 To UBound(deg2)
        k = k + 1
        Cells(sat, k).Value = deg2(i)
    Next i
Loop
Close #1
Application.ScreenUpdating = True
MsgBox "veri.txt dosyasından veriler alınmıştır.", vbOKOnly + vbInformation, "uyarı"


Next j
End With

End Sub

 

[halit3]

bu kod da alternatif olsun.

Private Sub veir_al()

Dim j As Long, i As Long, deg As String
Dim dosya

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialFileName = ThisWorkbook.Path
.Show

For j = 1 To .SelectedItems.Count
dosya = .SelectedItems(j)
Cells.ClearContents

Application.ScreenUpdating = False

Open dosya For Input As #1
Do While Not EOF(1)
Line Input #1, deg
i = i + 1
Cells(i, 1).Value = Trim(deg)
Loop
Close #1

Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=True, Comma:=True, Space:=True, Other:=True, OtherChar _
:=" ", FieldInfo:=Array(Array(1, 1))
Range("A1").Select

Application.ScreenUpdating = True
MsgBox "veri.txt dosyasından veriler alınmıştır.", vbOKOnly + vbInformation, "uyarı"

Next j
End With

End Sub

 

[tamer42]

Sn Halit teşekkürler,

Kod yazmadan çözebilir miyim diye düşünmüştüm.

Acaba Excel' in ayarlarından bir şekilde yapılamaz mı?

iyi çalışmalar.

 

[Zeki Gürsoy]

.
.
Acaba Excel' in ayarlarından bir şekilde yapılamaz mı?

Olmaz olur mu? Aşağıda belirttiğim bunlardan biri;

 

[tamer42]

Olmaz olur mu? Aşağıda belirttiğim bunlardan biri;

Sn Zeki GÜRSOY teşekkürler,

"Aşağıda belirttiğim bunlardan biri" demişsiniz,


başka yöntemler demi var?

iyi Çalışmalar.

 

[Zeki Gürsoy]

Evet, öyle 4-5 tane filan değil; iki tane zaten.
Diğeri de, denetim masasından ayarları değiştirmeden, excel seçeneklerinden ayraç ayarlarını değiştirerek yapıyoruz. Ekli resmi inceleyerek gerekli değişikliği yapın.

 

[tamer42]

Harika !
Zeki Gürsoy iyi ki varsınız