Exporting Data Into Multiple Text Files

Jul 29, 2006

I have 10 rows and 3 columns or words(data). What I am trying to do is export this data one row at a time so that I end up with 10 text files. Each row needs to be inserted into 3 variables within my text file. (Variable1,Variable2,Variable3) and then saved. Each saved text file needs to be named Variable1-Variable2-Variable3.txt. End result should have 10 text files that are named corrosponding to each row of data and each text file should also have the 3 variables replaced with the corrosponding row data.

Right now I have to manually rename the text file (Variable1-Variable2-Variable3.txt) and then manually open the text file and select EDIT-REPLACE and insert the data 3 times. I have to do this for many many text files and it is becoming monotinous.

ADVERTISEMENT

Exporting To Text Files

Apr 27, 2007

I am gathering data over several sheets and need to export it as a.txt file.

The problem is that in excel the data reads 1,2,3,4 and when I export it or save as or open and paste to the resulting data reads "1", "2", "3", "4,".

How to I get the txt file to not have the ""'s?

View 9 Replies View Related

Exporting To Multiple Excel Files

Feb 23, 2013

I have a spreadsheet with sales information contained in Sheet1. There are a number of columns including the Region column. I would like a bit of code that exports sales information to a number of Excel files dependent upon the region column. In other words the Region column can contain either North, East, South or West. I would like a different Excel file per region and I'd also like the file names to contain the name of the region + the month and year of the previous month ie if i was exporting today then the North Excel file would be called: "North Sales - Jan 2013".

View 9 Replies View Related

VBA Exporting Filled Rows To Individual Text Files

Feb 21, 2013

I have a Text ID Column and a Text Column. I need to save each row of the Text Column into its own individual text file on my C: Drive. The name of the file should be the the Text ID from the first column. I need this to work with different sample data, so the number of rows will vary. I also need this to be able to work with excel files that contain thousands of rows.

View 2 Replies View Related

Save Ranges In Multiple Files To Text Files

Dec 21, 2007

I have a excel file that I enter information into. I have code that saves the files to a certain folder with the name, date, and time stamp for the file name. At the end of the day I might have 3 to 15 excel files I have created that day and I would like to take information from certain cells (examle: L3, B6, B7, B8, G8, and so on) and create a txt file with all of the information in it.

Example:
12/20/2007
Your Name
123 Somewhere St.
Here, OH 45111
Home Visit

12/20/2007
Someone Else
345 Anywhere St.
There, OH 45211
Hospital Visit

View 9 Replies View Related

Convert Multiple Files To Text Files

Sep 26, 2007

I have about 100 Excel files in one folder that need to be saved as text files. They can keep the same name, but simply need to be converted to text files. I'd like to use VBA for this and I can't find examples that do exactly that...or ones that my limited knowledge can handle.

Excel files exist in C:Source and ALL of them should be saved as text files in C:Destination. Maybe there is an easier way, but I thought for sure there was a routine I could use.

View 4 Replies View Related

Excel VB Code For Exporting Sheets As Consecutively Numbered CSV Files

May 17, 2013

I've been using a script I found on the web to export a book of 15 worksheets so that they are saved into a folder as 15 separate .csv files - these are to then be imported into Adobe InDesign at a later date.

Currently, the code looks like this:

VB:
Sub SheetsToCSV() 'Jerry Beaucaire (1/25/2010)
'Save each sheet to an individual CSV file
Dim ws As Worksheet, OldDir As String

[Code]....

If possible, I would like the sheets to be exported as consecutively numbered files, so that they can be set into the order they are exported in Windows Explorer, rather than alphabetically.

E.g.

Sheet names = Overview, Checking, Testing

.csv export = overview-17.05.2013.csv, checking-17.05.2013.csv, testing-17.05.2013.csv

Goal = 1overview-17.05.2013.csv, 2checking-17.05.2013.csv, 3testing-17.05.2013.csv

I'm not too fussed about the final formatting, as long as the consecutive numbers can be inserted at the start of the string, the rest isn't as important.

View 2 Replies View Related

Convert Multiple Text Files To CSV?

Jul 17, 2014

Below code Works for TAB delimeter but if there is ' ,' in a row its not reading correct data.Basically I am trying to read multiple .txt files to .csv .

Sub txt2csv()
Dim Fname As String, ipath As String, retstring, fs, a, i As Long
With Application.FileDialog(msoFileDialogFolderPicker)

[Code]....

View 2 Replies View Related

Open Multiple Text Files

