Telefonszámunk: 1-472-0679

[Resolved] Központi mappából PDF beillesztése fájlnév alapján – VBA segítségével

Kezdőlap › Fórumok › Excel programozás › [Resolved] Központi mappából PDF beillesztése fájlnév alapján – VBA segítségével

Topic Resolution: Resolved
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • 2023-10-14-07:02 #10188
    NIN
    Felhasználó

      Sziasztok!

      Segítséget szeretnék kérni.

      Adott egy „gyűjtő mappa” ide rakok minden pdf-et. Mindegyiknek azonos felépítésű a fájlneve.

      000-000-001
      000-000-002
      000-000-002
      stb

      Azt szeretném, hogy egy sablonként elkészített munkafüzet egyik lapjára a cellába beírt , fent részletezett fájlnév alapján megkeresse a „gyűjtő mappában” a PDF et és belinkelje a cellába.

      Azért sablon munkafüzet, mert sok munkafüzetet készítek majd, melyek ugyan úgy a „gyűjtő mappából kell beolvasni a PDF eket.

      Legyen mondjuk „A4” cellától lefele aktív a VBA. Tehát, „A4” től lefele, bármelyik cellába írok fájlnevez, oda linkelje rá a megfelelő PDF et.

      Előre is köszönöm a segítséget

      Üdvözlettel Norbi

      2023-10-14-13:38 #10189
      delila
      Felhasználó

        Szia!

        Itt a makró:

        Private Sub Worksheet_Change(ByVal Target As Range)
    Dim utvonal As String, FN As String

    If Target.Column = 1 And Target.Row > 3 Then
        Application.EnableEvents = False
        utvonal = "D:\Gyűjtő mappa útvonala\"  '***************************
        FN = Target.Value & ".pdf"
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, 1), Address:= _
            utvonal & FN, _
            TextToDisplay:=FN
        Application.EnableEvents = True
    End If
End Sub

        A csillagokkal jelzett sor végén ne hagyd ki a \ jelet!

        Üdv,
        Delila

        2023-10-14-14:57 #10190
        NIN
        Felhasználó

          Szia, delila!

          Köszönöm a segítséget!

          Szerintem mindet úgy csináltam, ahogy írtad, de nem működik.

          HA manuálisan akarom elindítani amakrót, akkor nem hozza fel a makró nevét az indításhoz.

          Csatolom a mintát amivel próbálkoztam.

          Még egy kérdés ehhez, ha lehetne?

          Megoldható, hogy az A4 cellában talált PDF fájlnév alapján a B4 es cellába beírt PDF szövegre vigye a hivatkozást?
          Sajnos A4 cellába képlet alapján kerül be a szám, lehet ez nem baj, ezt te jobban tudod!

          Köszönöm előre is a további segítséget.

          Norbi

          Attachments:
          You must be logged in to view attached files.
          2023-10-15-05:28 #10192
          delila
          Felhasználó

            Bocsáss meg, „csak” a lényeget nem írtam meg. A makrót ahhoz a laphoz kell rendelned, ahol működtetni akarod.
            Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutsz a VB szerkesztőbe, ott is a lapod lesz kiválasztva. Jobb oldalon a nagy üres felületre másold a makrót.
            A Module1-et törölheted.

            Biztosan jó a „D:\D:\NIN\Excel_tippek\PDF_gyujto\” útvonal? Kétszer szerepel a meghajtó neve.

            2023-10-17-16:49 #10193
            NIN
            Felhasználó

              Köszönöm szépen a segítséget!

              Norbi

              2023-10-18-06:37 #10194
              delila
              Felhasználó

                🙂

              • Szerző
                Bejegyzés
              6 bejegyzés megtekintése - 1-6 / 6
              • Be kell jelentkezni a hozzászóláshoz.