Soru Exceldeki verileri notepad dosyasına aktarma

[kaos64]

Merhabalar örnek dosyadan notepad dosyasına veri aktarmak istiyorum yardımcı olursanız sevinirim.
örnek notepad içeriğinde teşekkürler.

 

[Korhan Ayhan]

Arşiv konularını inceleyiniz..

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

www.excel.web.tr

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Alternatif olsun.
İyi çalışmalar

 

[kaos64]

Merhaba Arkadaşım,
Alternatif olsun.
İyi çalışmalar
[/ALINTI]
Tevfik Bey öncelikle çok teşekkür ederim ufak bişey daha istesem
004,01010,0 2023/11/12 17:16:00 tarih kısmından yil ay gün örnekteki gibi olabilir mi

 

[Haluk]

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 Kill TargetPath & "\Deneme.txt"
    
    FileNum = FreeFile
    Open TargetPath & "\Schema.ini" For Output As #FileNum
        Print #FileNum, "[Deneme.txt]"
        Print #FileNum, "ColNameHeader=False"
        Print #FileNum, "CharacterSet=ANSI"
        Print #FileNum, "DecimalSymbol=."
        Print #FileNum, "TextDelimiter=None"
        Print #FileNum, "Col1=F1 Long"
        Print #FileNum, "Col2=F2 Long"
        Print #FileNum, "Col3=F3 Long"
        Print #FileNum, "Col4=F4 Date"
        Print #FileNum, "DateTimeFormat=yyyy/mm/dd hh:nn:ss"
    Close #FileNum
    
    Set adoCN = CreateObject("ADODB.Connection")
    
    If Val(Application.Version) < 14 Then
        adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
        adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;"
    Else
        adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
        adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;"
    End If
    
    adoCN.ConnectionString = ThisWorkbook.FullName
    adoCN.Open
    
    strSQL = "Select * Into [Text;Database=" & TargetPath & ";CharacterSet=65001;HDR=No;].[Deneme.txt] From [Sayfa1$] "
    
    adoCN.Execute strSQL
    
    Kill TargetPath & "\Schema.ini"
    
    MsgBox "Deneme.txt dosyasi " & vbCrLf & vbCrLf & TargetPath & vbCrLf & vbCrLf & "klasöründe oluþturuldu...!"
    adoCN.Close
    Set adoCN = Nothing
End Sub

.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
If b = SonYt Then satırının altına aşağıdaki satırı ekleyiniz.
R.Cells(a, b) = Format(R.Cells(a, b), "yyyy/mm/dd hh:nn:ss")
Yerinizde olsam Haluk hocanın yöntemini kullanırdım. Bence daha metodik.
İyi çalışmalar