Mar 9, 2007

the VBA code to allow a user to navigate to any of our network directories and upon selecting (using workbook getopenfilename hopefully) the proper folder on their directory open each txt file (delimited with a pipe) and then save the active file as a xls file and then close it and move on to the next file. I am pretty sure this will take a do while statement but I am not sure how to write it.

View 9 Replies View Related

Importing Multiple Text Files

Apr 16, 2008

This is a great bit of code (I found), to import multiple text files.

I have one small issue -

currently it imports with each file going to a new column, like this: text file1 A1:A4, txt file2 B1:B4, txt file3 C1:C4 etc etc

And eventually i risk running out of columns because I'm working with a lot of text files.

Can someone tell me what to do to modify this code so it imports like this? :
text file1 A1:D1, txt file2 A2:D2, txt file3 A3:D3 ETC ETC

.e.g. first file imports across row1, second file across row2 etc


Sub test2()
Dim myDir As String, fn As String, ff As Integer, txt As String
Dim delim As String, n As Long, b(), flg As Boolean, x, t As Integer
myDir = "\BP1MELIS001SHARED_DATAEVERYONESolutions IntranetPriceMasterlogs" '

View 9 Replies View Related

Extract From Multiple Text Files

Aug 17, 2008

I have about 50 - 60 text files and I need to find certain values, namely Name, Account No, total amount under Portfolio Value in the text file and copy these values to a worksheet under column: Name, Account and Portfolio Value respectively. All new entries are paste one row below the existing data.

Some of the text files may not have any data in it or may not have the Portfolio Value as the monthly transactions may occupied 2 or 3 text files. Some text files may have 2 Name in it and there will be 2 Portfolio Values in it which I will need both to be copy to the worksheet.

I have attached both the Excel file and the dummy txt file.

View 3 Replies View Related

Search Value In Multiple Text Files

Jul 29, 2006

I have patent numbers in column A of an excel sheet and would want to locate or search the specific text files (located in my D:Files folder) containing those values. If the value is found in myfile1.txt then the result should be outputted in column B containing the filename of the text file. For example:

Column A Column B
us20061234556b1 myfile1.txt
us20061434455a2 myfile2.txt
wo200612344556A myfile3.txt

View 5 Replies View Related

Rename Multiple Text Files

Nov 18, 2006

In a folder I have several text files (each text file is a customer statement)
I get the files from the computer dept named randomly, I need to rename each
File to its customer ID number, each ID consists of 15 characters (including the dash characters) and is found on the 3rd row of the file (3rd row , skip one character And count 15 characters ex : 0010-902514-422)

I found a code that renames the text files incrementally (1,2,3..). I need to modify the code so that instead of renaming the files that way I rename them by their ID number (get the ID of each file while looping then rename It by that ID)
One more thing, can I get the ID then skip 44 characters and attach the following 14 characters to the ID (ex : 0010-902514-422- Lebanese Pound). ttached is a folder containing an excel file with the code and 2 statements

Sub RenFile()
Dim arrFiles As Variant
Dim intCounter As Integer
Dim datFile As Date
Dim strFile As String, strPath As String
strPath = ActiveWorkbook.Path
arrFiles = FileArray(strPath, "*.txt")
For intCounter = 1 To UBound(arrFiles)
strFile = arrFiles(intCounter)
Name strPath & strFile As strPath & intCounter & ".txt"
Next intCounter
End Sub

Private Function FileArray(strPath As String, strPattern As String)
Dim arrDatabase()
Dim intCounter As Integer.............................

View 3 Replies View Related

Import Multiple Text Files

Dec 11, 2007

I have about 200 text files each with 2 columns. I want to create a single excel spread sheet where the data comprises of the second column from each text file. I do not know any thing about macros and so need help on writing a macro that will automatically import data from the whole of the second column of each text file into one single spread sheet.

View 7 Replies View Related

Import Multiple Text Files Into Spreadsheet?

Dec 22, 2011

I have about 10k poorly formatted txt files that I need to grab 4 items from each and put in a spreadsheet. How can this be done in Excel or should it be done in Access instead?

Here's a link to what each txt file looks like: MTRP88PF700721.txt

I only need the number next to Posting Journal on line 3 (12686 in this case), the 3 digit number next to Class Total on line 11 (101 in this case), the Extended Cost Final Total and the Extended Retail Final Total (23.77 and 39.30 in this case)

because one of my staff members is currently opening each txt file and typing these figures into a spreadsheet!

View 7 Replies View Related

