Const FILE_PATH As String = "C:\Users\Rolf Jaeger\Documents\Visual Studio 2008\Projects\CSharp\Proteus2000Editor\Proteus2000Editor\bin\Debug\ArpMode.txt"
Const TARGET_SHEET = "ImportedData"
Sub TextImport()
Dim currentWb As Workbook
Set currentWb = ActiveWorkbook
Dim currentSheet As Worksheet
Set currentSheet = currentWb.Worksheets(TARGET_SHEET)
Dim wbImportedData As Workbook
Set wbImportedData = Application.Workbooks.Open(FILE_PATH)
Dim db As Range
Set db = ActiveSheet.UsedRange
db.Copy currentSheet.Range("A1")
wbImportedData.Close (False)
End Sub
The code needs to be place in a standard VBA module of the workbook you want to import your data into. It assumes that you have a worksheet named "ImportedData" to import the data into. You would then have to write code to deal with the imported data in the context of your solution.