Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

Solved

Error 438 on SetFocus

Posted on 2016-08-28

Microsoft Excel

2 solutions

Medium Priority

48 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

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

5 Comments

LVL 22

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 49

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 22

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.

If you are experiencing a similar issue, please ask a related question

Convert a grid inside a picture into Microsoft Excel

Article by: Wilder1626

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.

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…