How To Import Multiple Text Files In One Shot

Feb 26, 2012

Need to import multiple text files in one shot. (Excel only allows 1 at a time)

Most file names are similar just numbered. ex. JoeBlowfile 1.txt, JoeBlowfile 2.txt, JoeBlowfile 3.txt, etc......

All text files have 30 lines of text

For example: JoeBlowfile 1.txt will start at A1 and end at A30, then JoeBlowfile 2.txt starts at A31 and ends at A60 and so on.....

May need to import 1 to 10000 files at a time.

all in 1 row single line starting at A1

once all files are imported need to export to 1 single text file file saved in XXXX folder with XXXX.txt name.

View 6 Replies View Related

Importing Data From Multiple Text Files

Nov 22, 2006

I have about 1200 text files with data regarding different machines.These file contain a line called 'Validation date" and also the programe number on different line.

I need a macro which will extract this date for each program number and write in excel in two columns like program number and validation date.

I have tried with some of the macro help available on this site,but I have to do this one at a time.The time required doing this way is same as going in each text file and copy/pasting in excel.Is it possible to automate this process.

View 9 Replies View Related

Import Multiple 1 Column Text Files

Feb 29, 2008

rearrange this macro for me that I could import multiple txt (200 files) files from selected folder. Could You insert appropriate comments in Your altered macro
- where I should change how many columns I need to import from files,

- which column/columns I want to import from files

- macro should automatically import data from the whole of the selected column or columns of each text file into one single spread sheet and import it to different columns

I have found this:

Sub test()
Dim myDir As String, fn As String, ff As Integer, txt As String
Dim delim As String, n As Long, b(), flg As Boolean, x, t As Integer
myDir = "c: est" '

View 9 Replies View Related

Import Multiple Text Files To One Sheet

Dec 15, 2009

i am looking for a macro that would import chosen multiple text files and append them all into one worksheet into column B (one textfile row into one cell), with column A displaying the imported filename next to every entry.

View 5 Replies View Related

Import Multiple Text Files Into Workbook

Jan 23, 2010

I found the code below on the internet and adjusted it to my needs.It is working perfectly fine except for the fact that it opens a new workbook to import the data. I run this code from a workbook named "InstronImport.xlsm" and would like it to add the data in this workbook instead of a new one. I have been trying for a day now and can't seem to figure out how to do it.

Sub ImportRawFilesInstron()
Dim FilesToOpen
Dim x As Integer
Dim wkbAll As Workbook
Dim wkbTemp As Workbook
Dim sDelimiter As String
On Error Goto ErrHandler
Application. ScreenUpdating = False
sDelimiter = ","
FilesToOpen = Application. GetOpenFilename _
(FileFilter:="Text Files (*.raw), *.raw", _
MultiSelect:=True, Title:="Text Files to Open")...................

View 4 Replies View Related

Importing Multiple Text Files Into One Workbook

Apr 26, 2007

I am using excel 2003. I have more than 500 text file which are result of some numerical analysis. I have another bunches of the same file number. I can record and play around with macro.

What I want to do is
-copy selected cells from imported text file in excel and paste in new or in first opened excel file. I have recorded macro for one file including importing from text to excell, copy and paste the selected file (look the macro below). But I have more than 500 files and I want to do the macro the same thing for each file in one excell file. Do i have to make one macro for each file??, that takes much more time than manual import and copy paste. The cell position and range to copy is the same, but have to be pasted in new row (in one excel summery file). The file name of each text file is different and all are in the same folder.

Sub text_to_excel()

Workbooks.OpenText Filename:= _
"I:ResearchVALERI_germinationvaleri_slopevaleri_slope_COREL_DHPoutputDSCN2589.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _ ..................

View 9 Replies View Related

Export Data Into Multiple Text Files

Aug 28, 2007

Exporting data into multiple text files

My situation is the next:
I have one columm with 70000+ rows (starts from B3 to the final).
I need to copy the data every 10 rows and save it in multiple txt files, example:
B3:B12 ----> 00001-00010.txt
B13:B22 ---> 00011-00020.txt
B23:B32 ---> 00021-00030.txt
B33:B42 ---> 00031-00040.txt

and so on.....

the macro (TextMe.xls) of xlite almost does what I am looking for.
But, how to change it in order the macro does what I need?.

View 9 Replies View Related

Import Multiple Text Files To 1 Worksheet

Oct 25, 2007

