Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How to use this subroutine on multiple cells?
Hi,
I have the following routine that makes text in cell A1 into the contents of a file defined by B1 and C1. ------------------------------------------------------- Sub WriteCellToFile() Dim fso As Object Dim ts As Object Dim strCellContents As String Dim strFileName As String Dim strPath As String strCellContents = Range("A1").Text strFileName = Range("B1").Text strPath = Range("C1").Text Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(strPath & strFileName, True) ts.writeline (strCellContents) ts.Close End Sub ------------------------------------------------------- I tried running it with Run-Sub/User Form but I can only get it to work on one line, if I change the range to A1:A10 I get an error. Can anybody tell me how to make it into a macro that writes all cells in column A to files? Thanks, Ian |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to find multiple cells/replace whole cells w/data | Excel Discussion (Misc queries) | |||
How do I merge cells with multiple data values? | Excel Discussion (Misc queries) | |||
how can i ignore blank cells when multiple cells? | Excel Worksheet Functions | |||
How do I insert a symbol BEFORE text for multiple cells in Excel? | Excel Worksheet Functions | |||
how do i add the same text after current text in multiple cells | Excel Discussion (Misc queries) |