piątek, 1 września 2017

Przekierowanie. Teraz AFInScript!

Dzień dobry.

Chyba ostatni raz tutaj, bo i wojna z biajem zakończyła się triumfalnym zwycięstwem excelka, i teraz nowe formy blogowania nastały.

Zapraszam na Fejsa
https://www.facebook.com/afinscript/

Nowy produkt - AFinScript to twórcze rozwinięcie AFIN.NET-a. Zapraszam do grupy, zapraszam do aktywności i szerowania. Się dzieje i się będzie działo.

Pozdrawiam
Wojciech G.

piątek, 13 marca 2015

Kompletna hurtownia danych sprzedaży (konsolidacja, słowniki, publikacja do HTML)

Czy można szybko zrobić poważną hurtownię danych?

Taką, żeby się pliki konsolidowały z wielu źródeł, żeby    
dodać 2 słowniki i to z różnych źródeł danych?
I żeby to opublikować i potem cyklicznie publikować w pliku HTML    
np. na serwerze wewnętrznym?
Kupa roboty! Konkretnie - 20 minut! TYLKO 20 minut!

Weźcie to spróbujcie zrobić w czystym Excelku, albo    
super-PowerPivotem, hehehehe!

Film (przydługi, bo KOMPLETNY!):
http://afin.net/webcasts/Demo_DMA_Sales_Cons&Dict&Publ.swf

poniedziałek, 9 marca 2015

Świeżutkie kursy walut na dysku. Tylko brać.

AUTOMATYCZNIE ODŚWIEŻANA TABELKA Z DANYMI W EXCELKU NA DYSKU, zasilana co 10 minut kursami walut z Forex-a, bez otwierania AFINA, Excelka, samo się robi.


Zrobiłem arkusik, wstawiłem do niego kwerendę sieci WEB ze strony
http://www.money.pl/pieniadze/forex/
(wziąłem sobie tylko tabelkę z 4 najpopularniejszymi walutami)
Zapisałem jako 'KursyWalutKwerenda.xls'

Ustawiłem we właściwościach danych zewnętrznych    
autoodświeżanie przy otwarciu pliku.
No, ale co, będę co 10 minut otwierał Excelka, żeby kwerenda    
się odświeżyła? :(
No, nie...

Zrobiłem więc sobie programik w VBScripcie (taki tekst zapisałem    
w Notaniku):

Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = False
Set xlBookT = xlApp.Workbooks.open    
("D:\AFIN\Proby\VBScript\KursyWalutKwerenda.xls")
xlBookT.Activate
xlBookT.Save
xlBookT.close false

Set xlBookT = Nothing
xlApp.Quit
Set xlApp = Nothing

MsgBox "Job done", vbinformation, "End job"

WScript.Quit


Taki plik tekstowy zapisałem jako    
'VbsOdswiezenieKwerendyWalutowej_WG1.vbs'

Programik działa - wystarczy go uruchomić z Exsploratora. Otwiera    
w tle Excelka (nie widać go, otwiera się "bez interfejsu"), w nim    
ów pliczek, kwerenda się automatycznie odświeża, pliczek jest    
zapisywany, zamykany, potem zamyka się Excelek.
Program wyświetla też komunikat o zakończeniu działania, który,    
oczywiście można usunąć.
Wszystko fajnie.
Więc w Harmonogramie zadań Windows zrobiłem sobie zadanie:    
"Uruchom ów plik-program 'VbsOdswiezenieKwerendyWalutowej_WG1.vbs'    
co 10 minut."

I co 10 minut mam świeżutkiego Excelka z najnowszymi kursami    
walut, tylko brać kwerendami.
Wszystko działa w tle, Excel się nie otwiera (z widocznym    
interfejsem), o nic się nie martwię - AUTOMAT.

poniedziałek, 2 marca 2015

AFIN.NET.IS - Wstawianie (aktualizacja) danych do skoroszytów zamkniętych

Mamy sobie 100 użytkowników.
Każdy z nich ma swój bardzo ważny skoroszyt, w którym ma jakieś    
analizy, wykresy. To dla niego strasznie ważne, bo z tego żyje.
(np. kierownicy MPKów)

Ale wszyscy są uzależnieni od danych wykonania, które są    
centralnie. Jak uaktualnić te 100 skoroszytów, nie mieszając przy    
tym za bardzo?

Na pewno nie wiżualbejzikiem (VBA), jak doradzają specjaliści!
No to jak? Bazodanowo! Taż Excel (jego pliki) kuma ODBC.

Filmik:
http://afin.net/webcasts/Demo_AfinNetIs_InsertingDataIntoClosedWorbooks.swf

czwartek, 5 lutego 2015

Nowa CiZia w mieście, a Wy nic???

Widziałem już tę nową CiZię - fajowa. Młodziutka, świeżutka, ach!

Wy też możecie ją poznać! Wiele odsłania!
http://controlling-zarzadzanie.pl/

Szczególnie, oczywiście, ciekawy jest nasz wkład w CiZię ;)
https://onedrive.live.com/?cid=42AC4083B32E6AB0&id=42AC4083B32E6AB0%212156&v=3

Polecamy. Będzie więcej. Umówcie się z nią na dłużej.

wtorek, 13 stycznia 2015

AFIN.NET.IS - Konsolidacja arkuszy z filtrem

> (...)
> potrzebuje małej pomocy :)
>
> Przygotowałem pewne zestawienie składające się z około 10    
> arkuszy. Teraz chciałbym wyłowić ze wszystkich arkuszy    
> powtarzające się ciągi znaków składające się z 3 liter np.    
> XYZ i automatycznie skopiować cały wiersz w którym wystąpił    
> ciąg znaków do nowego arkusza o takiej samej nazwie (XYZ).

Czy można?
Pewnie. I to jak łatwo-szybko-bezbłędnie.

Filmik:
http://afin.net/webcasts/ZZZ_KonsolidacjaArkuszyZFiltrem.swf