I am trying to convert multiple tab-separated text files into one worksheet. All the text files have the same format and file structure. I have been copying and pasting these files into an Excel spreadsheet but this is time consuming. I need to find out if anyone has any ideas on how to accomplish this task using a VBA macro.

View 3 Replies View Related

Import Text Files Into Multiple Sheets

Jan 4, 2008

Trying to import mutliple text files from one folder and save them into multiple tabs in the workbook. Found this piece of code on forums but can't respond to thread since its expired. Whenever i choose a file from the folder, it would say no files exist. Is there something wrong or am i missing libaries to run this?

Sub Test()
'First off, this will prompt where the text files are saved
filepath = Application. GetOpenFilename("Text Files (*.txt), *.txt", , "Where are your text files saved")

'this will strip the filename from your selection, leaving just the folder
Do While Right(filepath, 1) <> ""
filepath = Left(filepath, Len(filepath) - 1)
Loop

'This will search for all of the files within the folder
Set fs = Application.FileSearch
With fs...........................

View 3 Replies View Related

Import Multiple Text Files Without Header

Apr 25, 2008

Import Mulitple Single Column Text Files

The code by Jindon works but only for the text files that do not contain a header. Can someone please telll me what I have to change in the code to make the code skip the header information (1st three line) when importing? Currently, if I use Jindon's code, it fails once it tries to import one of these text files. Here is Jindo's
Sub test()
Dim myDir As String, fn As String, txt As String, x
myDir = "c: est" '<- change to actual folder path
fn = Dir(myDir & "*.txt")
Do While fn <> ""
txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
x = Application.Transpose( Split(txt, vbCrLf))
Sheets(1). Range("a" & Rows.Count).End(xlUp)(2).Resize(UBound(x,1)).Value = x
fn = Dir()
Loop
End Sub

View 9 Replies View Related

Automate Import Of Multiple Text Files

May 29, 2008

I am new to VBA coding. My boss recently handing me a task where I have to take data which is stored in thousands of fwd files and import it into spread sheets. This can be read with notepad as plain text. This data has about 35 lines of heading info i need to skip. The data i need transfered is stored in columns and each data row is tagged at the beginning with the letter D and comment lines begin with the letter C. The heading info has no such tags.The data is space delimited. Further, some of the columns of data need to be omitted in the spreadsheet. Each data.fwd file gets its own spreadsheet meaning each time i import data i start with a fresh template.xls to import into. The format of the spreadsheet is the same as the format the data is presented in the text file with ten columns, except the text has twelve and two of them need to be omitted.

One more thing, I need to be able to push a button and query the file to import.

View 7 Replies View Related

Exporting To Text

Apr 17, 2007

I have multiple rows within a worksheet and need them to automatically save into a separate txt file. Example:

I have a workbook with rows b-z. Instead of taking each of the rows and copying and pasting it into another separate excel file, then saving in a txt format, is there a way to automate this? So that the following will occur:

Column B 950 line is one file
Column C 950 lines is another
column D lines in another txt file.....etc

I have some code listed below, however, it reads the first column cell by cell. It does not group column by column grouping all data within that column as on txt file

Sub notebook_save()
Set wkbk = Workbooks.Add
Sheets("Sheet1").Select
RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 1 To RowCount.......................

View 2 Replies View Related

Importing Multiple Multi-Line Text Files

Apr 30, 2013

I'm trying to create a macro that will import multiple multiline text files.

I have tried another Macro from this site however that imports the each text file into one cell, but i need each line to be in a new cell and each file to be in the same sheet.

View 10 Replies View Related

How To Import Multiple Text Files Based On Date

Feb 14, 2014

I am trying to an excel macro that will automatically import data from specific files. The basic information is this:

1. There is a MySQL script that runs every day and creates tab-delimited text file named as the date.Example:

OutputDIR
02-14-2014.txt
02-15-2014.txt
02-16-2014.txt

2. I need grab data from each of the files for a rolling 30 day period from the date specified in the sheet. The data needs to go onto the same sheet in Excel.Example: B2 on the "Settings" worksheet says 02-14-2014. So take data from 02-14-2014 minus 30 days (01-15-2014.txt) all the way up to today and consolidate it onto an existing worksheet called "Data."

3. If the date in cell B2 is changed, overwrite the data that was already retrieved and replace it with the new import from the new date.Example: B2 is changed to 01-31-2014. Now take data from 01-31-2014 minus 30 days and overwrite what was already imported in worksheet "Data."

View 5 Replies View Related

Import Specific Line From Multiple Text Files

Aug 13, 2008

