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 |
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 |
All times are GMT +1. The time now is 06:37 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com