Új hozzászólás Aktív témák

• Fferi50 Topikgazda

  #52684

  #52682 karlkani

  2024-05-23 13:22:16

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  #52682 karlkani

  #52682 karlkani

  Sziasztok!

  Ezzel a makróval olvasom be egy lejátszási lista tartalmát, azonban van egy kis probléma.

  Sub Lejatszasi_lista_frissitese()
Dim fileToOpen As Variant
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook

Application.ScreenUpdating = False

fileToOpen = "C:\Users\en\AppData\Roaming\PotPlayerMini64\Playlist\F.dpl"

Workbooks.OpenText fileToOpen

Set wbTextImport = ActiveWorkbook

Set wsMaster = ThisWorkbook.Worksheets("F")

wbTextImport.Worksheets(1).Range("A1").CurrentRegion.Copy wsMaster.Range("I1")

wbTextImport.Close False

Application.ScreenUpdating = True
End Sub

  A beillesztett tartalom ANSI kódolású, nekem viszont UTF-8 kellene (speciális karakter miatt). Ebben kérnék segítséget, gondolom megoldható.

  Másik kérdés. Megjegyzésben szeretnék egy cellára (ledolgozott munkaidő) hivatkozni (x% * ledolgozott munkaidő * y Ft/óra). Jól gondolom, hogy ezt makró nélkül nem lehet megoldani?

  Előre is köszönöm!

  Szia!
  1. Az OpenText sort egészítsd ki így:
  Workbooks.OpenText fileToOpen, origin:=65001
  2. Jól gondolod, makróval lehet a megjegyzés szöveget elérni.
  Range("A1").Comment.Text adja vissza.
  Üdv.

Új hozzászólás Aktív témák