Macro to inport WK4 file extension into excel

[Isabella]

Hi, i need help in creating a macro that will inport file exention which has WK4 , i have lotus notes at work i have exported email file to drive U:\ , i require a macro to pick this file up and export to Sheet Group_Mailbox. The range is A9

 

[Isabella]

Have you tried searching? I found http://support.microsoft.com/kb/61941 and you might need http://support.microsoft.com/kb/938810/en-us

I am after a macro, so when i press command button, i should get a dialogue box which then opens WK4 files and imports the data into excel.

 

[Isabella]

*bump*

 

[John_w]

Hi, see if the code here is any help. http://www.experts-exchange.com/Sof...Office_Suites/MS_Office/Excel/Q_23121017.html. There is even a download to a working example.

 

[Isabella]

Hi, see if the code here is any help. http://www.experts-exchange.com/Sof...Office_Suites/MS_Office/Excel/Q_23121017.html. There is even a download to a working example.

where did you view the solution?, as far as i can see its asking for a payment to view solution

 

[Isabella]

*bump*

 

[John_w]

The full solution viewed okay on my computer, but here is the cached version.

http://209.85.229.132/search?q=cach...xcel/Q_23121017.html+LOTUS+123+WK4&cd=3&hl=en

If that doesn't work, search Google for LOTUS 123 WK4 and the first 3 results are all the URLs I have posted.

 

[Isabella]

The full solution viewed okay on my computer, but here is the cached version.

http://209.85.229.132/search?q=cach...xcel/Q_23121017.html+LOTUS+123+WK4&cd=3&hl=en

If that doesn't work, search Google for LOTUS 123 WK4 and the first 3 results are all the URLs I have posted.

Ok this is a start, but i need the code to read only one selected file rather than multiple, and also we need to add delimited to the code.

Sub ConvWk4ToXls()
 
Dim EachFile As String
Dim FileLocation
Dim MyFile As Object
Dim FileCount As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
 
    FileLocation = Application.GetOpenFilename( _
                fileFilter:="Pick any wk4 file (*.wk4, *.wk4")
    
    If FileLocation = False Then Exit Sub
    FileLocation = Left(FileLocation, InStrRev(FileLocation, "\") - 1)
    
    EachFile = Dir(FileLocation & "\*.wk4")
    
    Do While EachFile <> ""   ' Start the loop.
    FileCount = FileCount + 1
            EachFile = FileLocation & "\" & EachFile
            Set MyFile = Workbooks.Open(EachFile, False)
        MyFile.SaveAs ThisWorkbook.Path & "\" & Left(MyFile.Name, Len(MyFile.Name) - 4) & ".xls", xlExcel7
nxt:
       MyFile.Close False
       EachFile = Dir    ' Get next xls file
    Loop
Application.ScreenUpdating = True
Application.EnableEvents = True
MsgBox FileCount & " wk4 file(s) have been converted to Excel format and saved in: " & ThisWorkbook.Path
Exit Sub
 
End Sub

 

[Isabella]

*bump*

 

[Isabella]

*bump*

 

[Isabella]

*bump*