Hirdetés

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

  • 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