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

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

Merhaba, Döngünün içine if şartı ile boş satırlar hariç diyebilirsiniz. Sub txt_yeni() Sheets("AccuMark Explorer").Select Dim i, sat As Integer sat = ActiveSheet.UsedRange.Rows.Count Open ThisWorkbook.Path & "\" & [b1] & ".txt" For Output As #1 For i = 1 To sat If Cells(i, "a") <> "" Then...

Merhaba sizin kodunuzu önce ilgili sayfaya gideceği için aşağıdaki gibi ekliyorum durmaksızın dönüyor 32 gb xeon işlemci %100 cpu hatası veriyor Sub Droplu_Sipariş() Sheets("AccuMark Explorer").Select ' Önce bu sayfaya gideceği için sizin kodu bu satırdan sonra ekliyorum For t...

Merhaba aşağıdaki kod Sheets de belirtilen sayfaya gidip A sütununu masa üstüne txt olarak kaydediyor fakat gittiği sayfanın A sütununda boş satırlar olabiliyor önce boşları gizleyip txt ondan sonra alsa ve işi bitince gizledikleri tekrar açacak şekilde düzenlenebilir mi Sub txt()...