exceldeki sütünu txt dönüştürme

[aguney]

Excelde var olan bazı sütunları txt olarak bir dosyaya kaydetmek istiyorum. Örneğin A1 ve B! sütünlarını alsın c:\ödeme.txt olarak kaydedebileyim. Nasıl yapabilirim?

 

[bedersu]

Merhaba,
Şu şekilde basit birşey yapabilirsiniz:

Sub Makro1()
ActiveSheet.Columns("A:B").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:\ödeme.txt", FileFormat:=xlTextPrinter
ActiveWorkbook.Close True
End Sub

 

[aguney]

Ama burda formüllü olan satırı almıyor. Yani sadece yazılı olanları alıyor formüllerle hesaplama yapılmış olan satırda txt #REF! şekilinde çıkıyor. Birde A5:B5 den başlamasını nasıl diyebilirim.

 

[bedersu]

Merhaba,
Şu şekilde deneyin:

Sub kopyala()
ActiveSheet.Range("A5:B65536").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:="C:\ödeme.txt", FileFormat:=xlTextPrinter
ActiveWorkbook.Close True
End Sub

 

[wortex]

excelde istediğiniz sütunları (veya bölüm&#252 kopyalayın.Notepadi açıp yapıştırın.