Zdravím, vytvořil již někdo makro s využitím nástroje Najít a Nahradit, kde by se postupně vyhledávala všechna slova zvolené oblasti a v jiné oblasti buněk by tato slova, která jsou součástí textu v buňce, byla naformátována zvoleným formátem? Pro jedno slovo by to nebyl problém, ale jak postupovat,...

Zdravím, příkaz Data/Text do sloupců znám. Potřeboval jsem převést velké množství buněk s jejich hodnotami oddělenými čárkou do jednoho sloupce. Proto to makro. Chyba byla v: Else bCell.Offset(0, RozdilVysledek).Value = bCell.Offset(0, RozdilData).Value , neboť makro procházelo nově vložené řádky a ...

Řeším problém s transpozicí pole hodnot. Mám buňky které obsahují hodnoty oddělené čárkou. Potřebuji je dostat do sloupce, do každé buňky hodnotu zvlášť. Použil jsem funkci WorksheetFunction.Transpose(Pole). Ta mi však vloží pouze první hodnotu z pole a ostatní ne. Pole vytvořené pomocí funkce Split...

Děkuji. Trochu jsem to upravil. Bylo třeba ještě přes Tools References zatrhnout knihovnu: Microsoft DAO Library 3.6. Teď už si s tím dál nějak poradím: Sub ListTables() Dim DB As Database Dim T As TableDef Set DB = OpenDatabase(GetFileName()) For Each T In DB.TableDefs MsgBox T.Name Next End Sub Fu...

Ano je to dialog v importu dat z Accessu do Excelu. Potřebuji vybírat různé tabulky. Zatím jsem to vyřešil tak, že název tabulky, kterou chci importovat, píšu do buňky na listu. Možnost určit název tabulky v průběhu makra by vše usnadnila. Pokud by to bylo složité, spokojím se s tím, co už mám. Kód ...

Věděl by někdo, jak do makra v Excelu dostat dialogové okno Vybrat tabulku z Accessu - jak napsat pro jeho vyvolání kód.
Přes nahrávání maker se mi to nedaří.

Nevěděl by někdo, jak z tabulky v Accessu do Excelu dostanu i záhlaví tabulky. Vše se pomocí SQL zkopíruje v pořádku kromě záhlaví tabulky, které chybí.

Už jsem to vyřešil, doplněním deklarací. Děkuji za oba typy. Power Query je však spíše pro tvoření různých sumárních tabulek než pro automatizovaný export. Přesto děkuji. Public Sub Import_z_Accessu() Dim Cesta As String Dim Odkaz As Worksheet Dim Database As Object Dim prikaz_SQL As String Dim rs A...

A jaký typ proměnné bych měl pro Database a rs použít?

Zdravím potřebuji naimportovat větší množství tabulek z Accessu do Excelu. Mám makro s využitím SQL dotazu. Když ho spustím objeví se hláška Variable not defined. a označí se v kódu Set Database = app.CurrentDb Kód mám přitom podle příručky správně. Sub Import_mdb() Dim Cesta As String Dim ...

Zdravím, mám v Excelu makro, z kterého na dálku ovládám ve Wordu uložení vloženého textu ve formátu txt. Text se uloží, je však někde chyba v kódování textu. V otevřeném texťáku se mi zobrazí nesmysl. Nevím, kde je chyba. Výtah z kódu ve VBA: Cesta = ActiveWorkbook.Path + "\" Set App = Cre...

Zdravím,
proměnná pro šířku sloupce musí být nadefinovaná tak, aby šlo do ní ukládat i desetinná čísla, protože některé šířky sloupců obsahují desetinná čísla. To byl ten problém. Mělo mě to napadnout hned.
Oprava: