[حل شده] راهنمایی در مورد ایجاد فایل متنی جهت پرداخت دسته ای در سامانه بام.

[alipakdell269]

با سلام و احترام.
یه فایل اکسل داریم (پیوست شماره 1)، میخوایم اینو به صورت یک فایل txt utf8 در بیاریم دقیقا شبیه فایل (پیوست 2)
ممنون میشم در این مورد راهنمایی بفرماید.

[M_ExceL]

با سلام و احترام.
یه فایل اکسل داریم (پیوست شماره 1)، میخوایم اینو به صورت یک فایل txt utf8 در بیاریم دقیقا شبیه فایل (پیوست 2)
ممنون میشم در این مورد راهنمایی بفرماید.

سلام،

Sub M_Excel()

    Dim mydir As String
    Dim i As Long
    Dim tlines As Variant
    Dim fsT As Object
    
        mydir = ThisWorkbook.Path & "\UTF8Text.txt"
        Set fsT = CreateObject("ADODB.Stream")
        lstr = Cells(Rows.Count, 1).End(3).Row
        
        fsT.Type = 2
        fsT.Charset = "utf-8"
        fsT.Open
        
            ReDim tlines(1 To lstr)
                For i = 1 To lstr
                     tlines(i) = Cells(i, 1) & "," & Cells(i, 2) _
                     & "," & Cells(i, 3) & "," & Cells(i, 4)
                Next
                
        fsT.WriteText Join(tlines, vbCrLf)
        fsT.SaveToFile mydir, 2
        
End Sub

توضیح :
فایل نهایی با نام UTF8Text، در مسیر فایلتون ساخته می شود.
یا حق.