Macro command to import 2 different data sets from the same file

[Hondahawkrider]

Im using excel to parse some data sets from a file... The code i am using below has me select the same file two different times .. Trying to find a way to select the file just once....
Thanks


Sub ACV_ImportRawACV10File()
'needs to be on ACV10 tab
Sheets("ACV10").Select
Dim fn As String, x, e, n As Long
fn = Application.GetOpenFilename("LogFiles,*.log")
If fn = "False" Then Exit Sub
x = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll, vbLf)
For Each e In x
'items need to be in quotes followed by stars
If e Like "* start time: *" Then
n = n + 1: Cells(n, 1) = e
ElseIf e Like "* COMPLETED end time: *" Then
Cells(n, 2) = e
End If
Next
End Sub

Sub ACV_ImportRawACV10_2File()
'needs to be on ACV10_2 tab
Sheets("ACV10_2").Select
Dim fn As String, x, e, n As Long
fn = Application.GetOpenFilename("LogFiles,*.log")
If fn = "False" Then Exit Sub
x = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll, vbLf)
For Each e In x
'items need to be in quotes followed by stars
If e Like "*Total time (milliseconds) taken by job*" Then
n = n + 1: Cells(n, 1) = e
ElseIf e Like "*Total records processed:*" Then
Cells(n, 2) = e
End If
Next
End Sub

[Artik]

Excel will not guess that the file has already been used. He needs help somehow.
For example, in a hidden sheet (Sheet100 in the example) you will keep the paths of the files used. At the beginning of the procedure you will check if the file specified by the user is on the black list.

Please Login or Register  to view this content.

The second procedure probably needs to be improved in a similar way.

Artik

[jindon]

https://www.excelforum.com/excel-pro...ml#post5423230

Please Login or Register  to view this content.