Microsoft KB Archive/104997

= Macro to Save Data as Tab-Delimited File without Quotes =

Article ID: 104997

Article Last Modified on 6/23/2005

-

APPLIES TO


 * Microsoft Excel 97 Standard Edition

-



This article was previously published under Q104997



SUMMARY
In Microsoft Excel, to save a selection of data as a tab-delimited text file, select the Text file format in the Save File As Type box in the Save As dialog box. When you save a file in this format, if any of the cells in the spreadsheet contain commas, quotation marks, or other characters that could be misinterpreted when you reopen the file, Microsoft Excel encloses those values in quotation marks.

If you want to create a tab-delimited text file and you do not want these additional quotation marks to be added, you must use a macro to save the data to a text file.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. To create a tab-delimited text file without enclosing text strings in quotation marks, use the appropriate method for your version of Excel.

Microsoft Excel 97
  In a new Microsoft Excel 97 workbook, insert a macro sheet by following these steps:

     a.  Right-click a sheet tab and then click Insert. b. In the Insert dialog box, click to select MS Excel 4.0 Macro c. Click OK.   Click the macro sheet tab and type the following:

     A1: TextFile Macro A2: =SET.NAME("nextcol",0) A3: getname=FOPEN(INPUT("Filename:",2),3) A4: =SET.NAME("colcount",COLUMNS(SELECTION)) A5: =FOR.CELL("current",SELECTION) A6: =IF(AND(ISNUMBER(current),GET.CELL(7,current)<>"General")) A7: =FWRITE(getname,TEXT(current,GET.CELL(7,current))) A8: =ELSE A9: =FWRITE(getname,current) A10: =END.IF A11: =SET.NAME("nextcol",nextcol+1) A12: =IF(nextcol=colcount) A13: =FWRITE(getname,CHAR(13)&CHAR(10)) A14: =SET.NAME("nextcol",0) A15: =ELSE A16: =FWRITE(getname,CHAR(9)) A17: =END.IF A18: =NEXT A19: =FCLOSE(getname) A20: =RETURN  Select cell A1, on the Macro sheet. On the Insert menu, point to Name and click Define. Click the TextFile Macro so that the title appears in the "Names in workbook" box. In the "Refers to" box, verify the address of the macro is:

=macrosheetname!$a$1 Under Macro, click Command, and then click OK.</li> Switch to the sheet that contains the range that you want to export and select that range.</li> On the Macro menu, click Run. In the Macro dialog box, select the TextFile macro and click OK.</li></ol>

A dialog box will prompt you for a file name, and the file will be written to that name. Name should include the file name extension if needed.

CAUTION: Any existing files with that same name will be overwritten by the new text file.

Microsoft Excel Version 4.0a and Earlier
<ol>  In a new macro sheet, type the following:

<pre class="fixed_text">     A1: TextFile Macro A2: =SET.NAME("nextcol",0) A3: getname=FOPEN(INPUT("Filename:",2),3) A4: =SET.NAME("colcount",COLUMNS(SELECTION)) A5: =FOR.CELL("current",SELECTION) A6: =IF(AND(ISNUMBER(current),GET.CELL(7,current)<>"General")) A7: =FWRITE(getname,TEXT(current,GET.CELL(7,current))) A8: =ELSE A9: =FWRITE(getname,current) A10: =END.IF A11: =SET.NAME("nextcol",nextcol+1) A12: =IF(nextcol=colcount) A13: =FWRITE(getname,CHAR(13)&CHAR(10)) A14: =SET.NAME("nextcol",0) A15: =ELSE A16: =FWRITE(getname,CHAR(9)) A17: =END.IF A18: =NEXT A19: =FCLOSE(getname) A20: =RETURN </li> Select cell A1.</li> From the Formula menu, choose the Define Name command. Verify that TextFile Macro appears in the Name box, and A1 appears in the Refers To box.</li> Under Type, select Command and click OK.</li> Switch to the sheet that contains the range that you want to export and select that range.</li> On the Macro menu, click Run. In the Macro dialog box, click the TextFile macro and click OK.</li></ol>

A dialog box will prompt you for a file name, and the file will be written to that name.

CAUTION: Any existing files with that same name will be overwritten by the new text file.

Explanation of Macro
<pre class="fixed_text">  A1: Macro name. A2: Initialize a variable "nextcol" equal to zero. A3: Open a sequential file for write access using user-provided name stored in "getname". A4: Initialize a variable "colcount" to number of columns in the selected range. A5: Begin a FOR.CELL loop through the selected range. A6: Check to see if current cell contains a number not formatted to      General. A7: If the current cell meets above criteria, write current cell contents to file with formatting. A8: Otherwise A9: Write current cell contents to file without formatting. A10: End If clause. A11: Increment "nextcol". A12: Check to see if end of current row in selection. A13: Write return and line feed to file. A14: Reset "nextcol" to zero. A15: Otherwise A16: Write a tab character to file. A17: End If clause. A18: Go to next loop iteration. A19: Close file on completion. A20: End macro.

Additional query words: 4.00a XL

Keywords: kbmacro kbprogramming kbprb KB104997

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.