Solved

Error 438 on SetFocus

Posted on 2016-08-28

Microsoft Excel

2 solutions

Medium Priority

63 Views

Last Modified: 2016-10-03

I am getting error code 438 with below code.

Private Sub Workbook_Open()

'On Error Resume Next
'Clipboard
a = Application.ThisWorkbook.Path & "\" & "CIMSR339A.DBF"
If Dir(a) <> "" Then
Sheets(1).TPath.Text = a
ActiveSheet.TName.SetFocus
Else
Sheets(1).TPath.Text = "Please browse the file."
ActiveSheet.BRun.SetFocus
End If

Dim DataObj As DataObject
Set DataObj = New DataObject

DataObj.GetFromClipboard

If Application.ClipboardFormats(1) = xlClipboardFormatText Then
Sheets(1).TName.Text = DataObj.GetText(1)
ActiveSheet.BRun.SetFocus
Else
ActiveSheet.TName.SetFocus
End If

End Sub

Comment

Question by:Mukund Patel

3 Comments

LVL 24

Accepted Solution

by:crystal (strive4peace) - Microsoft MVP, Access

crystal (strive4peace) - Microsoft MVP, Access earned 1000 total points (awarded by participants)

ID: 417737122016-08-28

what about using Select instead of SetFocus?

LVL 53

Assisted Solution

by:Martin Liss

Martin Liss earned 1000 total points (awarded by participants)

ID: 417737602016-08-28

Activate would be better than Select. Also your use of of TPath and TName are invalid.

LVL 24

Expert Comment

by:crystal (strive4peace) - Microsoft MVP, Access

ID: 417737632016-08-28

if these are range names:

Application.Goto Reference:="rangename"

Open in new window

Featured Post

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment Already a member? Login.

Automating Microsoft Excel from Access (Part I)

Article by: Dale Fye

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications. You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…

Round elements of a sum to match a total

Article by: Gustav

What to do if a split doesn't fit? Or a bunch of invoice lines must be rounded while the sum must match a total? It takes a little, but - when done - it is extremely easy to implement.