xls <---> txt dönüştürme ve daha sonra eski haline

[hamitcan]

Bir xls formatındaki dosyayı txt formatına dönüştürmek daha sonra da eski haline getirmek mümkün mü ?

herkese iyi çalışmalar!.....

 

[Red-Kid]

Vallahi makroyla nasıl oluyor bilmiyorum ama
Farklı kaydet ten aşağıda hangi formatta kaydeteceğini seçe biliyorsun.
TXT formatında kaydettikten sonra açarkende alt taraftan format seçimi var ve TXT formatında açıp dirakt karşına "Text To Columns" (türkçesi taminim Texti sütunlara çevirme olabilir) çıkıyor oradan devam deyince TAB ayrımlarını seçip Tamam tuşuna bastıhında formüllerin gitmiş ama sonuçlar ilk kaydettiğin şekilde çıkıyor.

Umarım anlata bilmişimdir

 

[Red-Kid]

Bende İngiliz ce olduğu için açılan pencerelerin Türkçe ne anlama geldiğini tam olarak bilmiyorum ve senin kullandığın versiyonun da bunları yaparmı yapmazmı onuda tam olarak bilmiyoru

:roll: :roll: :roll:

 

[hamitcan]

xls-txt

Teşekkürler, dediğiniz gibi birbirine dönüşüyor.

 

[suatsuphi]

Bunu makroyla nasıl yapıldığını bilen var mı ? Bir fatura.xls dosyasının db sayfasını kaydet dediğimde C: 'ye veya herhangi bir yere txt veya csv olarak (virgülle ayrılmış dosya formatında) nasıl kaydedebilirim.

kadetle ilgili kullandığım yöntem bu ama işe yaramıyor )))))))


Sub kaydet()
Sheets("DB").Select
'klasör açılıyor, dosya b8'den adını alıyor, dosya klasöre kaydediliyor,
Fname = "FATURA" & ".CSV"
ActiveSheet.Copy
klasor = "FATURA"
Set ws = ActiveSheet
Application.DisplayAlerts = False
ac:
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("C:\" & klasor) Then
GoTo devam
Else
Fs.CreateFolder ("C:\" & klasor)
GoTo ac
End If
devam:
With ws
.SaveAs "c:\" & klasor & "\" & Fname
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
MsgBox "Kayıt işleminiz tamamlandı. " & vbNewLine & _
"lütfen kontrol ediniz ", vbInformation, "B i l g i "
End Sub