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

Ekte verilen.xls dosyasını unicode txt'e çevirirken arada birçok boşluk bırakıyordu.Forumda bulduğum aşağıdaki kodu kullandım bütün boşlukları kapatırken g ile h sütunu arasındaki boşluğu kapatmıyor. Şu şekilde çıkıyor; Sorum şu: Bu aradaki boşluğu nasıl kapatırız ve dönüştürürken unicode txt...

Üstadlarım hepinize iyi akşamlar. Ekteki dosya ile ilgili bir sorum olacak. Ekteki dosyada bir tuş ile txt dosyası oluşturabiliyorum. Fakat sizlerden isteğim şu. Benim buradan öğrendiğim kod ile yaptığım tuş ile bütün satırlara ait txt dosyası oluşuyor. Benim isteğim ise txt oluşurken telefon...

Open "\deneme.txt" For Output As #1 Do While Not EOF(1) Line Input #1, Txtdata Loop If Txtdata = TextBox1.value Then msgbox "yazılar aynı" Close #1 Else Print #1, TextBox2.Text Close #1 end if deneme.txt deki...

Merhabalar yaptoğım bir formda, Formdan girilen bilgilere göre bir bat file uluşturuyorum ve işleme başla butonuna basıldığında bir exe kullanarak bat dosyasını çalıştırıyorum Bu çalışma Cmd...

Private Sub CommandButton1_Click() yol = "C:\Documents and Settings\ak\Desktop" 'Dosyaların kaydedileceği yol ChDir yol For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then With Sheets(i + 2) Open yol & .Name & ".txt" For Output As #1...

daha önce bu formdan bulduğum vba kodunu değiştirmek istiyorum örnek a1-a70 arasını text dosyası olarak kaydetsin istiyorum ama tek tek yazmak uzun sürer bunun gibi bir kaç dosya var. Sub QQQQ() Open "C:\Veri\" & Range("D1") For Output As #1 ' eğer önceki verilerin silinmesini istiyorsak "For...

Merhaba, sütunları text dosyaya atan ve text dosyayı c:\ dizinine kaydeden bir excelim var ancak Exceldeki macro XP'de çalışıp dosyayı kaydederken Vista'da Macro çalışıyor ancak C'de dosya oluşturmuyor. Yardımcı olabilir misiniz Macro aşağıdaki gibidir. NOT: Macro seviyesi en düşük durumdadır...

Sub disketyaz() sat = 11 sayac = 0 yer = Worksheets(ActiveSheet.Name).Cells(4, 3).Value dosyaad = yer + Format(Str(Worksheets(ActiveSheet.Name).Cells(5, 3).Value), "000") + Mid(Worksheets(ActiveSheet.Name).Cells(6, 3).Value, 1, 2) + Worksheets(ActiveSheet.Name).Cells(8, 3).Value + ".txt" Open...

Merhaba Arkadaşlar macroyu çalıştırdığımda runtime error 53 hatası alıyorum. Bu konuyu bu forumda ve internette araştırdım ama sonuç bulamadım. Aynı problemle ilgili cevap bekleyenlerde var sanırım. Dikkatimi çeken aşağıdaki macroyu daha önce çalıştırdığım halde 1 haftadır birşey oldu hata...

Aşağıdaki olayı gerçekleştiremedik. Birçok makro yazan arkadaşlar başaramadı.Yardımcı olursanız sevinirim.....Şimdiden teşekkürler txt dosyasına kayıt edilecek tablo sarı alan hariç sdlsd 1/2/2005 121 1 @ sdfsdfsd 2/2/2005 ewr wer 223 3 @ sdfwer...

Sub SME() dosya1 = "D:\data.txt" Open dosya1 For Input As #1 dosya2 = "D:\Datalar\SME\data_cıktı.txt" Open dosya2 For Output As #2 Dim AltNo(50) As String Do While Not EOF(1) Line Input #1, read i = i + 1 If Left(read, 3) = "PNM" Then AltNo(i) = Left(read, 14)...

Arkadaşlar, source dosyasından aldığım veriyi işleyip sql script' i oluşturuyorum ve sonra da sql manager' dan script i çalıştırıyorum.. bunu sql manager ile uğraşmadan sql bağlantısı kurup nasıl...

arkadaşlar konumu biraz daha geliştirmem istendi bende farklı bir konu olduğu için yeniden bir başlık açmak durumunda kaldım... istenilen şey, sayfadaki bilgileri text dosyasına aktarması. kodunu uyguladığımda bana...

http://www.imkb.gov.tr/veriler/gk/2006/11/tgk200611131.zip adresinde yayımlanan 13 kasım 2006 tarihli geçici kapanış bülteni yer almaktadır.Bu şekliyle bu veriler metastock programı tarafından tanınmamaktadır.Aşağıda verdiğim makro ile bu veriler metastock un tanıdığı formata çevrilmektedir...

Aşağıdaki kodu forumdan aldım.Excel dosyası açıldığında hedefteki txt dosyasına log almakta ama bir sonraki log öncekinin üzerine yazıyor.txt dosyasında satır satır log oluşturmayı beceremedim ayrıca dosyayı açan makinanın ip sini almam nasıl mümkün olur .yardımcı olmanızı rica ediyorum.LTF...

Aşağıdaki kodu forumdan aldım.Excel dosyası açıldığında hedefteki txt dosyasına log almakta ama bir sonraki log öncekinin üzerine yazıyor.txt dosyasında satır satır log oluşturmayı beceremedim ayrıca dosyayı açan makinanın ip sini almam nasıl mümkün olur .yardımcı olmanızı rica ediyorum.LTF...

permission denied hatası ile ilk defa karşılaşmık bulunmaktayım bir txt dosyasına veri yazdırmak istediğimde karşılaştım araştırdım hatayı write yetkisinin kısıtlı olmasından kaynaklandığını söylediler ama anlamadım tabi yardımlarınızı bekliyorum. '-------Kod aşağıdaki gibi hata nerede...

Selamlar, Aşağıda Sn. Haluk beye ait kodlara belirli kriterler eklemek istiyorum. Kriterlerim; 1- Boş olan satırlar silinecek. 2- 21-05-2006 tarihinden küçük ve 20-06-2006 tarihinden büyük tarih içeren satırlar silinecek. 3- İçerisinde "running" geçen satırlar silinecek. Sonuç olarak...

Arkadaslar, Asagidaki kodu calistirdigimda Sayfa1'de A1'den A10'a kadar yer alan veriler Deneme.txt isimli bir dosyaya aktariliyor. Sorun su ki; eger hucreler sayi iceriyorsa bir bosluk vererek Deneme.txt'ye yaziyor. Yani; ali veli 200 ayse 100 mehmet gibi. Sayilarda neden bir bosluk...

Merhaba; Sıkıntıdan MS Access'i biraz kurcaladım bu akşam ... :mrgreen: [vb:1:6c9e930dd2]'**************************************************** '* MS Access programinda arac cubuklarindaki * '* kontrollerin adlari ve ID'lerini bulup, * '* bir NotePad dosyasina yazdiktan sonra...