Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
exporting data
Hello,
I am trying to export data to a text file... The problem is that the data needs to be loaded as a string to preserve leading zeros but when i "Write" the data to the file it puts "s in the data file... Here is some code: Dim c As Range Dim intTemp As Variant Dim strFileName As String strFileName = "C:\FoodCost.Dat" Open strFileName For Output As #1 ' Open file for output. For Each c In Range("ItemRange") intTemp = c.Cells(1, 8).Value If c.Cells(1, 8).Value = "" Then GoTo NextItem Write #1, CDec(intTemp) NextItem: Next Close #1 ' Close file. Here is an exerpt of the file: "0000000367" "0010000408" "0030000588" "0040000670" the #s have to be 10 digits with leading 0s... any help would be great... Ernst. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exporting Data | Excel Discussion (Misc queries) | |||
exporting a lot of data | Excel Worksheet Functions | |||
Exporting Data | Excel Worksheet Functions | |||
Exporting data | Excel Programming | |||
Exporting data | Excel Programming |