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: Artik
10-01-2019, 14:13
Makro przestawiające skomplikowaną tabelę.
Autor Wiadomość
damswi
świeżak


Posty: 4
Wysłany: 09-01-2019, 20:14   Makro przestawiające skomplikowaną tabelę.

Kod:
Sub makecsv
1.Dim iNumber As Integer, iC as Integer, i as Integer
2. Dim sSep As String
3.Dim aFile As String
4. Dim sArk as String, war1 as String, war2 as String, war3 as String, a1 as string
5, Dim oArk as Object
6.Dim dW as Double, dj as Double, di as Double
7. sSep=";"
8. sArk=InputBox("Podaj nazwę arkusza, który będzie konwertowany")
9. oArk=ThisComponent.getSheets().getbyName(sArk)
10. msgBox "Podaj całkowite rozmiary arkusza"&chr(13)&"Rekordy powstaną na
11. podstawie pierwszego wiersza"_
12. &chr(13)&"i pierwszej kolumny"
13. dW=InputBox("Ile wierszy")
14. iC=InputBox("ile kolumn")
15. di=(dW-1)*(iC-1)
16. a1=oArk.getCellbyPosition(0,0).string
17. aFile=InputBox("Podaj nazwę pliku i ścieżkę dostępu, np. Z:\Forum oo\nazwa.csv")
18. iNumber = Freefile
19. Open aFile For Output As #iNumber
20. For i=1 to iC-1
21.   For dj=1 to dW-1
22.   di=di-1
23.   oArk.getCellbyPosition(0,0).setValue(di)
24.   war3=oArk.getCellByPosition(i,dj).getString
25.      if war3>0 and len(war3) >0 then
26.         war1=oArk.getCellbyPosition(i,0).getString
27.         war2=oArk.getCellbyPosition(0,dj).getString
28.         Print #iNumber,war1,sSep,war2,sSep,war3
29      End if
30.   next dj
31.next i
32. Close #iNumber
33. oArk.getCellbyPosition(0,0).setString(a1)
34. msgBox "Plik "&aFile &" utworzony"
End Sub


Mam takie makro napisane przez znajomego. Nie wiem co wpisać w poszczególne linijki. Te linijki to 8,10,11,12,13,14,17,34.

Dodam że plik który chce przerobić znajduje się na C:\Bazarabaty.csv
Arkusz posiada 2203 wierszy oraz 456 kolumn.
Ostatnio zmieniony przez damswi 09-01-2019, 20:24, w całości zmieniany 2 razy  
ID posta: 360127 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 258 razy
Posty: 1395
Wysłany: 09-01-2019, 20:22   

Witamy na Forum.

Załącz plik.

FYI: od c.a. 30 lat już się nie numeruje linii... Wiem - automat to dołożył - ale wygląda... "śmiesznie" ;-) .
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 360128 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2613 razy
Posty: 8614
Wysłany: 09-01-2019, 23:56   

To nie jest kod VBA!
Pochodzi z jakiegoś innego Office-a niż MS Office.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 360158 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 186 razy
Posty: 847
Wysłany: 10-01-2019, 03:36   

LibreOffice ?
ID posta: 360163 Skopiuj do schowka
 
 
damswi
świeżak


Posty: 4
Wysłany: 10-01-2019, 07:24   

Było to pisane pod OpenOffice. Chodzi mi tylko jak powinien być uzupełniony ten kod w tych linijkach które podałem. Ilość wierszy i kolumn oraz ścieżke dostępu do pliku podałem w 1 poście.
ID posta: 360167 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2613 razy
Posty: 8614
Wysłany: 10-01-2019, 09:01   

damswi napisał/a:
Było to pisane pod OpenOffice.
Przesłanie chyba nie dotarło. Wybrałeś niewłaściwe forum. My tu sobie o Excelku rozprawiamy. Na Oo zna się tu niewielu

