Open text file and copy specific rows into spreadsheet column

[larsahl]

Hello,

I'm looking for a macro that can copy specific rows from an text file into a spreadsheet.
My text file is looking like this:
INPUT: f[MHz] input[dBm]
80.000000 52.217000
80.800000 52.004992
81.608000 51.601915
...

Where I want to copy the "52.217000", "52.004992", "51.601915" and followed by 254 rows of different numbers "51....".

How do I do that?

[larsahl]

I've started with the following code that inputs the whole file into the excel spreadsheet:
Sub Button1_Click()
Dim strLine As String
Dim i As Integer
Dim intResult As Integer
Dim strPath As String

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intResult = Application.FileDialog(msoFileDialogOpen).Show
If intResult <> 0 Then
strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Open strPath For Input As #1
i = 1
While EOF(1) = False
'read the next line of data in the text file
Line Input #1, strLine
'print the data in the current row
Cells(i, 1) = strLine
'increment the row counter
i = i + 1
Wend
End If
Close #1
End Sub

[HaHoBe]

Hi, larsahl,

please add code-tags to your procedure as requested by Forum Rule #3. Thanks in advance.

Ciao,
Holger

[larsahl]

ok.

now it's solved

[6StringJazzer]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)