With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Error 438 on SetFocus
Posted on 2016-08-28
I am getting error code 438 with below code.
Private Sub Workbook_Open()
'On Error Resume Next
'Clipboard
a = Application.ThisWorkbook.P
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.ClipboardForma
Sheets(1).TName.Text = DataObj.GetText(1)
ActiveSheet.BRun.SetFocus
Else
ActiveSheet.TName.SetFocus
End If
End Sub
Private Sub Workbook_Open()
'On Error Resume Next
'Clipboard
a = Application.ThisWorkbook.P
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.ClipboardForma
Sheets(1).TName.Text = DataObj.GetText(1)
ActiveSheet.BRun.SetFocus
Else
ActiveSheet.TName.SetFocus
End If
End Sub
[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
2
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data.
Rather than update each graph to point to a different set within a static set of data, t…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month5 days, 6 hours left to enroll
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.