Copy specific text from notepad into Excel

[Riggi]

Hello all,

Can we copy a number/text from a text file which is in a specific
colomn and row in a text file( 10 spaces long)
and then paste it in the excel sheet. I don't want to use the import
command cuz my text file is not delimited.
There are number randomly placed in the text file which I need to copy
and paste it in the excel cells.

I want to place a button on my spreadsheet which would help the user to

locate the data file and then excel would extract data from that sheet
and paste it in the black spaces on the sheet.

Please Help !!!

Thanks,

Riggi

 

[Guest]

It is easier to open the text file as a vba internal processing file and read
the data rather than using the standard open method.

You can still use the standard dialog to get the file name but then open and
process the file.

The code would be

Sub doit()
Dim fileToOpen As Variant
Dim s As String
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen = False Then
Exit Sub
End If
Open fileToOpen For Input As #1
Line Input #1, s
Close #1
ans = Mid(s, 20, 10)
End Sub

Modify it to meet your requirments.

 

[Riggi]

Thanks, it work!!

It is easier to open the text file as a vba internal processing file and read
the data rather than using the standard open method.

You can still use the standard dialog to get the file name but then open and
process the file.

The code would be

Sub doit()
Dim fileToOpen As Variant
Dim s As String
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen = False Then
Exit Sub
End If
Open fileToOpen For Input As #1
Line Input #1, s
Close #1
ans = Mid(s, 20, 10)
End Sub

Modify it to meet your requirments.

 

[Riggi]

Thanks, it worked!

It is easier to open the text file as a vba internal processing file and read
the data rather than using the standard open method.

You can still use the standard dialog to get the file name but then open and
process the file.

The code would be

Sub doit()
Dim fileToOpen As Variant
Dim s As String
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen = False Then
Exit Sub
End If
Open fileToOpen For Input As #1
Line Input #1, s
Close #1
ans = Mid(s, 20, 10)
End Sub

Modify it to meet your requirments.