گاهی اوقات فیلترهای صادراتی مورد استفاده اکسل می توانند نتایج نامطلوبی را در فایل صادر شده ایجاد کنند. به عنوان مثال، هنگامی که به یک فایل متنی جدا شده با برگه ها صادر می کنید، برخی از فیلترهای اکسل علامت نقل قول را در اطراف متن در یک سلول قرار می دهند. به عنوان مثال، فرض کنید یک سلول خاص حاوی متن زیر است:
Create bts; sitemask = "0110"; pcmlink = 40
با این حال، متن موجود در سلول توسط اکسل به این صورت است:
"Create bts; sitemask = ""0110""; pcmlink = 40"
توجه داشته باشید که اکسل علامت‌های نقل قول اضافی را، ابتدا در اطراف کل محتویات سلول، و سپس یک مجموعه اضافی در اطراف هر متنی که قبلاً «نقل‌شده» درون سلول است، اضافه می‌کند.
یک راه حل برای حل مشکل این است که به سادگی فایل متنی ایجاد شده توسط اکسل را در برنامه دیگری مانند Word بارگذاری کنید و از ویژگی Find and Replace برای حذف نقل قول های نامطلوب استفاده کنید. با این حال، راه حل بهتر این است که ماکرو خود را ایجاد کنید که فایل متنی خروجی را ایجاد می کند. ماکرو زیر را در نظر بگیرید:
Sub Export()
Dim r As Range, c As Range
Dim sTemp As String
Open "c:MyOutput.txt" For Output As #1
For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c
Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1
End Sub
تنها کاری که باید انجام دهید این است که سلول هایی را که می خواهید صادر کنید انتخاب کنید و سپس ماکرو را اجرا کنید. سلول های انتخاب شده از کاربرگ استخراج شده و در فایل c:MyOutput.txt قرار می گیرند. (این نام فایل را می توان در ماکرو به هر آنچه که نیاز شما دیکته می کند تغییر داد.)
