Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: współdziałanie z vb
anonim




Typ: Nie zarejestrowany
współdziałanie z vb

Jak utworzyć plik excela i wkleić do niego grafikę ze schowka posługując się vb?

23-11-2004 17:38
  
losmac
"profesorek"




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

Dodaj referecje do Excel'a i wklej poniższy kod:


Sub SaveAsExcel()
Dim ExcApp As Excel.Application
Dim ExcWbk As Excel.Workbook
Dim ExcWsh As Excel.Worksheet
Dim ExcRng As Excel.Range

On Error GoTo Err_SaveAsExcel
Set ExcApp = CreateObject("Excel.Application"
Set ExcWbk = ExcApp.Workbooks.Add
Set ExcWsh = ExcWbk.Worksheets(1)

'wklej ze schowka
ExcWsh.Range("A1".PasteSpecial

ExcApp.Visible = True

Exit_SaveAsExcel:
    On Error Resume Next
    Set ExcRng = Nothing
    Set ExcWsh = Nothing
    Set ExcWbk = Nothing
    Set ExcApp = Nothing
    Exit Sub
Err_SaveAsExcel:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_SaveAsExcel:
End Sub




_____________________________________________
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ś

24-11-2004 18:22
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1