Ralliart Napisano 21 Sierpień 2009 Zgłoś Share Napisano 21 Sierpień 2009 Ponieważ jestem zwolennikiem zasady, że najgłupsze rozwiązanie zawsze działa ten temat będzie zbiorem takich oryginalnych rozwiązań. Pomimo podejścia na luzie z mojej strony znajdą się tu czasami naprawdę niezłe patenty. Rozpocznę od mojego ostatniego patentu na działanie aplikacji. Proszę o wpisywanie rozwiązań zgodnie ze standardem: Aplikacja: Microsoft Excel 2003 Zastosowanie: Makra VBA Problem: Konwersja daty Opis: Podczas importu danych przez ODBC sterownik wymaga pełnej daty w formacie RRRR-MM-DD do wykonania kwerendy z parametrem (Ma pobrać tylko wczorajsze dane). W systemie jest ustawiona data krótka i nie może być zmieniona ze względu na inne makra, a w komórce jest wyświetlana data systemowa. ODBC zwraca błędy za każdym razem podczas wykonywania makra. Rozwiązanie: do funkcji daty został dopisany przedrostek "20" &, tak aby data była pełna. Makro działa sprawnie MOJA_DATA = "20" & Worksheets("Wyniki").Cells(4, 10) POLECENIE1 = "SELECT * FROM biblioteka.plik plik WHERE DATA = '" & MOJA_DATA & "'" Odnośnik do komentarza Udostępnij na stronach More sharing options...
Recommended Posts