Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Keresés

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

  • #2186 kanyolajos csendes tag martonx #2185
    Új Válasz #2186
    Ú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

    kanyolajos

    csendes tag

    válasz martonx #2185 üzenetére

    thx

  • #2184 kanyolajos csendes tag
    Új Válasz #2184
    Ú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

    kanyolajos

    csendes tag

    Sziasztok

    Egy excelben írt maro-hoz kérnék némi segítséget.
    Egy másik excel file-ból olvasok ki egy sheetet.
    Két problémám lenne:
    A kiolvasás működik,de csak az értékeket szeretném átmásolni, a fügvényeket nem,
    valamint két jelszóval védett az excel: első az Encrypt a második a normál olvasás írás védelem.
    Ugye hivatkozáskor megnyitás előtt be kell írni a két jelszót manuálisan.
    Milyen utasítással lehetne ezt megoldani , hogy a futó macro maga nyissa meg ?
    Segítséget előre is köszönöm

    Ime a kiolvasó macro:

    ' .......................................................................................................................................
    'Hivatkozás az adat sheetre
    Sheets("Datum").Visible = True
    'Hivatkozás hova történjen a beírás
    Sheets("01").Visible = True
    'Hivatkozás aktuális idő lehívása
    Sheets("Datum").Select
    'Hivatkozás aaktuális idő lehívása
    Range("H3").Select
    sajatnev = ActiveCell
    'Hivatkozás aaktuális idő lehívása
    Range("D6").Select
    fajlnev = ActiveCell

    'Hivatkozás honnan olvassa be a stop adatokat
    fajlnevY0 = "C:\teszt\" + fajlnev
    ChDir "C:\teszt"
    'Hivatkozás melyik sheetből olvasson
    Workbooks.Open Filename:=fajlnevY0
    Sheets("1 data").Select
    Columns("A:AZ").Select
    Selection.Copy
    Windows(sajatnev).Activate
    'Hivatkozás melyik sheetbe írja ki
    Sheets("01").Select
    Columns("A").Select
    ActiveSheet.Paste
    Windows(fajlnev).Activate
    Columns("L").Select
    Selection.Copy
    Windows(sajatnev).Activate
    Columns("J").Select
    ActiveSheet.Paste

    ActiveWindow.SelectedSheets.Visible = False
    Windows(fajlnev).Activate
    Range("A1").Select
    Selection.Copy
    ActiveWindow.Close (False)

    Sheets("Datum").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Mon").Select
    ActiveWorkbook.Save

    thx
    Luí

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