Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: bodek
30-08-2019, 08:53
Modyfikacja danych do csv celem exportu do kalendarza google
Autor Wiadomość
biju 
Starszy Forumowicz


Posty: 41
Wysłany: 17-01-2018, 21:20   Modyfikacja danych do csv celem exportu do kalendarza google

Witam

Od jakiego czasu próbuję zmodyfikować dane z grafiku, tak żeby można było je łatwo wrzucić do kalendarza google.

Próbowałem w VBA, formuł i niestety poległem.
Proszę o jakieś podpowiedzi jak można to rozgryźć.

Potrzebuję wyciągnąć informację o jednej osobie w jakich dniach na którą godzinę ma zmianę.

Tu znajduję się infomracja jak powinien wyglądać rozpoznawalny dla googla plik .csv
Cytat:

https://support.google.com/calendar/answer/37118?hl=pl


grafik_net.xlsx
Pobierz Plik ściągnięto 89 raz(y) 16.85 KB

ID posta: 338050 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 393
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8383
Wysłany: 17-01-2018, 22:53   

A jak powinien?
Opracuj jak powinien wg podanego linka i wklej w sprawkę, albo przesuwamy do zadań.
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 338057 Skopiuj do schowka
 
 
biju 
Starszy Forumowicz


Posty: 41
Wysłany: 17-01-2018, 23:01   

tak powinien wyglądać.

Book1.csv
Pobierz Plik ściągnięto 91 raz(y) 68 Bajtów

ID posta: 338058 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 393
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8383
Wysłany: 17-01-2018, 23:35   

W twoim pliku jest czas od-do. Jak to się ma do wzoru jaki załączyłeś?
Do tego masz poniedziałek/niedziela a w pliku csv są daty - a więc który to poniedziałek?
Musisz coś zrobić aby dopasować dane do pliku jaki zostanie zaakceptowany przez googla, a na razie się na to nie zanosi.
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 338062 Skopiuj do schowka
 
 
biju 
Starszy Forumowicz


Posty: 41
Wysłany: 21-01-2018, 12:35   

Masz rację.

Plik zrobiłem na szybko.
Załączam poprawiony

Book1.csv
Pobierz Plik ściągnięto 67 raz(y) 109 Bajtów

ID posta: 338330 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 393
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8383
Wysłany: 21-01-2018, 15:13   

W twoim pliku bazy, na której podstawie chcesz uzyskać plik csv zgodny ze wzorem, nie ma dat ale PN/WT/SR... czyli parametru który w ramówkach czasowych określał by datę.
Musisz w takim razie i jego (plik grafik_net) zmodyfikować aby taka data się w nim znalazła.

Można by przyjąć, że w arkuszu "Sheet2" że zamiast 1/2/3.. za kolejne dni będą faktyczne daty z rokiem i miesiącem (no bo którego msc i roku dotyczy termin?).

Jeśli tak, to wystarczy teraz pętla w pętli. Jedna po wierszach, druga po kolumnach.
Pobrać dane z dat warunkiem po pustej komórce w kol 1 +7 w przebiegu (bo masz 5 godzin i wiersz Od-Do), a treść jeśli komórka jest pusta.
Wypada wyciągnąć/przekształcić też z godzin AM/PM. np taka (bo w VBA chyba nie ma 24-godzinnego formatu)
Kod:
Function am_pm(godzina) As String
If Split(godzina, ":")(0) > 12 Then
      Dim h%: h = Split(godzina, ":")(0) - 12
      am_pm = h & ":" & Split(godzina, ":")(1) & " PM"
Else
      am_pm = godzina & " AM"
End If
End Function

Jak już pozbierasz dane (zbudujesz prawidłowego stringa), to wypada otworzyć plik tekstowy open file for, albo FSO i linia po linii po każdym przebiegu wierszy wrzucić tam dane lub jako cała zlepka (zależy od ilości danych), po czym zatknąć plik. I już wiesz "Jak to zrobić".

Metody utworzenia pliku masz na forum lub w helpie [F1]
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 338342 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe