Sorgu için arama sonuçları: Open+print+output

Merhaba, Makro ile yapabilirsiniz. ayrc değişkenini ben vbTab olarak belirledim, siz kendinize göre değiştirebilirsiniz. Excelin kayıtlı olduğu klasöre deneme isminde txt dosyası kaydeder. Sub test() Dim i As Long, j As Integer, deg As String, ayrc As String, alan Open...

Merhaba, Bir excel dosyam var ve aşağıdaki kod ile M ve N sütunundaki verileri dışarı txt olarak aktarım yapıyorum fakat M ve N sütunundaki bazı satırlarda 1 rakamı geçmekte ve ben txt dosyası oluştururken bu rakamları kaydetmesini istemiyorum. Nasıl bir kod yazmamız gerekir? Sub...

Teşekkür ederim ellerinize sağlık çok güzel olmuş.

Sub csvVeriAl() Dim csvName$, satirlar, sat, conStr$, i%, _ mySchemaFile, con As Object, cmd As Object, rs As Object csvName = "DGaz.csv" satirlar = Array("[" & csvName & "]", _ "ColNameHeader=False", _ "StartRow=1", _...

İlginiz için teşekkürler problem çözülmüştür. Sub ExceltoText() 'Declaring the variables Dim FileName, sLine, Deliminator As String Dim LastCol, LastRow, FileNumber As Integer 'Excel Location and File Name FileName = "C:\Users\mrcsb\OneDrive\Masaüstü\GEMONT MUHASEBE\MİKROPER TÜM...

@ÖmerFaruk beyin yazdığı kodu bu şekilde birleştirip deneyin.

Bır excel dosyam da kod var bu koda gore bır dosya olusturuyorum ama her seferınde dosya adı degıstırmek ıstemedıgımden Sub vcf_dosya_olustur() yol = ActiveWorkbook.Path & "\" Sheets("Rehber").Select Open yol & "rehberiniz.vcf" For Output As #1 ensonsatir = Cells(Rows.Count...

@ÖmerFaruk Set mydata = OpenDatabase(App.Path & "\Arsiv.mdb") Set myrecord = mydata.OpenRecordset(txtdat.Text) Open Environ("userprofile") & "\desktop\" & txtdat.Text & "_ListesiF.txt" For Output As #1 For i = 0 To myrecord.RecordCount - 1 Print #1, myrecord("lispdosya")...

Temel dosyalama sistemi konusunda biraz daha ilerlemek lazım. Disk üzerinde sanal dosyalar oluşuyor gibi... İlginç gerçekten... Sub Test() Open "c:\users\zeki\desktop\myFile.txt:1" For Output As #1 Open "c:\users\zeki\desktop\myFile.txt:2" For Output As #2 Open...

hocam gerçekten çok teşekkür ederim kod sorunsuz çalışıyor allah razı olsun

Sub writeTextFile() Dim alan(1 To 26), uz(), lR() Dim i&, ii& uz = Array(0, 1, 4, 15, 11, 4, 4, 4, 4, 4, 11, 6, 30, 2, 20, 8, 4, 4, 4, 4, 11, 6, 32, 20, 18, 7, 18) lR = Array(0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1) Open...

Çalışma kitabımda tek sayfadan txt rapor dosyası oluşturuyorum. Bunu iki sayfa olarak tasarlamak istiyorum ama her iki sayfayı tek txt dosyasında birleştirmem mümkünmüdür acaba. Eğer mümkünse örnek makroya ihtiyacım var. Örnek kodum aşağıda bunu iki sayfa tek txt Sub...

Merhaba arkadaşlar yardımınıza ihtiyacım var A ve B sutunlarındaki bilgileri Txt olarak kayıt ediyorum fakat kayıt şekli şöyle olması gerekiyor bir türlü beceremedim. A sutununu TXT de satır başından; B de ki bilgileri ise TAB tuşuna basıp yani boşluk oluşturup kayıt etmek istiyorum mesela...

Path/File Access error hatası alıyorum hocam

Open myFile For Output As #1 For i = 0 To RS.RecordCount - 1 Print #1, RS("Ad") & vbTab & vbTab & vbTab & RS("Soyad") RS.MoveNext Next Close #1 .

Merhaba arkadaşlar; hafızadaki verileri txt dosyasına yazdırıyorum. bu kod ile... With txtaciklama .SelStart = 0 .SelLength = Len(.Text) Clipboard.SetText txtaciklama, vbCFText End With dosyaadi = "Kopyala" komut_txt = Clipboard.GetText txtdosya = (CurDir & "\" & dosyaadi &...

Sayın Muygun Teşekkür ederim elinize sağlık

Merhaba; sayfanın kod bölümüne; Sub txt_kaydet() Set s2 = ThisWorkbook.Worksheets("Sayfa2") Dim i, sat As Integer sat = s2.Range("A65536").End(xlUp).Row Open ThisWorkbook.Path & "\" & [b1] & ".txt" For Output As #1 For i = 1 To sat If s2.Cells(i, "a") <> "" Then Print #1, s2.Cells(i, "a") End...

Sayfa1 deki buton ile çalışacak fakat sayfa 2 nin A sütununu txt olarak kaydedecek şekilde nasıl düzenleye bilirim Dim i, sat As Integer sat = ActiveSheet.UsedRange.Rows.Count Open ThisWorkbook.Path & "\" & [b1] & ".Dosya" For Output As #1 For i = 1 To sat If...

Merhaba Ömer bey Elinize sağlık çok güzel oldu teşekkür ederim zaman ayırdığınız için