Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trying to Append File using the example in excel but not working
Hello
Im trying to open a file and if it does not exist - then create it, and write to the end of it. I have copied the example from help on "opentextfile method" and it does not work Can anyone help Thanks in advance Susan Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse) f.Write "Hello world!" f.Close End Sub Aswell is it possible to insert a row without inserting it into column A? ie column A has numbers 1,2,3... whcich are passed downward as the rows are inserted. I have found a way around it by calculating this series in a do while loop. I would perfer to avoid this! Thanks Again Susan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trying to Append File using the example in excel but not working
I defined forappending = 8 and it worked ok:
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0 (don't forget tristatefalse if you have Option explicit turned on.) Susan Hayes wrote: Hello Im trying to open a file and if it does not exist - then create it, and write to the end of it. I have copied the example from help on "opentextfile method" and it does not work Can anyone help Thanks in advance Susan Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse) f.Write "Hello world!" f.Close End Sub Aswell is it possible to insert a row without inserting it into column A? ie column A has numbers 1,2,3... whcich are passed downward as the rows are inserted. I have found a way around it by calculating this series in a do while loop. I would perfer to avoid this! Thanks Again Susan -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trying to Append File using the example in excel but not working
Not sure what you mean for the second question, but maybe you could just insert
columns B:IV and shift down? (or just renumber column A?) Susan Hayes wrote: Hello Im trying to open a file and if it does not exist - then create it, and write to the end of it. I have copied the example from help on "opentextfile method" and it does not work Can anyone help Thanks in advance Susan Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse) f.Write "Hello world!" f.Close End Sub Aswell is it possible to insert a row without inserting it into column A? ie column A has numbers 1,2,3... whcich are passed downward as the rows are inserted. I have found a way around it by calculating this series in a do while loop. I would perfer to avoid this! Thanks Again Susan -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Excel VBA: sending output data table to created .csv file +append Options | Excel Discussion (Misc queries) | |||
Is it possible to Append worksheets in the same excel file? | Excel Discussion (Misc queries) | |||
Append Excel Sheet from constantly updating delimited text file | Setting up and Configuration of Excel | |||
how can I Append values to an existing excel file. | New Users to Excel | |||
Append the data given in diff sheets of an Excel File to one sheet | Excel Worksheet Functions |