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

@Murat OSMA , hastag kodları üzerinden bir kaç değişiklik ile vcf den verileri okuyup ayrı ayrı vcf dosyaları oluşturur. Her BEGIN:VCARD satırı gördüğünden yeni dosya oluştur koşulu ile oluşuyor. '@Murat Osma, Hastag sayfa gönderim sayıları Dim GonderiSayisi, satir Sub...

Merhaba; Aşağıdaki kod ile daha önce txt dosyayı kaydediyordum. Şimdi excel kaydedeceğim. Dosyayı masaüstüne kaydediyor ama açarken dosya biçimi hatası veriyor, dosya açılmıyor. Aynı amaca uygun farklı bir kod yapısı da olur. Yardım edebilir misiniz ? Dim desktopPath$, myFile$, i, lRow...

Ömer Hocam selamlar Range("A1:A10") hücre aralığına; veriyi Range("A1").CopyFromRecordset RS yöntemiyle kopyaladıktan sonra txt dosyası olarak kaydediyorum. hücreye kopyalamadan doğrudan Recordset içinden txt dosyasına yazdırmak mümkün müdür? Kodu aşağıdaki gibi düzenledim ama hata verdi...

Merhaba; Alternatif olsun. Sub saveAsTXT() Num = 12 dosyaadı = "temp_" Open ThisWorkbook.Path & "\" & dosyaadı & Num & ".TXT" For Output As #1 For i = 1 To Range("A65536").End(xlUp).Row yazz = Cells(i, 1) Print #1, yazz yazz = Empty Next i Close #1 MsgBox "TXT dosyası kaydedildi..", vbOKOnly...

Merhaba, Deneyiniz... Sub saveAsTXT() Dim myPath As String Dim myFileName As String Num = 12 myPath = ThisWorkbook.Path myFileName = myPath & "\temp_" & Num & ".txt" Open myFileName For Output As #1 Print #1, Join(Application.Transpose(Range("A1:A10")), vbLf) Close #1 MsgBox "TXT dosyası...

tamamdır hallettim. teşekkür ederim :)

VBA kodunuzda, "run-time error '9': subscript out of range" hatası alıyorsunuz. Bu hata, döngünün Sheet1 sayfasından veri okumaya çalışırken bir hücreye erişmeye çalıştığında ve o hücrenin var olmadığında oluşur.Çalışma kitabınızda "Sheet1" adlı bir sayfanın olduğundan emin olun. Bu adla bir...

Merhabalar, Telefon rehberimi düzenlemek için oluşturduğum excel sayfasında a sütununda ( First Name ) b sütununda ( Last Name ) c sütununda ( Phone Number ) başlıkları bulunuyor ve toplam satır sayısı 2043 . vba ya eklediğim kod bu şekilde ; ne yaptıysam run-time error '9' : subscript out of...

Sub txtOlustur2() Dim desktopPath$, myFile$, i, lRow, dataObj Set dataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") myFile = desktopPath & "\Aktif.txt" lRow = Intersect(Range("A:D")...

Dim myFile As String Dim rng As Range Dim cellValue As String Dim i As Integer, j As Integer Dim desktopPath As String desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") myFile = desktopPath & "\Aktif.txt" Open myFile For Output As #1 Set rng =...

Merhaba, Sub Kod() Open ThisWorkbook.Path & "\Text.txt" For Output As #1 Dim R As Range Range([K1].Text).Select Set R = Selection For a = 1 To R.Rows.Count For b = 1 To R.Columns.Count If b = R.Columns.Count Then Print #1, R.Cells(a, b) Else Print...

Formun load kısmına bu şekilde ekledim. Private Declare Function LoadLibraryA Lib "kernel32" (ByVal fileName As String) As Long Private Sub Form_Load() Dim dllPath As String dllPath = App.Path #If Win32 Then dllPath = dllPath & "\MediaInfoDLL\x86\MediaInfo.dll"...

Sub TxtYAP() Dim myFile As String Dim rng As Range Dim cellValue As String Dim i As Integer, j As Integer Dim desktopPath As String desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") myFile = desktopPath & "\Kurumlar.txt" Open myFile For...

Sub TxtYAP() Dim myFile As String Dim rng As Range Dim cellValue As String Dim i As Integer, j As Integer Dim desktopPath As String desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") myFile = desktopPath & "\" &...

Sub TxtYAP() Dim myFile As String Dim rng As Range Dim cellValue As String Dim i As Integer, j As Integer myFile = Application.GetSaveAsFilename(FileFilter:="Metin Dosyası (*.txt), *.txt") If myFile = "False" Then Exit Sub Open myFile For Output As #1...

Merhaba; Öncelikle "C:" kök dizininde çalışmamayı prensip edinmenizi tavsiye ederim. Aşağıdaki kodu kök dizinde test ederseniz "Path/Access" hatası alırsınız. Sub Test_B2() Dim c As New MediaInfo, strProps As String, strTxt As String, strFile As String strFile =...

Boş bir module ekleyip kodu çalıştırın. Text dosyaları masaüstüne kaydedilecek. Option Explicit Sub CreateTxt() Dim gss As Worksheet, txt5510 As Worksheet, cn As Object, rs As Object Dim lastRow As Long, l As Long, strArr(22) As String, i As Integer, curDonem As String, iFile As...

Kml uzantılı dosyayı okutup düşey ara ile bilgi ekleme yaparak kaydediyorum. Formda bulduğum txt kaydet makrosuyla kml uzantı vererek kaydediyorum. Gayet güzel çalışıyor. Benim sorunum Google Türkçe karakterleri karakter olarak getiriyor. Farklı bir editöre excel sayfasındaki bilgileri...

Alternatif (Döngü kullanmadan ADO ile); Sub Test() ' Haluk - 12/11/2023 ' Dim adoCN As Object Dim strSQL As String, DatabasePath As String, TargetPath As String Dim FileNum As Long TargetPath = ThisWorkbook.Path If Dir(TargetPath & "\Deneme.txt") <> "" Then...

Excelde veri sayısı dinamik amacım exceldeki TC leri txt dosyasına aktarmak aşağıda ki kod işe yaramakta fakat son satıra boş satır ekliyor bunu eklemesini nasıl engellerim veya nasıl silebilirim? Sub txtCreate() Dim s1 As Worksheet Dim arr As Variant Dim data As String, file As...