I have many text files ~5000 and I am searching for a macro that can import multiple files and also search the text file only importing two specific rows (error files may will not have 42 rows) while listing the file name in an adjacent cell.

So in column A I would like the file name, in column B any data in line 42 of the text file and in column C any data in line 43 of the text file.

Here is an example of the data in rows 42 & 43:
11 Waratah Street Mona Vale(2103) - Australie
-33.68 (-3340') | 151.30 (15118')

So far I have found the code below that will import all text files into one sheet but it does not satisfy my requirements.

View 9 Replies View Related

Export Excel Query To Multiple Text Files

Apr 2, 2012

I need to create a function which will take a objectname (a query or table) and a file name format

The objective is to export this query or table into multiple text files each with a maximum of 1000 lines per text file. These files are used as an input for SAP - the interface only takes a maximum of 1000 lines per file.

I am having three issues with the code below.

1. How do I split an excel query based on line numbers? Is there a way to get the equivalent of ROW_NUM in oracle ? Or do I have to loop through it and maintain a counter?
2. What is the best way to split the file ? Loop within loop? I need the files to be tab separated (no header required)
3.The rst.RecordCount is acting strange - when I pass a name of the query - the property returns the right no. of rows, however when I pass a any table name it only returns 1 - is this the expected behavior - or am I missing something

Code:
Function ExportAsText(strObjectName As String, strFileName As String) As Long
' Purpose: Export any given query, table to mutliple files each of certain length
' the no. of lines per text file is defined by the config parameter SAP UPLOAD, LINE LIMIT PER TEXT FILE
' in the LKUP_CONFIG database

Dim db As DAO.Database 'This database

[Code] ..........

View 1 Replies View Related

Importing Selective Lines From Multiple Text Files

Jun 18, 2009

I have many text files basically with the same data from different dates. I am trying to select specific lines from each text, one that includes ".txt" which is the date, ex: "2008_308" and one that includes the word "PIXEL" and the following 5 lines after that.

I found a very similar post to mine and someone provided the script using VB for the question. It works, but it was only for one text file. I would like to use it for multiple text files. The files are all dated, i.e. "2008_308.txt". Although some of the dates are missing.

This is the script, from another posting, for importing selective lines from one text file:

Sub test()
Dim fn As String, txt As String, delim As String, a() As String
Dim i As Long, ii As Long, iii As Long, n As Long, x, y
fn = "c: est.txt" ' Change here (File Path)
delim = vbTab ' Change here (delimiter)
temp = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
x = Split(temp, vbCrLf)
ReDim a(1 To UBound(x) + 1, 1 To 100)
For i = 0 To UBound(x)
If InStr(1, x(i), "txt", 1) > 0 Then
n = n + 1 : y = Split(x(i), delim)
For ii = 0 To UBound(y)
a(n, ii + 1) = y(ii)..........................

View 9 Replies View Related

Import Multiple Text Files & List Names

Sep 19, 2007

I am a complete novice with VBA and would like to write a macro that will allow me to import multiple text files stored in a folder on my directory into a single excel worksheet. I would also like the name of each text file to be output in a separate column for each row of data in the worksheet i.e. each row is 'named' with the title of the file it comes from.

The text files are comma delimited and have 5 fields e.g.

.000071 ,93018.3,53.3583924, -6.3578328,Differential

View 9 Replies View Related

Pick Folder & Import Multiple Text Files

Oct 17, 2007

Import Multiple Text Files & List Names

I would like to use FileDailogFolderPicker object to prompt the Excel User (me!) to browse to the location of the folder which is required to execute the code below; at the moment I have to change the file path in the VBA code each time I run the macro. The code is run on a Click Event button at present.

Private Sub GetGPCFiles_Click()
test
End Sub

Sub test()
Dim myDir As String, fn As String, ff As Integer, txt As String, a()
Dim x, i As Long, n As Long, b(), t As Long
myDir = "Y:DCCRSP07RSPWE191007131007GPC" 'Have to input this path manually
fn = Dir(myDir & "*.gpc")
Do While fn <> ""
ff = FreeFile
Open myDir & "" & fn For Input As #ff
Do While Not EOF(ff)
Line Input #ff, txt
x = Split(txt, ",")
n = n + 1
Redim Preserve a(1 To n)
a(n) = x
Loop

View 6 Replies View Related

Import Multiple Text Files Based On Parameters

Mar 11, 2008

