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

Merhaba arkadaşlar TXT aktarma işlemi için UTF -8 ve yazdır.txt yerine farklı kaydet seçeneği çıkmasını istiyorum. With Worksheets("sayfa2") kayıt_yeri = ThisWorkbook.Path & "\YAZDIR.txt" atxt = FreeFile Open kayıt_yeri For Output As #atxt For i = 5 To...

Aşağıda verdiğim kod excell sayfasındaki A sütununda bulunan verileri 900 er bölerek .txt sayfalarına atıyor. Fakat şöyle bir sorun yaşadım .txt dosyalarına girdiğimde verilerin başında ve sonunda boşluklar oluşturduğunu gördüm bu sorunu nasıl aşarım bir yardımınız lazım şimdiden teşekkürler...

Kolay gelsin. A sütunundan isim B de soyisim C de yaş mevcut bir tablo var. Aşağıdaki kodlar ile içerisinde al geçen isimleri alıyorum. 2. bir şart daha ekleyip. Bulduğu değerlerden en büyük veya en küçük yaşta olanı bulabilir mi? Not: Sql kısmını öğrenmek için internetteki örneklerden bakarak...

Merhaba arkadaşlar; Alttaki kod ile belli bir klasörü içindekilerle sorunsuz zipliyorum fakat zip'i açtığım zaman klasörün bulunduğu önceki dizinlerin iç içe olduğunu görüyorum. Dizin sıralaması olmadan sadece istediğim klasörü ziplemek için ne yapmam lazım? Altta resmi var... Sub...

Merhaba arkadaşlar, Benim sorunum makrodan aldığım text dosyası ile ilgili Kodlarım bunlar; Sub Düğme6_Tıklat() ILKAYARLAR End Sub Private Sub ILKAYARLAR() dosya_adi = ActiveWorkbook.Path & "\kesit.scr" Open dosya_adi For Output As #1 Print #1, "line" Print #1, Cells(18...

İlk olarak makroyla tanışmış biri olarak aşağıda takıldım kaldım. DDE link ile otomatik güncellenen bir excel dosyam var. Burada belirli bir alanı web dosyası olarak 10 dakikada bir FTP ile upload etmek istiyorum. Aşağıdaki gibi bir kod buldum ama bunu nasıl kendime uygulayacağımı bulamadım...

Merhaba arkadaşlar iyi pazarlar, Aşağıdaki formülde Türkçe karakteri desteklemiyor. Desteklemesi için ne yapabilirim? yardımlarınızı rica ederim

Merhaba arkadaşlar, Sub TxtAktar() Dim i, sat As Integer sat = ActiveSheet.UsedRange.Rows.Count Open ThisWorkbook.Path & "\Deneme.txt" For Output As #1 For i = 1 To sat Print #1, Cells(i, "a"), Cells(i, "d") 'a ve d sütun adıdır. Next i Close MsgBox "Txt Dosyası Oluşturuldu"...

Selamlar. Sorunum excel dosyasındaki verileri txt dosyasına UTF-8 BOM suz yazdıramamak."sayfa 1" adında bir sheet içinde C, D sütunlarında veriler var. Bunları arasında eşittir işareti olacak şekile alt alta bir txtye yazdırmaya çalışıyorum. öncelikle şu kodları denedim. ANSI kaydetti Sub...

Private Sub CommandButton6_Click() 'YENİ TXT OLUŞTUR BUTONU TextBox5.Value = "" adres = ThisWorkbook.Path & "\" dosyaadı = InputBox("Lütfen dosya adı giriniz..") Open adres & dosyaadı & ".TXT" For Output As #1 Print #1, TextBox5.Value Close End Sub ekteki çalışmamda yeni txt oluştur...

Öncelikli olarak tüm foruma merhabalar. Makro kullanarak bir text dosyası açıp içerisine 1'den 100'e kadar sayıları arka arkaya yazdırmak istiyorum. Hazırladığım kod aşağıdaki gibi; Sub text() Open "C:\Users\...\Desktop\veri\deneme.TXT" For Output As #1 For i = 1 To 100...

Merhaba Arkadaşlar, I11 den itibaren I sütununda olan verileri J1 deki isimle txt dosyası olarak kayıt etmek istiyorum. Kırmızı ile belirttiğim bölümü başaramadım, yardımcı olursanız sevinirim. Saygılarımla Sub TxtBas() Dim DosyaAdi As String Dim Veri As String isim =...

Merhaba arkadaşlar; Private Sub CommandButton1_Click() Dim i As Long, _ Satir As String, _ yol As String, _ Dosya As String Dim son_k As String son_k = Worksheets(ActiveSheet.Name).Range("A65536").End(xlUp).Row d_name =...

Aşağıdaki kod ile klasör altında txt dosyasyı oluşturuyor. Ancak çalışma zaman hatası veriyor. Sub DOSYA_OLUSTUR() Dim dosyaAdi As String Dim fNumber As Integer Dim fName As String Dim outputDir As String Dim donguSatir As Long Dim yazilanSatir As Integer Dim kisiSayisi As Long Dim toplamTutar...

sitenize yeni üye oldum ve ilgi ile takip etmekteyim, aşağıda kodlarını paylaştığım makro için bir ekleme yapmak istiyorum yardım ederseniz sevinirim.. havuz fonlar ve emeklilik diye belirtilmiş olan hesap numaralarının kümüle toplamları alınıp text e yazılıyor ama benim istediğim bu toplamlar...

Merhaba, Xml makrosunu çalıştırmaya kalktığımda Run-time error '76' Path not found hatası alıyorum debug basınca aşağıdaki makrodaki sarı dolgulu alana atıyor. Konu ile ilgili yardımınızı rica ediyorum. Sub IsgucuCizelgeGiris() hata_yok = True Call Input_Validation If hata_yok Then TAB1 =...

Makro ile; bir txt dosyası açmak ve içine tarih saat yazdırmak istiyorum. eğer txt dosyası zaten var ise var olan yazının bir alt satırına o anki tarih saati yazdırmak istiyorum. Aşağıda çalıştım ama, var olan dosyaya yazdırma işlemini yapamadım. Yardımlarınızı bekliyorum. teşekkürler...

Merhabalar Aşağıda Perl diliyle yazılmış bir script code var. Bu kodu ben bir TXT dosyasından aşağıda olduğu gibi excele çekiyorum. Çünkü bu kod üzerinde kırmızı renkli yerlerde username ve password girişi sağlayıp tekrar dışarıya txt olarak aktarmam lazım. fakar bu değişiklği yapıp tekrar TXT...

Arkadaşlar binlerce Excel dosyası var ve bu dosyaların içinde, değişik sütun ve satırlardaki hücrelerde örn. KA61548 şeklinde değerler yer almakta. Bu KA61548 değerinin KA'nın sağındaki sayılar değişti. Şimdi benim bir listem var Excel'de, Sol sütunda eski kod, sağ tarafta yeni kod. Öyle bir...

burdan bi arkadaş yardımcı olmuştu ve bir kod yazmıştı ama biraz eksiği var ve o arkadaş çevrimdışı yardım bekliyorum Sub kaydet() yol = ThisWorkbook.Path dosya = yol & "\" & Cells(1, "d") & ".txt" Open dosya For Output As #1 For a = 1 To [a65536].End(3).Row veri = Cells(a, "a") & " " &...