Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open CSV file
I need to open a CSV file in Excel 2000, find the end of the file and select that range and copy it to spreadsheet "B" starting at A2. I am using the following to open the file. How can I find the end of the range of a CSV file, then copy that range to an excel sheet. Thanks sfile1 = Application.GetOpenFilename("Text Files (*.csv), *.txt") If sfile1 < "" Then Open sfile1 For Input As 1 End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open CSV file
I would just open it as a workbook and then copy the used range
dim sFile1 as variant dim destCell as range dim wkbkCSV as workbook sfile1 = Application.GetOpenFilename("CSV Files, *.csv") if sfile1 = false then exit sub end if set destcell = workbooks("b.xls").worksheets("somenameHere").rang e("A2") set wkbkcsv = Workbooks.Open(Filename:=sfile1) wkbkcsv.worksheets(1).usedrange.copy _ destination:=destcell wkbkcsv.close savechanges:=false ====== Uncompiled, untested--watch for typos! Striker wrote: I need to open a CSV file in Excel 2000, find the end of the file and select that range and copy it to spreadsheet "B" starting at A2. I am using the following to open the file. How can I find the end of the range of a CSV file, then copy that range to an excel sheet. Thanks sfile1 = Application.GetOpenFilename("Text Files (*.csv), *.txt") If sfile1 < "" Then Open sfile1 For Input As 1 End If -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Excel Discussion (Misc queries) | |||
In Excel - Use Windows Explorer instead of File Open to open file | Excel Discussion (Misc queries) | |||
Open a file do a macro ( made) and open next succesive file | Excel Programming | |||
Open File or Switch Between Windows if File is Open | Excel Programming | |||
Open File or Switch Between Windows if File is Open | Excel Programming |