I get about 10 text files at the beginning of each month that I need to import into Excel. The file layout does change slightly from month to month so I have an Excel spreadsheet with the layout as the first worksheet. Each text file is in fixed layout form rather than delimited. The structure of that page is that the name of the first text file is in cell A1. The cumulative field widths are below that and the data formats are next to the field widths (in the adjacent column B). T=Text, G=General, D= Date with 3 flavors of Date: YMD, DMY and MDY. For the second text file, it repeats the structure in columns C and D, the third text file in columns E and F etc. What I would like is for the macro to open the first text file (based on the name in cell A1) and import it into a new worksheet (same file) using the cumulative field widths in A2 through A8 and the formats from B2 through B8, then import the next text file to a new worksheet (same file) using the cumulative field widths in C2 through C8 and the formats from D2 through D8 and keep going until all the files have been imported. The sheet names should be the same as the file that is imported (the .txt part of the file name isnt important). Ive attached a copy of the Excel spreadsheet that has the file names, field widths (cumulative) and field formats and a 2 row sample of the text file for the first import.

View 6 Replies View Related

Save Multiple Files In Folder As Text Format

Mar 27, 2008

I have 100 excel files in a folder need all these files to be saved in txt format in another folder need vba code to do this

View 2 Replies View Related

Exporting With Text Identifiers

Mar 5, 2008

Is there a way to export Excel (Excel 2003) into a flat file that is comma separated and also includes text identifiers, specifically double quotes (" ") around each field in a row?

The Export Wizard in Access makes that a snap but we (more than just me) haven't been able to make it work out of Excel.

View 2 Replies View Related

Convert Multiple Text Files Into Excel Worksheets Macro

Apr 1, 2009

i have many file text which i want to open in an excel workbook in a way that each text file will be displayed in an excel sheet.

View 3 Replies View Related

Count Number Of Occurrences Of Multiple Strings In Two Text Files

Jun 11, 2014

In Column A I have the list of strings that I need to search. I want to count the number of occurrences of these strings inside these two text files: Sample1.txt and Sample2.txt. For example I have the string "DOG". I want to search and count the number of times this string appeared in Sample1.txt, and Sample2.txt

See below:

View 5 Replies View Related

Extract AndParse Out Specific Data From Multiple Text Files

Oct 3, 2008

I have a few hundred data/text files to analyze, some a few thousand lines deep. I would like to grab 5, just 5 numbers describing voltage levels. I know the preceding text for each of these in the cell and the following text as well. I just need to delete everything else and keep these 5 values in a column using a script or a macro, and do so for all these files in a specified folder.

This would be 3 weeks of work and the analysis needs to be done ASAP for my research.

Thousands of lines of ancillary data
Thousands of lines of ancillary data

Thousands of lines of ancillary data

Thousands of lines of ancillary data

"11/09/07 14:42:20 J13-50 and J6-9, PCU Resistance (XXXXXXX. Ohms) is within 1.000 to 3741."
Thousands of lines of ancillary data...........................

View 9 Replies View Related

VBA Macro To Multiple Text Files Based On Headings On Worksheet

Apr 2, 2009

I have created an Profit&Loss excel sheet with all the accounts in column A and then the values for each month, January to December in column B to column K like this:

Column A...............Col B............Col C........Col D........Col E.....and so on
Account 1..............2222............58452........5255.........5844....
Account2................5.................45...............25...........458 ....

I've made a macro that creates a textfile and saves it on my desktop, but I get a text file with all the info in the same file, what I want is to get one text file for every month, that is text file number one(january) is: The heading info+column A+columnB

text file number two(February) is: The heading info+column A+columnC
text file number three(March) is: The heading info+column A+columnD and so on

In the heading info I have to state the period and then I need the macro to change this for every text file, that is for the january file it has to be "1 to 1", for february "2 to 2" and so on. As it is now it will always say "1 to 1" because that is the values I have entered.

Sub btnSkapaFil_Klicka()
Dim strAnv As String
Dim strBeloppJan As String
Dim strBeloppFeb As String
Dim strBeloppMars As String
Dim strBeloppApr As String
Dim strBeloppMaj As String
Dim strBeloppJun As String
Dim strBeloppJul As String
Dim strBeloppAug As String
Dim strBeloppSept As String
Dim strBeloppOkt As String
Dim strBeloppNov As String
Dim strBeloppDec As String
Dim strSavepath As String
Dim intRad As Integer
Dim intStartrad As Integer
Dim intSlutrad As Integer
Dim fs, a
strOrder = Range("I2")...............

View 2 Replies View Related

ADVERTISEMENT