Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: VB vs EXCEL
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002
VB vs EXCEL

Mam takie pytanko jak z poziomu VB mogę wpisać sane do szablonu w Excel`u w określone komórki. Kiedyś w książce "VB w 21 dni" był fajny przykład z wykorzystaniem DDE. Może macie jakiś inny pomyśł lub linki do materiałów na ten temat.


_____________________________________________
www.skype.com RULES !!!

08-08-2003 23:35
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
Mariusz



Typ: neutral
Postów: 17
Zarejestrowany: May 2003

spróbuj tego:

---------------------
Dim objExcel As Object
Dim strName As String
strName = "plik.xls"
Set objExcel = GetObject(strName)
objExcel.application.Visible = True
objExcel.windows(1).Visible = True

With objExcel.sheets(2).cells(15, 3)
.Value = text1.Text
End With
With objExcel.sheets(2).cells(16, 4)
.Value = text2.Text
End With
objExcel.Save
Set objExcel = Nothing

09-08-2003 15:40
Pokaż profil Mariusz  Wyślij email do Mariusz   Odwiedź stronę Mariusz  
Mariusz



Typ: neutral
Postów: 17
Zarejestrowany: May 2003

jeszcze jedno ...

sheets(x) gdzie x to nr arkusza
cels(1,1) to namiary na komórkę w arkuszu

09-08-2003 15:42
Pokaż profil Mariusz  Wyślij email do Mariusz   Odwiedź stronę Mariusz  
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002
Podziękowania dla Mariusza

Serdeczne podziękowania za pomoc. Posiadałem podobny przykład ale nie chciał działac mam jeszcze pytanie czy można w ten sposób drukować wybrany arkusz i czy można zachować plik pod inną nazwą.


_____________________________________________
www.skype.com RULES !!!

09-08-2003 22:51
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
można

można drukować i zapisywać pod inną nazwą

odpal Excela, wciśnij ALT+F11
zapuść helpa na temat drukowania i zapisywania
zapisywanie było pod hasłem SaveAs


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

13-08-2003 23:12
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002

Dzięki już wcześniej sobie z tym poradziłem. Przecież można skopiować szblon i zmienić jego nazwę na potrzebną. Drukowanie rozwiązałem poprzez urchomienie Excela z parametrem /p. Wtedy tylko drukuje.


_____________________________________________
www.skype.com RULES !!!

14-08-2003 00:03
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002
Prosciej sie nie da

Witam

Jeśli chodzi o  korzystanie z excela pod VB to najprościej jest poprostu w Excelu nagrać makro, usunąć bzdury(eexcel generuje ich dużo) a to co zostało to przenieść do VB dodając referencje do obiektu Excel.
Jeśli chcemy zrobić coś w tle to wystarczy nie odsłaniać arkusza .
Odnośnie  wołania z parametrami to najlepiej iść na stronę Microsoftu i poszukać (90% szans na powodzenie)

Pozdrawiam busio

14-08-2003 15:04
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Hubert




Typ: neutral
Postów: 20
Zarejestrowany: Apr 2004
Do Mariusza

Po skopiowaniu podanego prze Ciebie kodu i uruchominiu projektu otrzymałem komunikat "Automation erro" i debug zatrzyał sięna tworzeniu obiektu excel .Z czego to może wynikać ?

03-05-2004 20:36
Pokaż profil Hubert  Wyślij email do Hubert   
karolinavb




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

Trochę opuściłam, aby sobie uprościć...
Proszę pamiętać o dodaniu referencji ( Project/References  Microsoft Excel xx.x Object Library


.....
On Error Resume Next
Dim objExcel As Excel.Application
Dim strName As String
strName = "plik.xls"

'''' obie sekwencje razem
'''' jeśli byłby już otwarty to
Set objExcel = GetObject("Excel.Application"

On Error GoTo 0

''''jeśli nie był otwarty to

If objExcel Is Nothing Then
    Set objExcel = CreateObject("Excel.Application"

End If


With objExcel
    .Application.Visible = True

'''' gdyby tworzyć nowy skoroszyt
    '.Workbooks.Add 

'''' albo otworzyć istniejący
    .Workbooks.Open FileName:= _
        "D:Moje dokumentybajka.xls"
    .ActiveWorkbook.Sheets(1).cells(15, 3).Value = "A KU KU "
    .ActiveWorkbook.Save
    .ActiveWorkbook.Close

'''' w zasadzie należałoby zamykac tylko wtedy gdy nie był otwarty Excel
    .Quit
 
End With

Bardzo dużo przykładów jest po polsku na stronie http://www.phys.uni.torun.pl/~jacek/dydaktyka/rad/rad3.pdf "Microsoft Visual Basic- Wspólpraca VB i Microsoft Office - Ćwiczenia

[Post edytowany dnia 04-05-2004 12:01 przez karolinavb]


_____________________________________________
Karolina

04-05-2004 11:51
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1