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

• #52682 karlkani aktív tag

  Új Válasz 2024-05-23 10:23:17 #52682

  Ú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

  Privát üzenet küldése

  

  karlkani

  aktív tag

  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!

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