Reading fields from multiple new files
Hi
We create a number of new files from a template a day, and collect some data
from these new files for statistical purposes. What name / handle can I use
to have a
dynamic name for the workbook that is open in addistion to the stats workbook.
Heres what I got so far:
Sub openFile()
' OPEN FILE
openThisFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls,
*xlsx), *.xls, *xlsx", Title:="Please select a file")
If openThisFile = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.Open filename:=openThisFile
End If
' END OPEN FILE
Call selectNextRow
Call doRead
End Sub
**********
Sub selectNextRow()
'Activate the STATS sheet
Windows("Statistics.xls").Activate
Worksheets(4).Select
'Select the next available row
Application.ScreenUpdating = False
NextRow = Range("C65536").End(xlUp).Row + 1
Cells(NextRow, 1).Select
Application.ScreenUpdating = True
End Sub
************
Sub doRead()
ActiveCell.FormulaR1C1 = "='somethinghere'!R5C4"
Cells(Selection.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select
End Sub
************
so i need a litlle something weher it says 'somethinghere' in doRead().
Can i get it from filename or openThisFile?
probably a newby question, but i am one so that's alright, right?
/marko
|