A döntés, hogy távolítsa el a listát excel könyvek, megkerülve a felhasználó párbeszéd
Jó napot! Segítségre van szükségem. Már 1000 Excel * .xls fájlok minden 9 fülek (néhány speciális fül hiányzik), és mindegyiken egy szűrő. Van Add-on RDBMerge amely egyesíti az egyes lapokon, hanem az a tény, hogy a szűrő ne érintse azt, a másik fele az információ nem másolható. Lehet, hogy egy makrót, amely egyszerűen áthaladnak az összes fájlt, és csak vegye ki a szűrőket, miközben a fájlt? Köszi előre !!
Jó napot kívánok. Szembesülnek a következő probléma. Van egy munkalapot (a kód egy változó ws) egy lapon van egy táblázat, amely attól függően, az adatokat a könyv kibővíti a jobbra és lefelé. Border „változatlan kalapok” táblázatban megadott, névvel ellátott tartomány StartData. Van egy kód törlés összes régi adatokat a táblázatban
Üdvözlünk! Az 1. lap on line 431 ötödik oszlop a szót idézőjelben - „White” Azt kell, hogy távolítsa el az idézőjelet belépek stringovuyu változó, és inicializálja adatokkal a sejtből. str = trim (munkalapok (1) .Cells (431, 5) Eddig) fordul változó str = "White" write: Ha (str Like "*" Chr (34) "*" Chr (34) "*") Ezután str = cserél (str, Chr (34), ""), de idézetek nem kerülnek eltávolításra (((Ebben az esetben, a kedvéért több írva, mint ez: str1 = Chr (34) „Fehér” Chr (34) Ha ebben az esetben a szerkezet működik, és idézetek eltávolítjuk. Tehát mi a baj az első kiviteli alakban a változó inicializálja az adatokat a sejt? Egy kicsit, de azt nem lehet megkerülni (Súgó, kérem. Köszönöm.
Futok le az oldalt az „L1” sorról sorra működik, de azt kell hogy tele oszlopok, kezdve oszlop c1. Nem tudok rájönni, hogyan kell csinálni. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub FullDate () Dim vItem, avArr, li As Long ReDim avArr (1 To Rows.Count, 1-től 1) A New Collection On Error Resume Next For Each vItem A tartomány ( "B2", Cells (Rows.Count, 2) .End (xlUp)) Érték Adjunk hozzá vItem, CStr (vItem) ha Err = 0, akkor li = li + 1 :. avArr (li, 1) = vItem mást: Err.Clear End If Next End With Ha li Ezután munkalapok ( "L3") [c1] .Resize (li) .value = avArr végén sub.
Üdvözöljük ínyencek programozási makrók. Kérem, segítsen. Egy lap MediaPlayer - lejátszásával egy médiafájlt. Hogyan tegyük, ha megnyomja a gombot -, hogy láthatatlanná válik, és a fájl lejátszásához. (Az láthatatlanság - Értem - csak egy láthatóság hiánya MediaPlayer tárgy, vagy csak nyomja meg -, hogy a méret a lényeg.)