Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to output a textfile format in such design
Hi all,
I'm new for doing Excel programming. Can someone teach me how to output a text file which the output design should be like this: Fruit01072008 Apple classA;5000 classB;6000 classC;7000 Orange classA;1000 classB;3000 classC;5000 Strawberry ClassA;850 ClassB;1000 classC;1299 In the Excel Sheet contain: Column A Column B Column C Column D Fruit Orange 1000 ClassA Fruit Orange 3000 ClassB Fruit Orange 5000 ClassC Fruit Apple 5000 ClassA Fruit Apple 6000 ClassB Fruit Apple 7000 ClassC Fruit Strawberry 850 ClassA Fruit Strawberry 1000 ClassB Fruit Strawberry 1299 ClassC |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to output a textfile format in such design
Put your data in A1 thru A13 and then run:
Sub Macro1() ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\Book1.txt", FileFormat:=xlText, _ CreateBackup:=False End Sub -- Gary''s Student - gsnu2007j " wrote: Hi all, I'm new for doing Excel programming. Can someone teach me how to output a text file which the output design should be like this: Fruit01072008 Apple classA;5000 classB;6000 classC;7000 Orange classA;1000 classB;3000 classC;5000 Strawberry ClassA;850 ClassB;1000 classC;1299 In the Excel Sheet contain: Column A Column B Column C Column D Fruit Orange 1000 ClassA Fruit Orange 3000 ClassB Fruit Orange 5000 ClassC Fruit Apple 5000 ClassA Fruit Apple 6000 ClassB Fruit Apple 7000 ClassC Fruit Strawberry 850 ClassA Fruit Strawberry 1000 ClassB Fruit Strawberry 1299 ClassC |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to output a textfile format in such design
This code will give you exactly what you posted
Sub SaveData() Const ForReading = 1, ForWriting = 2, _ ForAppending = 3 fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Text Files (*.txt), *.txt") If fileSaveName = False Then MsgBox ("Cannot Save File") Exit Sub End If Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.CreateTextFile(fileSaveName, True) OutputLine = "Fruit" & Format(Date, "MMDDYYYY") f.writeline OutputLine Fruit = "" RowCount = 1 Do While Range("A" & RowCount) < "" If Range("B" & RowCount) < Fruit Then Fruit = Range("B" & RowCount) f.writeline Fruit End If f.writeline Range("D" & RowCount) & ";" & Range("C" & RowCount) RowCount = RowCount + 1 Loop f.Close End Sub " wrote: Hi all, I'm new for doing Excel programming. Can someone teach me how to output a text file which the output design should be like this: Fruit01072008 Apple classA;5000 classB;6000 classC;7000 Orange classA;1000 classB;3000 classC;5000 Strawberry ClassA;850 ClassB;1000 classC;1299 In the Excel Sheet contain: Column A Column B Column C Column D Fruit Orange 1000 ClassA Fruit Orange 3000 ClassB Fruit Orange 5000 ClassC Fruit Apple 5000 ClassA Fruit Apple 6000 ClassB Fruit Apple 7000 ClassC Fruit Strawberry 850 ClassA Fruit Strawberry 1000 ClassB Fruit Strawberry 1299 ClassC |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combo chart format- what is the best way to achieve this design? | Charts and Charting in Excel | |||
How to format userform label at design time? | Excel Programming | |||
report output format | Excel Programming | |||
Web Query output, how to format? | Excel Programming | |||
Hyperlinks Inserted in Design Mode inactive once Exited Design Mod | Excel Programming |