نوشتن فایل متنی ( از درون اکسل )

در کد زیر نوشتن روی یک تکست فایل نمایش داده شده .iLastRow و iLastCol متغیرهایی هستند که به ترتیب شماره آخرین ردیف ( No Blank ) و آخرین ستون ( No Blank ) را در خود ذخیره می کنند. از عبارت Open و حالت OutPut برای باز کردن فایل FundPrices استفاده شده و در داخل لوپ هایی محتویات داخل سلول ها طبق آدرس ردیف و ستون مورد نظر گرفته و در تکست فایل Print می شوند و در آخر با دستور Shell تکست فایل در فایل اجرایی notepad به صورت نرمال باز می شود جهت نمایش روی Screen

iLastRow = Range("A" & Rows.Count).End(xlUp).Row
iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Open "C:\Users\Ryan\Documents\wellsr\FundPrices.txt" For Output As #1
For i = 1 To iLastRow
For j = 1 To iLastCol
If j <> iLastCol Then
Print #1, Cells(i, j),

Else

Print #1, Cells(i, j)

End If

Next j

Next i

Close #1

Shell "notepad.exe ""C:\Users\Ryan\Documents\wellsr\FundPrices.txt", vbNormalFocus

برای اضافه کردن به انتهای فایل باید از عبات Append استفاده شود.

اگر در آینده می خواهید داده ها را از یک فایل با استفاده از عبارت #Input بخوانید، به جای عبارت #Print از عبارت #Write برای نوشتن داده ها در فایل استفاده کنید. استفاده از #Write یکپارچگی هر فیلد داده مجزا را با جداسازی صحیح آن تضمین می‌کند، به طوری که با استفاده از ورودی # می‌توان دوباره آن را خواند. استفاده از #Write  همچنین تضمین می کند که می توان آن را در هر محلی به درستی خواند.

• Output: Write to file, overwrite any existing file
• Append: Appends to an existing file
• Input: Read from file (needs to read a file sequentially)
• Random: Read/Write to/from a file (non-sequential, needs fixed data length)
• Binary: For binary files