Artik.
_________________
Persistence is a virtue in the world of programming.
ID posta: 360170 Skopiuj do schowka
 
 
Tajan


Pomógł: 4286 razy
Posty: 9527
Wysłany: 10-01-2019, 09:16   

damswi, sumie kod bardzo podobny do VBA i można z niego wywnioskować, że nic w nim nie należy zmieniać. Po uruchomieniu makro powinno wyświetlić okna i nich trzeba będzie wpisać odpowiednie wartości.
ID posta: 360171 Skopiuj do schowka
 
 
damswi
świeżak


Posty: 4
Wysłany: 10-01-2019, 09:38   

A byłby ktoś w stanie stworzyć taki Kod VBA który z takiej tabeli (rabaty-pierwotny.csv) przekształciłby na taką tabelę ( rabaty-decolowo ) ? Chodzi o import csv na platformę B2B.

CIACH

tu jest plik w wersji pierwotnej a potrzebowałbym mieć go w postaci 3 kolumn tak jak tutaj:
CIACH


ps. Pliki csv są za duże aby umieścić je w załącznikach
edycja Zbiniek:
Pliki można obciąć, podzielić, spakować.
ID posta: 360172 Skopiuj do schowka
 
 
damswi
świeżak


Posty: 4
Wysłany: 10-01-2019, 10:22   

Tajan, Jak Ci podam plik, wpisałbyś mi te wartości ? Albo chociaż objaśnij mi gdzie dokładnie mam co wpisać jeżeli mój plik to C:/Bazaraty.csv , a ilość wierszy to 2203 a kolumn 456.
ID posta: 360177 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 186 razy
Posty: 847
Wysłany: 10-01-2019, 13:59   

damswi napisał/a:
... megawrzuta.pl ...

:-> ;-) :-) :-o :-D :mrgreen: :lol: :-P :-P :-P :-P :-P

"Przetwarzamy dane Użytkownika zgodnie z ustawą z dnia 29 sierpnia 1997 r. o ochronie danych osobowych (tekst jednolity: Dz. U. z 2002 r. Nr 101, poz. 926 ze zm.) oraz ustawą z dnia 18 lipca 2002 r. o świadczeniu usług drogą elektroniczną (dz. U. Nr 144, poz. 1204 ze zm.)"

:-> ;-) :-) :-o :-D :mrgreen: :lol: :-P :-P :-P :-P :-P

Znowu "jacyś d....", do których nie dociera prosta sprawa, że w 2018 r. w/w zostało uchylone i już nie obowiązuje - jedyną podstawą prawną jest Dz. U. 2018 poz. 1000 oraz rozporządzenia Rady Europy:

http://isip.sejm.gov.pl/i...ych%20osobowych

Jeśli tam przestrzegają ochrony danych osobowych w taki sposób w jaki aktualizują podstawę prawną, to ja dziękuję ...

:-> ;-) :-) :-o :-D :mrgreen: :lol: :-P :-P :-P :-P :-P

damswi napisał/a:
Pliki csv są za duże aby umieścić je w załącznikach

Bo nie można ich spakować jakimś archiwizerem .. prawda ?
:-> :-P
ID posta: 360191 Skopiuj do schowka
 
 
Tajan


Pomógł: 4286 razy
Posty: 9527
Wysłany: 11-01-2019, 15:53   

damswi napisał/a:
Albo chociaż objaśnij mi gdzie dokładnie mam co wpisać
W sumie niewiele tu do objaśniania. Po prostu uruchamiasz makro i powinny ci się wyświetlać kolejno okienka, które wypełniasz:
-"Podaj nazwę arkusza, który będzie konwertowany" - nazwa arkusza w którym będą zapisywane dane
- "Ile wierszy" - 2203
- "ile kolumn" - 456
- "Podaj nazwę pliku i ścieżkę dostępu" - C:\Bazarabaty.csv
ID posta: 360244 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie 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