[حل شده] ارسال مقادیر از فایل اکسل به تکست فایل

[alisabet]

من با استفاده از کد زیر مقادیری را از یک فایل اکسل در یک فایل تکست ذخیره میکنم ( فایل تکست نمونه مربوط به سیستم واریز جمعی بانک ملی است )

Dim myFile As String
myFile = adrs & "" & Workbooks(currentwb).Sheets("export").Cells(16, 3) & ".txt"
Open myFile For Output As #1
For i = 1 To rw - 1
Write #1, Workbooks(currentwb).Sheets("temporary").Cells(i, 1)
Next i
Close #1

مقادیری که در فایل تکست ذخیره میشود بشرح ذیل است

"735401000600011099112500000046069556000013017 000"
"000010305812560002000000032558238000000000000 000"
"000020103257056008000000015634022000000000000 000"
"000030103257086001000000067580707000000000000 000"
"000040103261289000000000077606940000000000000 000"

که درست است ولی مشکل من دو تا کوتیشنی ( ") که در اول و آخر هر رکورد ثبت شده است چگونه کد فوق را اصلاح کنم تا در فایل تکست عینا اطلاعات فوق بودن کوتیشن ثبت شود ؟

[generalsamad]

با سلام
در صورت امکان فایل نمونه ضمیمه کنید
یه کار کوچیک هم میشه انجام داد
فایل متنیتون رو میتونید باز کنید و از طریق replace علامت " را حذف کنید

اگه روشتون اینه که جتما با کد نویسی حل بشه یک فایل نمونه قرار بدید

[generalsamad]

به جای Write از عبارت Print استفاده کنید ببنید مشکلتون حل میشه

[generalsamad]

این هم یک نمونه کد
مقادیر در ستون اول را در فایل متنی در درایو D ذخیره می کند

Sub Print_to_a_text_file()
    Dim strFile_Path As String
    Dim LR As Integer
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox (LR)
    strFile_Path = "D:\test.txt"
    Open strFile_Path For Output As #1
    For i = 1 To LR
        Print #1, Cells(i, 1)
    Next i
    Close #1
End Sub 

[alisabet]

به جای Write از عبارت Print استفاده کنید ببنید مشکلتون حل میشه

خیلی ممنون با print حل شد