• Skip to main content
  • Skip to header right navigation
  • Skip to site footer

My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

  • Courses
  • Pricing
    • Free Courses
    • Power BI Course
    • Excel Power Query Course
    • Power Pivot and DAX Course
    • Excel Dashboard Course
    • Excel PivotTable Course – Quick Start
    • Advanced Excel Formulas Course
    • Excel Expert Advanced Excel Training
    • Excel Tables Course
    • Excel, Word, Outlook
    • Financial Modelling Course
    • Excel PivotTable Course
    • Excel for Customer Service Professionals
    • Excel for Operations Management Course
    • Excel for Decision Making Under Uncertainty Course
    • Excel for Finance Course
    • Excel Analysis ToolPak Course
    • Multi-User Pricing
  • Resources
    • Free Downloads
    • Excel Functions Explained
    • Excel Formulas
    • Excel Add-ins
    • IF Function
      • Excel IF Statement Explained
      • Excel IF AND OR Functions
      • IF Formula Builder
    • Time & Dates in Excel
      • Excel Date & Time
      • Calculating Time in Excel
      • Excel Time Calculation Tricks
      • Excel Date and Time Formatting
    • Excel Keyboard Shortcuts
    • Excel Custom Number Format Guide
    • Pivot Tables Guide
    • VLOOKUP Guide
    • ALT Codes
    • Excel VBA & Macros
    • Excel User Forms
    • VBA String Functions
  • Members
    • Login
  • Blog
  • Excel Webinars
  • Excel Forum
    • Register as Forum Member

VBA to match PDF file in folder and hyperlink to spreadsheet|VBA & Macros|Excel Forum|My Online Training Hub

You are here: Home / VBA to match PDF file in folder and hyperlink to spreadsheet|VBA & Macros|Excel Forum|My Online Training Hub

vba course banner

Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search|Last Search Results
Search
Forum Scope




Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_CrumbsHome HomeExcel ForumVBA & MacrosVBA to match PDF file in folder and…
sp_PrintTopic sp_TopicIcon
VBA to match PDF file in folder and hyperlink to spreadsheet
Avatar
Wonder Woman
Member
Members
Level 0
Forum Posts: 30
Member Since:
December 7, 2020
sp_UserOfflineSmall Offline
1
January 24, 2023 - 2:16 pm
sp_Permalink sp_Print

I currently have this code below and it does nothing.

I have concated file names in column A.
example "OPS-GRO15-PR-HAC-001"

In my folder as per below, I have all the PDF file for each document number in column "A", but they may have a revision number on the end of the doc number
example OPS-GRO15-PR-HAC-001_r1

I need the code to look for the matching file name without the revision number on the end as this changes all the time and to link the PDF file to correct corresponding document number in column "A". hope this makes sense.

I don't know much about VBA, so I don't know what I need to do to fix the below code.

Sub AddHypaerlinks()

Dim lastRow As Long
Dim myPath As String, fileName As String

myPath = "\\fs01\Data$\Engineering\Document Control\SA - Eromanga Basin\Growler\PDF" 'SET TO WHERE THE FILES ARE LOCATED
lastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow

fileName = myPath & Range("A" & i).Value & "*.pdf"

If Len(Dir(fileName)) 0 Then 'IF THE FILE EXISTS THEN

ActiveSheet.Hyperlinks.Add Range("I" & i), myPath & Dir(fileName)

End If

Next

End Sub

Avatar
James1989

Active Member
Members
Level 0
Forum Posts: 5
Member Since:
January 27, 2023
sp_UserOfflineSmall Offline
2
January 27, 2023 - 7:36 pm
sp_Permalink sp_Print

Hi,

Before getting into the macro ... it would seem to me you need to handle the revision string ...

=SUBSTITUTE(yourText,RIGHT(yourText,3),"")

Hope this will help

Avatar
Wonder Woman
Member
Members
Level 0
Forum Posts: 30
Member Since:
December 7, 2020
sp_UserOfflineSmall Offline
3
February 3, 2023 - 11:28 am
sp_Permalink sp_Print

sorry, where do I put this?

Avatar
James1989

Active Member
Members
Level 0
Forum Posts: 5
Member Since:
January 27, 2023
sp_UserOfflineSmall Offline
4
February 5, 2023 - 8:28 pm
sp_Permalink sp_Print

Sorry ... my answer should have been clearer ...

Sub AddHyperlinks()
Dim lastRow As Long
Dim myPath As String, fileName As String
' example "OPS-GRO15-PR-HAC-001" in Column A

myPath = "\\fs01\Data$\Engineering\Document Control\SA - Eromanga Basin\Growler\PDF" 'SET TO WHERE THE FILES ARE LOCATED
lastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow
fileName = myPath & Replace(Range("A" & i).Value, Right(Range("A" & i).Value, 3), "") & "*.pdf"
If Len(Dir(fileName)) > 0 Then ' IF THE FILE EXISTS THEN
ActiveSheet.Hyperlinks.Add Range("I" & i), myPath & Dir(fileName)
End If
Next i
End Sub

Avatar
Wonder Woman
Member
Members
Level 0
Forum Posts: 30
Member Since:
December 7, 2020
sp_UserOfflineSmall Offline
5
February 15, 2023 - 9:30 am
sp_Permalink sp_Print

Hi Sorry for the late reply, I added the code above and it appears not to do anything.

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: David Jernigan, Louis Muti, Hitesh Asrani
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 873
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 222
Jessica Stewart: 218
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Charles DeGraffenreaid
Cathi Giard
Sarah Young
Henry Delgado
Alita Nieuwoudt
KL KOH
Joao Marques
Regi Hampton
Taffie Elliott
Paramita Chakraborty
Forum Stats:
Groups: 3
Forums: 24
Topics: 6359
Posts: 27806

 

Member Stats:
Guest Posters: 49
Members: 32336
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —sp_Information

Sidebar

Blog Categories

  • Excel
  • Excel Charts
  • Excel Dashboard
  • Excel Formulas
  • Excel PivotTables
  • Excel Shortcuts
  • Excel VBA
  • General Tips
  • Online Training
  • Outlook
  • Power Apps
  • Power Automate
  • Power BI
  • Power Pivot
  • Power Query
microsoft mvp logo
trustpilot excellent rating
Secured by Sucuri Badge
MyOnlineTrainingHub on YouTube Mynda Treacy on Linked In Mynda Treacy on Instagram Mynda Treacy on Twitter Mynda Treacy on Pinterest MyOnlineTrainingHub on Facebook
 

Company

  • About My Online Training Hub
  • Disclosure Statement
  • Frequently Asked Questions
  • Guarantee
  • Privacy Policy
  • Terms & Conditions
  • Testimonials
  • Become an Affiliate

Support

  • Contact
  • Forum
  • Helpdesk - For Technical Issues

Copyright © 2023 · My Online Training Hub · All Rights Reserved. Microsoft and the Microsoft Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries. Product names, logos, brands, and other trademarks featured or referred to within this website are the property of their respective trademark holders.