Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: zapis tablicy do xls
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003
zapis tablicy do xls

Jak utworzyc plik XLS (z poziomu VB6 oczywiście) , ustawić szerokość kolumn i zapisac tablicę dwuwymiarową np. tablica(10,10).

23-02-2004 20:01
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

utwórz plik o formacie:

a,b,c,d
e,f,g,h
i,j,k,l

gdzie te litery to cyfry oddzielone przecinkami. Takie pliki EXECEL może bez problemu zaimportować


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

23-02-2004 23:55
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003

dane przedzielone przecinkami excel(np wersja 2003),wczytuje do jednej komórki. Dane oddzielone tabulatorem no to wchodzą tam gdzie trzeba, ale pozostaje sprawa szerokości kolumn

24-02-2004 00:15
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Radze zerknac tu :
http://board.freeweb.pl/posts.php?board_id=1543&topic_id=68678&division=615

Masz tam o przykladzie do robienia XLS z poziomu VB

25-02-2004 09:01
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003

DZIĘKI! Owszem z tego sampla robi sie piekny XLS, no tylko ten problem z fontami...

25-02-2004 18:31
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
anonim




Typ: Nie zarejestrowany
zapis tablicy do xls

Witam,
jeżeli masz problem z vba to w excelu nagraj makro i kod przenieś do VB - nie 1 do 1 ale prawie:
zmienić fonty możesz tak:

Set xlAppl = CreateObject("Excel.Application"
Set xlWB1 = xlAppl.Workbooks.Add

xlWB1.Sheets(zespol).Range("A" & j & "" & j).Font.Size = 8
gdzie j numer wiersza
zespol nr skoroszytu

09-03-2004 10:08
  
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1