Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read in Data
He All, im looking to read in data from csv files contained in approx 110
files. the files are all set up the same way and i want to calculate a summary of each file and then "upload" this summary into a single excel file. I presume the only way of doing this is through VBA. I can use VBA but am not competent so the easiest way is the best. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read in Data
Try this. It iwll open a dialog box to let you select a folder
Sub MakeSummary() Dim lngCount As Long ' Open the file dialog Set folderPicker = Application.FileDialog(msoFileDialogFolderPicker) With folderPicker .InitialFileName = "c:\temp\" .Show If .SelectedItems.Count = 0 Then MsgBox ("Cannot Get foler - Exiting Macro") Exit Sub End If Folder = .SelectedItems.Item(1) Folder = Folder & "\" End With FName = Dir(Folder & "*.csv") Do While FName < "" Set NewSht = ThisWorkbook.Sheets.Add() NewSht.Name = FName LastRow = NewSht.Range("A" & Rows.Count).End(xlUp).Row If LastRow = 1 And NewSht.Range("A1") = "" Then NewRow = 1 Else NewRow = LastRow + 1 End If With ActiveSheet.QueryTables.Add( _ Connection:="TEXT;" & Folder & FName, _ Destination:=NewSht.Range("A" & NewRow)) .Name = FName .SaveData = True .AdjustColumnWidth = True .TextFileParseType = xlDelimited .TextFileCommaDelimiter = True .Refresh BackgroundQuery:=False End With FName = Dir() Loop End Sub "Ronan" wrote: He All, im looking to read in data from csv files contained in approx 110 files. the files are all set up the same way and i want to calculate a summary of each file and then "upload" this summary into a single excel file. I presume the only way of doing this is through VBA. I can use VBA but am not competent so the easiest way is the best. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Read data | Excel Programming | |||
read odbc data | Excel Programming | |||
read serial data | Excel Programming | |||
Read data into Excel from COM!? | Excel Discussion (Misc queries) |